ACCESS フォームの入力で

質問

フォームの入力でコード番号を入力すると項目が自動入力出来るようにしたくて
2つ目のテキストボックスのコントロールソースに=DLookUp("[商品名]","テーブル2","[商品コード] = [コード] ")と入力したのですが
1つ目のテキストボックスに入力すると
そのときは2つ目のテキストボックスは白紙で
一度フォームを閉じてから立ち上げると2つ目のテキストボックスにも入力されています。
これは閉じないと入力されないのでしょうか？
1つ目を入力した後に表示されるようにしたいのですが・・・。
よろしくお願いします。

回答No.1

Dxak · ベストアンサー

こんばんは～。

えっと、よく陥る罠ですね。
その前にAccのバージョンは、幾つでしょう？
バージョンによっては１つ目の問題だけの可能性もありますが・・・。

１つ目の問題は、テーブルのフィールドとフォームのコントロールが、すべて同じ値が入っていると勘違いの部分です。
別の変数で、タイミングによって、
フォームのコントロール
↓
テーブルのフィールド
と更新していきます。
まず、数値を入れてレコードを保管する前ですと、フォームのコントロール上に値があるだけで、Ｄ関数でテーブルのフィールドに値を探したところで、見つかるわけがありません。
これは、Ａｃｃ２００２でもＶＢＡでデバッグするとバグで出てくるくらいですから、結構覚えておかないとデバッグで混乱します。

２つ目はＡｃｃのバージョンによって違いましたが、Ｄ系の関数は、フォームのコントロールは再計算をマクロとか、メニューで指示を出さないと再計算しません。

この２つの問題を、１つづつ解決して・・・となると大変なので、フォームではＤ系の関数を使用せず、フォームのレコードソース等で、関数を使用しないように回避する方が宜しいかと思います。

そちらの方法、わかりますか？

回答No.3

O_cyan

テーブル２には商品のレコードが保存してあるのですよね。（テーブルになければ表示できません）
フォームには商品コードをいれる[コード]・[２つ目のTextBox]があるということですが２つ目のテキストボックス名は商品名ではないですねよ。参照しているテーブル２の商品名と同じ名前のコントロールでは循環参照して正しく表示できません。

コードがテキストなら
=DLookUp("[商品名]","テーブル2","[商品コード] ='" & [コード] & "'")
数値の場合
=DLookUp("[商品名]","テーブル2","[商品コード] =" [コード])
でフォーム上の２つ目のテキストボックスに表示できます。
別の方法：
フォームのレコードソースでSQLスタートメントを開きフォームのレコードソースにテーブル２を追加して[商品コード]と[コード]をリレーションさせ（リレーションを取っていれば自動で表示されますが）クエリのフィールドに元になるテーブルのフィールド全て(*)とテーブル２の商品名を追加して閉じフォームの２つ目のテキストボックスのコントロールソースに商品名を選択する方が簡単です。
ただしどちらの方法でもあくまでフォーム上の表示だけですが。
>自動入力出来るようにしたくて
とありますが入力フォームのレコードソースとしているテーブルに商品名は保存しないのですよね。ご存知とは思いますが上記の方法では保存できません。まァコードがあれば商品名はテーブル２以外は必要ありませんよね。

回答No.2

sanbit

フォームの1つ目のテキストボックスにコード番号入力すると2つ目のテキストボックスにテーブル2の商品名を表示されるようにすると言うことでしょうか？
コード番号のテキストボックスのプロパティ→イベントタブの更新後処理に
me!商品名=DLookUp("[商品名]","テーブル2","[商品コード] = [コード] ")
とするとフォームのテキスト2に商品名を表示してくれます。
ほかのほうほうもあるかと・・・
ご質問の趣旨と違っていたらごめんなさい。