ACCESSの帳票フォームで、複数のテキストボックスからあいまいなキーワードを指定してレコードを抽出

Question

ACCESSの帳票フォームで複数のテキストボックスからあいまいなキーワードを指定し、
レコードを抽出したいのですが、下記コードで実行するとエラーとなります。
何が原因となりますでしょうか？

Private Sub btn_1_Click()

   Dim strFilter As String

    If Me.tx1 <> "" Then
        strFilter = strFilter & " And Use_Place_la '*" & Me.tx1 & "*'"
    End If
    If Me.tx2 <> "" Then
        strFilter = strFilter & " And Class_1_la '*" & Me.tx2 & "*'"
    End If

    Me.Filter = Mid(strFilter, 6)
    Me.FilterOn = strFilter <> ""


End Sub

エラーメッセージ

ラベル名：Use_Place_la
テキストボックス名：tx1

ラベル名：Class_1_la
テキストボックス名：tx2

ご教授よろしくお願いします。

Answer 1

ぱっとみですけどlikeがないのでは？

strFilter = strFilter & " And Use_Place_la like '*" & Me.tx1 & "*'"

Comments

[YISS]

下記の様にコードを変えてみたところ、エラーメッセージは出なくなりましたが、
抽出の結果が、何もなしになってしまいます。

Private Sub btn_1_Click()
Dim strFilter As String
If Me.tx1 <> "" Then
strFilter = strFilter & " And Use_Place_la like '*" & Me.tx1 & "*'"
End If
If Me.tx2 <> "" Then
strFilter = strFilter & " And Class_1_la like '*" & Me.tx2 & "*'"
End If
Me.FilterOn = strFilter <> ""
End Sub

[sousuke]

Me.Filter = Mid(strFilter, 6)
はどこにいったんですか？下から３行目のEnd Ifの後にあったはずですが。

あとはstrFilterの中身を確認するべきかと思います。
ブレークポイントなどを設定して値を確認してください。
適当ば部分にdebug.print strFilterと入れてもいいです。

Filterを使わずに帳票フォームのレコードソースで処理する方法もあります。

[YISS]

すみません。切り貼りしてるときに、Me.Filter = Mid(strFilter, 6)の表記が抜けてしまいました。
色々、見直した結果、下記コードで、問題なく動作できました。
ありがとうございました。

Private Sub btn_1_Click()
Dim strFilter As String

　If Me.tx1 <> "" Then
　　strFilter = strFilter & " And Use_Place_la like '*" & Me.tx1 & "*'"
　End If
　If Me.tx2 <> "" Then
　　strFilter = strFilter & " And Class_1_la like '*" & Me.tx2 & "*'"
　End If

　Me.filter = Mid(strFilter, 6)
Me.FilterOn = True
End Sub