両方の条件でフィルターをかけたいです

質問

こんにちは。
今、フォームに別々に条件を指定し、抽出するようにしております。
(1)
Private Sub コマンド65_Click()
DoCmd.ApplyFilter , "[会場名] like '*" & Me.テキスト63 & "*' "
Me.FilterOn = True
Exit Sub
Err_コマンド65_Click:
MsgBox Err.Description
End Sub

(2)
Private Sub コマンド70_Click()
f_status = "施工日 >= '" & 開始日 & "'"
f_status = f_status & " AND 施工日 <= '" & 終了日 & "'"
Me.Filter = f_status
Me.FilterOn = True
End Sub

今の状態では正常に動くのですが、
条件が、(1)かつ(2)という条件でフィルターをかけなければ
ならない、と作成してから気づきました。

いろいろやってみたのですが、
どれもエラーになるばかりで。。。

回答No.1

noname#140971 · ベストアンサー

Private Sub コマンド0_Click()
On Error Resume Next
　　Dim strFilter As String

　　strFilter = "[会場名] Like '*" & Me.検索_会場名 & "*' AND " & _
　　　　　　　　"施工日 BETWEEN #" & Me.検索_開始日 & "# AND #" & Me.検索_終了日 & "#"
　　Me.FilterOn = False
　　Me.Filter = strFilter
　　Me.FilterOn = True
End Sub

Private Sub コマンド1_Click()
On Error Resume Next
　　Dim strFilter As String

　　strFilter = "[会場名] Like '*" & Me.検索_会場名 & "*' AND " & _
　　　　　　　　"[施工日] >= #" & Me.検索_開始日 & "# AND [施工日] <= #" & Me.検索_終了日 & "#"
　　Me.FilterOn = False
　　Me.Filter = strFilter
　　Me.FilterOn = True
End Sub

どちらでも正常に動作します。
多分、ちょっとしたミスです！

お礼

ありがとうございました。
正常に動きましたー！！