Access2000のDLOOKUPについて

質問

Access2000にて収支管理のＤＢを作成中です。
フォームのDLOOKUPの設定についてお聞きしたいのですが、

テーブル　「00_Account code」に 「Account code」と「Account code テキスト」があります。
これを 「01_収支テーブル入力_フォーム」にて「Account code」入力時に「00_Account code」テーブルから「Account code テキスト」抽出しようと思い下記のような式を入れています。

=DLookUp("[Account code テキスト]","[00_Account code]","[Account code] =[Forms]![01_収支テーブル入力_フォーム]![Account code] ")

しかしフォームにて[Account code]を入力してエンターをしても表示されず、一度フォームを閉じてから再度開くと表示されるという現象におちいっています。
これを入力→エンター時に表示させる方法はありますでしょうか？
何かの設定かと思うのですが・・・ぶつかっています。
どなたかお教え願えると助かります。よろしくお願いいたします。

回答No.1

paz777 · ベストアンサー

こんにちは。

Dlookupの
"[Account code] =[Forms]![01_収支テーブル入力_フォーム]![Account code] "
を
"[Account code] = '" & [Forms]![01_収支テーブル入力_フォーム]![Account code] & "'"
にすれば直るような気もするのですが、私ならイベントプロシジャで書きます。

まず、フォーム上の[Account code]のプロパティを開き、
「フォーカス喪失後」を「イベントプロシジャ」として以下のコードを書きます。
--------------------------------------------------------------------------------
Private Sub Account_code_LostFocus()
'
Me![Account code Text] = DLookup("[Account code Text]", _
"[01_Account code]", "[Account code] = '" & Me![Account code] & "'")
'
End Sub
--------------------------------------------------------------------------------

ではでは・・・

お礼

paz777さん、
ありがとうございました。
どちらの方法でも解決しました。