#264
Accessでは、[編集]-[検索]メニューによって検索ダイアログを表示させることができますが、コマンドボタンのクリックによって特定のテキストボックスを対象とした検索ダイアログを表示させる方法です。
以下の例では、"cmd検索"という名前のボタンをクリックすることによって、"顧客名"という名前のテキストボックス（フィールド）を検索対象とした検索ダイアログを表示します。
Private Sub cmd検索_Click()
'cmd検索のクリック時イベント
'フォーカスを顧客名に移動
Me!顧客名.SetFocus
'検索ダイアログを表示
DoCmd.RunCommand acCmdFind
End Sub
'cmd検索のクリック時イベント
'フォーカスを顧客名に移動
Me!顧客名.SetFocus
'検索ダイアログを表示
DoCmd.RunCommand acCmdFind
End Sub
実行結果
