Access：クエリの抽出条件を指定するフォームの作成｜VBAで開く

クエリの抽出条件を指定するフォームの作成

■フォームデザインで作成

下のような、抽出条件を入力するテキストボックスと、パラメータクエリを開くコマンドボタンを挿入します。

コマンドボタンのクリックイベントに下記のVBAコードを入力します。

VBAの入力方法

1. コマンドボタンを選択します。
2. プロパティシートを開き、イベントタブを選択します。
3. 「クリック時」に「イベント プロシージャー」を選択し、右端の［…］ボタンをクリックします。
4. VBE（VBAの入力画面）が開くので、下のプログラムを入力します。

Option Compare Database

Private Sub コマンド3_Click()
    DoCmd.OpenQuery "Q_商品", acViewNormal, acReadOnly
End Sub

■パラメータクエリの作成

リボンの［作成］～［クエリデザイン］で抽出先のテーブルを指定しパラメータクエリを作成します。

次に表示させたいフィールドを選択します。

ここでは「メーカー」の抽出条件に、フォームのテキストボックスを指定します。

[Forms]![F_抽出]![テキスト0]

クエリ名を上のコマンドボタンのクリックイベントで入力したVBAの名前で保存し、閉じてください。