テキストボックスから一致したデータを抽出したい。

質問

初心者です。Access2003で、
(1)テーブルで「氏名」、「住所」のデータを作成。
(2)フォームでテキストボックス（txt_入力）とコマンドボタンを作成。
(3)押下時で開くようなフォームを作成（F_データリスト）

テキストボックス（txt_入力）に氏名を入力し、テーブルと一致したものだけを抽出したい。
以下のように記述するとコマンド45押下でパラメータの入力画面がでてしまします。助けてください。

Private Sub コマンド45_Click()
On Error GoTo Err_コマンド45_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "F_データリスト"

stLinkCriteria = "[氏名]=" & " Me![txt_入力]"

DoCmd.OpenForm stDocName, , , stLinkCriteria

以下省略。

回答No.1

papayuka · ベストアンサー

ACCESSは詳しくありませんが、、、

""で括ると変数では無く文字列になってしまいます。
stLinkCriteria = "[氏名]=" & " Me![txt_入力]"　の部分を

MsgBox "[氏名]=" & " Me![txt_入力]"

としてみると表示されるのは　[氏名]= Me![txt_入力]　ですよね？

MsgBox "[氏名]=" & "'" & Me!txt_入力 & "'"
にすると表示されるのは　[氏名]= '入力した値'　です。

stLinkCriteria = "[氏名]=" & "'" & Me!txt_入力 & "'"

だと如何でしょうか？

お礼

解決しました。
ありがとうございました。