こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

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

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

Private Sub 検索_Click()

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

End Sub

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

投稿日時 - 2012-10-24 15:10:20

QNo.7764028

すぐに回答ほしいです

質問者が選んだベストアンサー

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


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

投稿日時 - 2012-10-24 15:59:59

お礼

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

投稿日時 - 2012-10-25 10:03:45

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.2

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

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

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

とすれば元に戻ります。

投稿日時 - 2012-10-24 16:10:08

お礼

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

投稿日時 - 2012-10-25 10:05:15

あなたにオススメの質問