アクセスのVBAで「日付」の期間と「種別」のフィールドの検索をしたい。

非連結のテキストボックスで「検索開始日txt」「検索終了日txt」　「種別txt」を作り、下記のVBAで検索を試みましたがうまくいきません。

Me.Filter = "種別 Like '" & 種別 & "'" and "日付 Between #" & Me.[検索開始日] & "# And #" & Me.[検索終了日] & "#"

単純にandでつなげるだけではだめなのでしょうか。
どうか教えていただけないでしょうか。

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

• Me.Filter = "種別 Like '" & 種別txt & "'" and "日付 Between #" & Me.[検索開始日txt] & "# And #" & Me.[検索終了日txt] & "#
  の間違いでした。

    補足日時：2018/04/25 17:42

No.1 ベストアンサー 回答者： bonaron 回答日時： 2018/04/25 18:36

> 単純にandでつなげるだけではだめなのでしょうか。

回りくどいようですが、
いったん変数に入れるようにするのがデバッグのコツです。

Dim strFilter As String
strFilter = "種別 Like '" & 種別txt & "'" and "日付 Between #" & Me.[検索開始日txt] & "# And #" & Me.[検索終了日txt] & "#"
Debug.Print strFilter　'予定通りの文字列になっているかな？
Me.Filter = strFilter

「"# And #" 」の方はうまく文字列の中に入ったのにね。

他に問題があるかどうかは置いといて、

= "種別 Like '" & 種別txt & "' and 日付 Between ～

です。

この回答へのお礼

ありがとうございます。少し検索の理屈がわかった気がします。
問題が解決しました。
問題解決のコツもいただき、どうもありがとうございました。

お礼日時：2018/04/26 09:44