Microsoft Access 掲示板

複数項目の検索画面を一画面で検索したい / 5

11 コメント
views
4 フォロー
5

テーブル構成、フォーム設計、検索条件などの詳細が不明なのが下記と仮定して回答します。

検索対象フィールドは 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
通報 ...