hatena
hatena
2022/03/27 (日) 13:53:33
テーブル構成、フォーム設計、検索条件などの詳細が不明なのが下記と仮定して回答します。
検索対象フィールドは A, B, C の3つで、すべてテキスト型とします。
上記のフィールドを含むテーブルをレコードソースとする帳票フォームで検索結果を表示させるとします。
帳票フォームのフォームヘッダーに検索値入力用テキストボックス3つ、検索(抽出)実行コマンドボタン3つを配置して下記のような名前にします。
txtA, txtB, txtC, cmdA, cmdB, cmdC
さらに抽出解除用ボタンを配置して名前を cmd解除 とします。
コマンドボタンクリック時のイベントプロシージャを下記のように記述します。
Private Sub cmdA_Click()
Me.Filter = "A like '" & Me.txtA & "'"
Me.FilterOn = True
End Sub
Private Sub cmdB_Click()
Me.Filter = "B like '" & Me.txtB & "'"
Me.FilterOn = True
End Sub
Private Sub cmdC_Click()
Me.Filter = "C like '" & Me.txtC & "'"
Me.FilterOn = True
End Sub
Private Sub cmd解除_Click()
Me.FilterOn = False
Me.txtA.Value = ""
Me.txtB.Value = ""
Me.txtC.Value = ""
End Sub
通報 ...