このやり方を教えて下さい。

質問

※最初にキツイ話しですが
コードを書いて教えもしない回答は通報します。また、締め切ります。
(昔は素直に教えてくれる人が多かったし近年スキル売るサイトが人気があるためクラウドワークスに移行してスキルのあるエンジニアが少ないのもあります)

不快になられる方もいらっしゃると思いますが
(その点は申し訳ないし本来こんな書き込みはしたくない)
心ある良識な回答をお願いします。

accessのVBAを使っています。(初心者です)
ボタンを使ってコンボボックスをドロップダウンさせたいのですが
下記のようにコードを書いてもうまくできません。

sub 検索ボタン_click()
'検索ボタンを押したときテキストに何か入っていれば
if me!btn検索.onclick=me!textbox検索名＆”＊’”then
’コンボボックスをドロップダウン
me!コンボボックス.dropdown

end if
end sub

ひょっとしてこうでしょうか？

sub 検索ボタン_click()
'テキストに何も無いことがなければ
if Not 　me!textbox検索名　is　 nothing then
’コンボボックスをドロップダウン
me!コンボボックス.dropdown

end if
end sub

分かる方教えてください。
※テキストボックスの値からコンボボックスを絞り込み表示させるのはできています。
textbox：値(a)→コンボボックス：aから始まるレコードのみをすべて表示

回答No.2

chayamati

＞ボタンを使ってコンボボックスをドロップダウンさせたいのですが
　下記のようにコードを書いてもうまくできません。
！コンポボックスにはレコードソースが必要です
　例えば
　・テーブル：取引先テーブル(ID:主キー、取引先コード、取引先名)
　・リスト:性別（男、女）

＞sub 検索ボタン_click()　
　　'検索ボタンを押したときテキストに何か入っていれば
　　if me!btn検索.onclick=me!textbox検索名＆”＊’”then
　　’コンボボックスをドロップダウン
　　me!コンボボックス.dropdown
end if
end sub

！わざわざ改めて検索ボタンの新設は不要です
　コンポボックスでリストの一つを確定したときに次のステップに入ります
蛇足ですが
　・前置きはあなたのプロフィールに登録ください
　・この質問のカテゴリーはAccessです
　　こちらの方がより的確な回答が得られます

回答No.1

hatena2000

Private Sub 検索ボタン_click()
'検索ボタンを押したときテキストに何か入っていれば    
    If Me!textbox検索名 <> "" Then
      Me.コンボボックス.SetFocus '事前にフォーカス移動させておく
      Me.コンボボックス.Dropdown
    End If
End Sub

お礼

ありがとうございます。