Access　フォーム上での検索

Accessのフォーム上での検索についてです。

フォームのステータスバーにある検索のようなものを作りたいのですが、可能でしょうか？

はじめに試したのが、フォーム上でコントロールウィザードを選択し、コンボボックスを挿入しました。
しかし「コンボボックスで選択した値に対応するレコードをフォームで検索する」が表示されず断念したところです。
「コンボボックスで選択した値に対応するレコードをフォームで検索する」を表示する方法はありますでしょうか？？

ご教授お願い致します。

行動規範の内容に同意します

回答1件

ベストアンサー

下記が参考になるでしょう。

フォームのすべてのフィールドを対象とする検索機能 - hatena chips

フォームヘッダーかフォームフッターにテキストボックス(txtFind) とコマンドボタン(cmdFind)を配置しておきます。コマンドボタンのクリック時のイベントプロシージャを下記のように記述します。

vba
1Private Sub cmdFindNext_Click()
2    Screen.PreviousControl.SetFocus
3    Screen.ActiveControl.SelStart = 255
4    Me.txtFind.Enabled = False
5    DoCmd.FindRecord v, acAnywhere, False, acDown, , acAll, False
6    Me.txtFind.Enabled = True
7End Sub