Access2010 DLookup 関数で！

質問

店舗を管理するデータベースをAccess2010で、
テキストボックスを二つ作り　1.にｓ店舗no　・2.にs店舗名を作り
店舗NO・店舗名のどちらかに入力すれば検索する「イベントプロシージャ」を書きました。
[イミディエイト]ウィンドウを開きながら構文しましたが、[イミディエイト]ウィンドウ
では、うまく作動しますが、イベントロシージャで実際に組みますと「コンパイルエラー：構文エラー」
と表示されます。どこが間違っているのかわかりません。
何方か教えて頂けませんでしょうか？
宜しくお願い致します。

Private Sub s店舗no_LostFocus()

If Not IsNull(s店舗no) Then
'DLookup("店舗名","t店舗","[店舗no]= forms![ft店舗seach]![s店舗no]")
DLookup("[店舗名]","[t店舗]","[店舗no]="& Forms![ft店舗seach]![s店舗no])

End If
End Sub

[イミディエイト]ウィンドウ
? DLookup("[店舗名]","[t店舗]","[店舗no]="& Forms![ft店舗seach8]![s店舗no])
梅が丘店
相模原鵜野森店
?DLookup("店舗名","t店舗","[店舗no]= forms![ft店舗seach8]![s店舗no]")
梅が丘店
相模原鵜野森店

回答No.2

nicotinism · ベストアンサー

イミディエイトウィンドウでの、?DLookup・・・はDlookupの戻り値を表示せよ、という意味です。
Print DLookup・・・ の省略です。
一方、Private Sub s店舗no_LostFocus()では
Dlookupの戻るところがありませんのでエラーになります。
通常は
変数 = DLookup("[店舗名]","[t店舗]","[店舗no]="& Forms![ft店舗seach]![s店舗no])
などと使用します。
また、ヘルプをご覧になれば
「criteria に適合するレコードがない場合や、domain にレコードが含まれていない場合は、Null 値が返されます。」
とも記載されています。
加えて、s店舗no がフォーカスを失うごとにDLookupで調べるよりも
更新後に行った方がベターかと思います。
具体的に何をしたいのかよく分かりませんが

Private Sub s店舗no_AfterUpdate()
dim へんすう as string
If Not IsNull(s店舗no) Then
msgbox nz(DLookup("店舗名","t店舗","店舗no="& Forms!ft店舗seach!s店舗no),"見つからない")
へんすう = nz(DLookup("店舗名","t店舗","店舗no="& Forms!ft店舗seach!s店舗no),"見つからない")
debug.print へんすう
End If
End Sub

のような感じでは？
なお、オブジェクト名やテーブル名などに、
スペースが含まれていたり、予約語である場合を除いて、[] で囲まなくとも可。
http://support.microsoft.com/default.aspx?scid=kb;ja;286335
nz関数で括るのは余計かもしれない。。

お礼

ありがとうございます。実は、ほかにテキストボックスを作成してｓ店舗noを入力したときに店舗名を表示させ、店舗noがどの店舗名なのか確認するためにテキストボックスに表示をさせたかったのです。ｓ店舗noから店舗のデータを全部表示させておりますが、新人が未だ店舗noをよく覚えていないために要請されておりました。DoCmd.SearchForRecord , , acFirst, "ｓ店舗no　Like '*" & Me!s店舗no & "*'"で処理しておりました。これでDｌookup関数がわかりました。

回答No.1

osamuy

> DLookup("[店舗名]","[t店舗]","[店舗no]="& Forms![ft店舗seach]![s店舗no])

msgbox DLookup("[店舗名]","[t店舗]","[店舗no]="& Forms![ft店舗seach]![s店舗no])

――にしてみるとか。説明略。

お礼

ありがとうございました。戻り値が必要な関数だったのですね！