複数条件のフィルタができない

質問

マイクロソフトアクセスです。

アクセスで親フォームからサブフォームへフィルタをかけたいのですが

Sub フィルタ()

With Forms("F_親フォーム").Controls("SF").Form

.Filter = "カテゴリ like'" & Forms("F_親フォーム").Controls("cmd_カテゴリ").Value & "' and " _
& "施設名 like '" & Forms("F_親フォーム").Controls("txt_施設名").Value & "'"
.FilterOn = True
End With

End Sub

だとうまくできません。

With Forms("F_親フォーム").Controls("SF").Form

.Filter = "カテゴリ like'" & Forms("F_親フォーム").Controls("cmd_カテゴリ").Value & "' or " _
& "施設名 like '" & Forms("F_親フォーム").Controls("txt_施設名").Value & "'"
.FilterOn = True
End With

これならフィルタされるのですが、
どちらかだけになってしまいます。

.Filter = "カテゴリ like'" & Forms("F_親フォーム").Controls("cmd_カテゴリ").Value & "' and " _
& "施設名 like '" & Forms("F_親フォーム").Controls("txt_施設名").Value & "'"

の文法がおかしいのだと思うのですが、どこが変ですか？

回答No.1

NotFound404 · ベストアンサー

～前略
debug.print .filter
.FilterOn = True
End With

と１行追加し、イミディエイトウィンドウに出力された値を確認してみてください。
and の前に半角スペースが無さそうです。
あと、蛇足かもしれませんが Like 演算子を使っているのにワイルドカードは使用していませんね。
= で十分のような気がしますけど。

お礼

ご回答ありがとうございました。