![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
サブフォームはデータシート形式です。
メインフォームは受注フォーム。サブフォームは受注明細フォームです。
サブフォームのソースは受注明細テーブルです。
サブフォームに商品コードのコンボボックスがあって選択すると
該当する商品名、販売価格を商品マスタテーブルから検索して表示
したいので以下のようにためしてみました。
Private Sub 商品コード_AfterUpdate()
'
' 商品名 = DLookup("商品名", "T_商品マスタ", "商品コード='" & 商品コード & "'")
' 販売価格 = DLookup("販売価格", "T_商品マスタ", "商品コード='" & 商品コード & "'")
商品名 = 商品コード.Column(1)
販売価格 = 商品コード.Column(2)
End Sub
そうすると、商品コードを選択すると商品名と販売価格が
全行同じものに変わってしまいます。
どうすればよいでしょうか?
ご教示していただけませんでしょうか?
よろしくお願い致します。
No.1ベストアンサー
- 回答日時:
>全行同じものに変わってしまいます。
非連結のコントロールに値を代入すればそうなります
そもそも
>商品コードのコンボボックスがあって選択すると
>該当する商品名、販売価格を商品マスタテーブルから検索して表示したい
これが目的なら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_受注明細.商品コード
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAで最新のデータを別シートに転記する方法をお教えください。 3 2022/04/07 19:20
- Visual Basic(VBA) VBAで質問があります 1 2022/10/19 10:32
- その他(Microsoft Office) Excelで総数量を変動させたい 2 2022/11/04 23:49
- その他(買い物・ショッピング) JANコードの登録について 1 2022/07/23 14:19
- 経営情報システム accessでの請求管理について 12 2022/06/11 16:20
- Excel(エクセル) VBA でvlookup エラーなどは削除したい 8 2022/12/30 04:03
- Visual Basic(VBA) VBAコードで質問があります 2 2022/10/20 15:27
- その他(Microsoft Office) Excelで該当しない項目(#N/Aの商品名)を簡単に表示・抽出させる方法についてです 1 2022/08/25 22:12
- Visual Basic(VBA) EXCEL関数LOOKUPとFILTERについての質問です 1 2022/12/21 05:53
- Excel(エクセル) エクセル count関数で出てきた数だけの行数をリンクで参照する 3 2022/08/10 12:02
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
Access サブフォームでの選択行の取得
その他(データベース)
-
フォームを開くときに、コンボボックスの値を選択(アクセスVBA)
Visual Basic(VBA)
-
-
4
ACCESS フォームでの、データシートビューで表示できない
Access(アクセス)
-
5
Access2003 クエリで、空の列は作れますか?
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「直需」の意味を教えてください
-
Access:サブフォームのレコー...
-
作番ってどういう意味でしょうか?
-
データシート形式のサブフォー...
-
マクロ転記で指定した列の最終...
-
Excel 2019 のピボットテーブル...
-
セルの右クリックで出る項目を...
-
エクセルVBAで5行目からオート...
-
Accessクエリーで両方のテーブ...
-
異なるサーバのDBデータ同士を...
-
ACCESSのクエリで集計で、先頭...
-
Accessでテーブルの値をテキス...
-
Accessでテーブル名やクエリ名...
-
Vbaでアクセスからエクセルにリ...
-
access テーブル内のレコード...
-
Accessでコードを入れると名前...
-
ワードでの単純作業の効率化に...
-
ACCESS で マクロの中でフィ...
-
変数が選択リストにありません
-
Oracleのビュー作成時に「指定...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「直需」の意味を教えてください
-
作番ってどういう意味でしょうか?
-
「失注」の意味を教えてくださ...
-
ACCESSで、DMax関数の条件の書き方
-
Access:サブフォームのレコー...
-
アクセスで営業日を計算させる...
-
ACCESS 選択した値を別...
-
アクセスのクエリで、前回に入...
-
マクロ転記で指定した列の最終...
-
受注受付期間とはなんですか?...
-
Accessの受注発注について
-
フォーム入力、更新後処理で指...
-
会社 ファイルの収納
-
データシート形式のサブフォー...
-
EXCEL 最終行に入力するマクロ
-
通販サイトの運用の問題点は?
-
VBA でvlookup エラーなどは削...
-
エクセル・スプレッドシートで...
-
更新クエリの日付抽出方法について
-
ACCESS 受注数の集計について
おすすめ情報