hatena2000のプロフィール

※最初にキツイ話しですが コードを書いて教えもしない回答は通報します。また、締め切ります。 (昔は素直に教えてくれる人が多かったし近年スキル売るサイトが人気があるためクラウドワークスに移行してスキルのあるエンジニアが少ないのもあります) 不快になられる方もいらっしゃると思いますが (その点は申し訳ないし本来こんな書き込みはしたくない) 心ある良識な回答をお願いします。 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から始まるレコードのみをすべて表示