フォーム上に抽出用チェックボックスをつくりたい

質問

フォーム上ににチェックボタンを設置して、
埋め込みクエリの抽出をさせたいです。

フォーム　
　品名　a の場合、

埋め込みクエリは下記の様に表示されます。
品名　都道府県　数量
a 北海道　　20
a 秋田県　　30
a 沖縄県　　10

フォーム上にチェックボタンを設置して、
チェックを入れた場合のみ、北海道と秋田だけ表示させる。

品名　都道府県　数量
a 北海道　　20
a 秋田県　　30

どの様なコードを作れば出来ますか？

回答No.2

tamu1129

まず2つのクエリーを作成するのです

１つは全てのデータが表示されるようなクエリ

これを　Q1　という名前で作成します

もう一つは、都道府県が　北海道または秋田のデータを抽出するクエリを作成します

これをQ2　という名前のクエリとします

次に、チェックボックスを配置するフォームを作成します

ここに1つチェックボックスを配置してください　オブジェクトの名前が自動で付くのでそのオブジェクト名を何にかにメモ書きしておいてください

ここではオプション14と いう名前になっている事とします

フォームに配置したオプション14オブジェクトを右クリックして更新後処理の　ビルダーボタンを押してVBAエディタを立ち上げます

Private Sub オプション14_AfterUpdate()

となっているはずなので、ここに下記の構文加えてください

If (Me.オプション14 = True) Then

DoCmd.OpenQuery "Q2", acViewNormal, acReadOnly

Else

DoCmd.OpenQuery "Q1", acViewNormal, acReadOnly
End If

End Sub

これを保存かけてから、フォームを開いて、チェックボックスをクリックしてください

チェックボックスがON状態の時には、北海道と秋田を選択するクエリQ2が実行され、チェックボックスがOFF状態になる時には、全データが選択されるQ1クエリが実行されます

回答No.1

tamu1129

＞どの様なコードを作れば出来ますか？

コードというより、その北海道と秋田だけが抽出されるクエリは作成出来るんですよね？（逆に言うなら、テーブル作成とクエリ作成が出来るならAccessが使えると言ってもいいくらい）

そのクエリが作成出来るなら、フォームに配置したチェックボックスの更新後動作に、北海道と秋田のデータを抽出するようにしたクエリを走らせれば良いだけなんですが

補足

ご返信ありがとうございます。
クエリの抽出条件に入力とのアドバイスありがとうございました。

チェックボックスにチェックが入ってる場合、そうでない場合の表示の仕方が、わかりません。再度アドバイス頂けたら幸いです。