アクセスでチェックボックスで検索

アクセス2010を使用していて、チェックボックスを用いた検索を行いたいです。
フィールド「個数」に、1~5いずれかの数値が入力されたレコードがあります。
検索フォームに非連結のチェックボックスを５つ（名前はck1からck5まで）を作製して、
ck1だけがチェックされた時は「個数」が1のレコードを、
ck1とck2がチェックされた時は「個数」が１のレコードと２のレコードを表示する
のようなコードを書きたいのですが、わからず困っております。
おしえていただけませんか

質問者からの補足コメント

• 複数のフィールドでの検索も可能でしょうか？
  フィールド「個数」に、1~5いずれかの数値が入力
  フィールド「単位」に、1~5いずれかの数値が入力されていて、
  非連結のチェックボックス ck1からck5と、ct1からct5を作成して、
  
  ck1、ck2とct1、ct2をチェックしたときに、
  個数が1または2　で、かつ
  単位が1または2
  のレコードを表示する（個数はck、単位はctに対応させる）
  
  のようにしたいのですが、教えていただいたコードをつなげると、
  個数が1または2　または　単位が1または２
  のレコードが抽出されてしまうので、困っています。
  教えていただけませんか。

    補足日時：2020/04/18 16:01

No.1 ベストアンサー 回答者： bonaron 回答日時： 2020/04/18 08:28

チェックボックスのあるフォームに表示する場合で、

フィルターで制御する例です。

Private Sub cmd抽出_Click()
　Dim strFilter As String
　Dim i As Integer

　For i = 1 To 5
　　If Me.Controls("ck" & i) = True Then
　　　strFilter = strFilter & "," & i
　　End If
　Next
　If strFilter <> "" Then
　　Me.Filter = "個数 In (" & Mid(strFilter, 2) & ")"
　　Me.FilterOn = True
　Else
　　Me.Filter = "FALSE"
　　Me.FilterOn = True
　End If
End Sub

この回答へのお礼

できました！ありがとうございます！
補足のとおり、複数のフィールドをANDで検索することは可能でしょうか？

お礼日時：2020/04/18 16:02