Accessテキストボックスに入力されている文字でレコード抽出する方法について

前提

Accessフォームでレコード抽出をおこないたいです。フォーム上にテキストボックスと検索ボタン、解除ボタンを作成しました。テキストボックスに事業部または部課CDを入力し検索ボタンをクリックすると条件に合うレコードがすべて表示されるようにしたいです。条件を解除する「解除」ボタンをクリックすると全レコードが表示されるようにしたいです。現在はテキストボックスに入力し「検索」ボタンをクリックすると先頭のレコードのみが表示されるようになってしまいました。また部課CDでも検索できるようにしたいです。アドバイスをいただきたいです。よろしくお願いします。
設定は以下の通りです。
フォーム名：F_所属別車両一覧
テキストボックス名：事業部部課CD検索
「検索」ボタン
「解除」ボタン

「検索」ボタンの設定
フォームを開く：F_所属別車両一覧
Where条件式：[事業部]=[Forms]![F_所属別車両一覧]![事業部]

「解除」ボタンの設定
メニューコマンドの実行：コマンド「フィルター/並べ替えの解除」

実現したいこと

テキストボックスに抽出したいレコード「事業部」フィールドと「部課CD」フィールドを入力し「検索」ボタンをクリックすると該当のレコードが表示される。「解除」ボタンをクリックすると全レコードが表示されるようにしたいです。

発生している問題・エラーメッセージ

テキストボックスに文字を入力し「検索」ボタンをクリックすると先頭のレコードのみが表示されてします。

該当のソースコード

試したこと

補足情報（FW/ツールのバージョンなど）

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

回答1件

ベストアンサー

現状は検索ボタンにマクロを設定しているということですね。

マクロでもできないことはないですが、複雑な処理をするには難しくなります。また、今後、マクロでは対応できない処理も出てくることもあるかと思います。これを機会にVBAに乗り換えことをお勧めします。

ということで、VBAでの提案をさせていただきます。

現状は帳票フォームで開いた直後はすべてのレコードが表示されているとします。

「検索」ボタンと「解除」ボタンのクリック時のイベントプロシージャを下記のように記述します。

vba
1Private Sub 検索_Click()
2    Me.Filter = "事業部='" & Me.事業部部課CD検索 & "' OR 部課CD='" & Me.事業部部課CD検索 & "'"
3    Me.FilterOn = True
4End Sub
5
6Private Sub 解除_Click()
7    Me.Filter = ""
8    Me.FilterOn = False
9End Sub