Microsoft Access 掲示板

Microsoft Access 掲示板

YES/NO型の複数条件検索 / 2

2 コメント
views
4 フォロー
2
maharajah 2020/12/11 (金) 15:18:06 cb55f@f6500 
Public Sub 検索ボタン_Click()

  Dim filterA As String
  Dim filterB As String
  Dim filterC As String 

  filterA = "チェックＡ=" & Me.チェックＡ検索
  filterB = "チェックＢ=" & Me.チェックＢ検索
  filterC = "チェックＣ=" & Me.チェックＣ検索

  Me.Filter = "( " & filterA & " ) and ( " & filterB & _
  " ) and ( " & filterC & " )"

  Me.FilterOn = True

End Sub

とかでどうでしょうか。
もっといい方法があるかもしれません。

通報 ...