Access Dlookup関数について

Dlookupで悩んでいます。
ExcelのVlookと違い、“数字”のコードでなければ引っ張ってこれないのでしょうか？
以下、がその内容です。
「T_得意先マスタ」の得意先コードフィールドに aaa というコードがあり、得意先名フィールドに　○○商事 とあります。
どうやってもできないのです。
なぜか、aaa ではなく、数字（例. 123)にすると出ます。
教えてください。

Private Sub 得意先コード_AfterUpdate()
Dim a As Variant, b As String
b = "得意先コード = " & Me![得意先コード]
a = DLookup("得意先名", "T_得意先マスタ", b)
If IsNull(a) = True Then
Me.テキスト1.Value = "該当がありません。": Me![得意先コード] = Null
Else
Me.テキスト1.Value = a
End If
End Sub

No.1 ベストアンサー 回答者： boc-ian 回答日時： 2009/09/08 02:14

つまり得意先コードというのはテキスト型なのでしょうか。

そうであれば、

b = "得意先コード = '" & Me![得意先コード] & "'"

として試してみてください。
Where条件で、テキスト型の定数はアポストロフィ(')で囲みます。

この回答へのお礼

できました！
すごいです！
感謝しています！！
ありがとうございました。

お礼日時：2009/09/08 22:52