Accessの絞りこみについて教えて下さい。

質問

Access初心者です。顧客テーブルがあり、名前で絞りこみをかけたいのですが、エラーになってしまい困っています。

顧客テーブルからフォームを作り、フォームヘッダーにテキストボックスとボタンを作成しました。
絞り込みは苗字でもHITするようにし、テキストボックスには名前を入力、ボタンで絞り込みをかけるというかたちです。。
テキストボックス名は検索用、ボタンの名前は検索にしています。
そこで下記VBAコードを入力したところ、パラメータが出てきてしまい、絞り込み出来ません。

Private Sub 検索_Click()

Me.RecordSource = "select * from 顧客リスト where 氏名 like ‘*" & 検索用 & "*’"

End Sub

どうしたらよいでしょうか？
教えて下さい。
よろしくお願いします。

回答No.1

piroin654 · ベストアンサー

>"select * from 顧客リスト where 氏名 like ‘*" & 検索用 & "*’"

"select * from 顧客リスト where 氏名 Like '*" & Me!検索用 & "*'"

お礼

ご回答ありがとうございます。piroin654様のに変更したら、出来ました。
ありがとうございました。

回答No.2

jacob-wk9

実機で試してないのでちょっと保証ないですが、
filterを使えば上手くいくのではないでしょうか。

Me.Filter = "氏名 like '" & Me!検索テキストボックス & "'"
Me.FilterOn = True

解除ボタンも作って
Me.FilterOn = False

とすれば元に戻ります。

お礼

ご回答ありがとうございます。
このようなやり方もあるのですね。大変参考になります。
ありがとうございました。