サブフォームはデータシート形式です。
メインフォームは受注フォーム。サブフォームは受注明細フォームです。
サブフォームのソースは受注明細テーブルです。
サブフォームに商品コードのコンボボックスがあって選択すると
該当する商品名、販売価格を商品マスタテーブルから検索して表示
したいので以下のようにためしてみました。
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も見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
Access サブフォームでの選択行の取得
その他(データベース)
-
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
フォームを開くときに、コンボボックスの値を選択(アクセスVBA)
Visual Basic(VBA)
-
-
4
ACCESS VBAサブフォーム(DATA SHEET)の値の取得方法
Visual Basic(VBA)
-
5
ACCESS フォームでの、データシートビューで表示できない
Access(アクセス)
-
6
Accessの条件付き書式設定で、複数の条件が一致した時の書式を設定したい
その他(Microsoft Office)
-
7
Access2003 クエリで、空の列は作れますか?
Access(アクセス)
-
8
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
9
Accessのフォーム上にエクセルのシートを表示させたい!
Visual Basic(VBA)
-
10
Access でレコードセレクタが押されたときのイベントは?
その他(プログラミング・Web制作)
-
11
MS Accessでフォームの「開く時」と「読込み時」のイベントの違い
Access(アクセス)
-
12
Access コンボボックスの値をクリアしたい。
PowerPoint(パワーポイント)
-
13
ACCESSで条件によってフォーム上のフィールドの色を変更
Access(アクセス)
-
14
他のフォームから別のフォームのサブルーチンを呼び出す
Visual Basic(VBA)
-
15
アクセスVBAのMe!と[ ]
Access(アクセス)
-
16
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
17
サブフォームの行ごとにコンボボックスの表示項目を変更する方法が知りたいです
Visual Basic(VBA)
-
18
Accessの画面更新を一時的に停止する方法。
その他(データベース)
-
19
Access コンボボックスに空のレコードを表示しない方法
Access(アクセス)
-
20
ACCESSでコンボボックスにSQLで抽出した値を表示したい
その他(データベース)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「直需」の意味を教えてください
-
作番ってどういう意味でしょうか?
-
「失注」の意味を教えてくださ...
-
Accessの受注発注について
-
Excelにて複数の受注残を計算す...
-
ACCESSで、DMax関数の条件の書き方
-
Excel 2019 のピボットテーブル...
-
エクセルVBAで5行目からオート...
-
Accessでテーブル名やクエリ名...
-
Oracle 2つのDate型の値の差を...
-
Accessクエリでの、LIKE条件
-
ExcelのデータをコピーでACCESS...
-
Accessのリンクテーブルのパス...
-
ORACLEでLONG項目からCHAR項目...
-
アクセスのコンボボックスのデ...
-
エクセルグラフの凡例スペース
-
Accessでコードを入れると名前...
-
Access テキスト型に対する指定...
-
異なるサーバのDBデータ同士を...
-
テーブルの存在チェックについて
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「直需」の意味を教えてください
-
作番ってどういう意味でしょうか?
-
「失注」の意味を教えてくださ...
-
アクセスで営業日を計算させる...
-
受注受付期間とはなんですか?...
-
Access:サブフォームのレコー...
-
マクロ転記で指定した列の最終...
-
ACCESSで、DMax関数の条件の書き方
-
access 1対1と1対多のテーブ...
-
フォームにレコード数を表示したい
-
VBA でvlookup エラーなどは削...
-
アクセスのクエリで、前回に入...
-
データシート形式のサブフォー...
-
Accessの受注発注について
-
ACCESS 受注数の集計について
-
ACCESS 選択した値を別...
-
excelマクロの処理を早くしたい...
-
ACCESSの同時にデータ入力★初心...
-
ACCESS2000の帳票フォーム詳細...
-
Excelにて複数の受注残を計算す...
おすすめ情報