データシート形式のサブフォームでコンボボックスでの入力がうまくいかない

質問

サブフォームはデータシート形式です。
メインフォームは受注フォーム。サブフォームは受注明細フォームです。
サブフォームのソースは受注明細テーブルです。
サブフォームに商品コードのコンボボックスがあって選択すると
該当する商品名、販売価格を商品マスタテーブルから検索して表示
したいので以下のようにためしてみました。

Private Sub 商品コード_AfterUpdate()
'
' 商品名 = DLookup("商品名", "T_商品マスタ", "商品コード='" & 商品コード & "'")
' 販売価格 = DLookup("販売価格", "T_商品マスタ", "商品コード='" & 商品コード & "'")
商品名 = 商品コード.Column(1)
販売価格 = 商品コード.Column(2)

End Sub
そうすると、商品コードを選択すると商品名と販売価格が
全行同じものに変わってしまいます。
どうすればよいでしょうか？
ご教示していただけませんでしょうか？
よろしくお願い致します。

回答No.1

CHRONOS_0 · ベストアンサー

>全行同じものに変わってしまいます。
非連結のコントロールに値を代入すればそうなります

そもそも
>商品コードのコンボボックスがあって選択すると
>該当する商品名、販売価格を商品マスタテーブルから検索して表示したい
これが目的ならVBAやDLookup関数など持ち出さず
サブフォームのソースを受注明細と商品マスタを商品コードで
結合したクエリにすれば済む話ですね

お礼

ありがとうございます。
さっそくためしてみます。

補足

ありがとうございます。
受注明細フォームのソースをクエリにしたところうまくいきました。
ですが、これをアップサイジングウィザードでADPファイルにするとクエリが更新不可になってしまい非常に困っています。
どうか解決方法をご教授いただけませんでしょうか。
よろしくお願い致します。

AccessのクエリとSQLサーバーのクエリは以下になります。

SELECT T_受注明細.商品コード, T_商品マスタ.商品名, T_商品マスタ.販売価格, T_受注明細.数量, T_商品マスタ.販売価格*T_受注明細.数量 AS 小計, T_受注明細.受注番号
FROM T_商品マスタ INNER JOIN T_受注明細 ON T_商品マスタ.商品コード = T_受注明細.商品コード;

上のクエリをアップサイジングウィザードでビューにしたのが以下です。
SELECT dbo.T_受注明細.商品コード, dbo.T_商品マスタ.商品名, dbo.T_商品マスタ.販売価格, dbo.T_受注明細.数量, dbo.T_商品マスタ.販売価格 * dbo.T_受注明細.数量 AS 小計, dbo.T_受注明細.受注番号
FROM dbo.T_商品マスタ INNER JOIN dbo.T_受注明細 ON dbo.T_商品マスタ.商品コード = dbo.T_受注明細.商品コード