ポップアップ画面から複数行あるサブフォームへの代入について

Question

###前提・実現したいこと
請求書を入力するフォームがあり、メインフォームには取引先の社名・住所・TELのテキストボックスがあり、サブフォームに請求書の明細行（品名・個数・税抜金額・消費税）があるようなフォームを作っています。

テキストボックスの入力欄はなるべくマスタを参照するように設計しており、取引先名のテキストボックスをダブルクリックすると、取引先マスタを一覧表示させたウインドウをポップアップで表示させ、選択行の社名や住所をメインフォームのテキストボックスに代入するようにVBAで組んでいます。

そこでサブフォーム内の明細行にある品名なども、ポップアップで表示させたマスタの一覧にある選択行の品名・税抜金額・消費税を、サブフォームに代入させたく思っているのですが、明細行の何行目にセットすればいいのかを判別できず全明細行に代入されてしまいます。

お手数お掛けしますが、ご存じの方いらっしゃれば、ご教授お願いします。

###発生している問題・エラーメッセージ

###該当のソースコード

' 品名
Forms!F_請求書入力!FS_請求明細.Form!txt_品名 = Me.txt_品名
' 税抜金額
Forms!F_請求書入力!FS_請求明細.Form!txt_税抜金額 = Me.txt_税抜金額
' 消費税
Forms!F_請求書入力!FS_請求明細.Form!txt_消費税 = Me.txt_消費税

※[Me.txt_〇〇〇]はポップアップで表示されたマスタ一覧画面です。

###試したこと

###補足情報(言語/FW/ツール等のバージョンなど)
Access2010、VBA、Windows10

Answer 1

品名・税抜金額・消費税を、サブフォームに代入させたく思っているのですが、明細行の何行目にセットすればいいのかを判別できず全明細行に代入されてしまいます。

サブフォームの品名・税抜金額・消費税の各テキストボックスが非連結（コントロールソースを設定していない）になってませんか。なっていないなら、連結（コントロールソースにフィールド名を設定）してください。

あと、データベースの設計には「テーブルの正規化」という原則があるのはご存知ですか。もしこのキーワードが初耳でしたら、一度WEB検索して内容を理解されることをお薦めします。

Comments

[退会済みユーザー]

おはようございます。　回答いただきありがとうございます。
非連結でないと、一覧表示しているポップアップウインドウのマスタ一覧から、値をセットできないと思っているのですが…。

[hatena19]

非連結では、各レコード毎に別の値を格納することはできません。
帳票フォームでレコード数分テキストボックスがあるように見えますが、
実際はテキストボックスは一つですので(デザインビューで確認してみてください)。

連結の場合は、テーブルのフィールドに値を格納できるので、各レコード毎に値を格納できます。
その値を帳票フォームの各レコード毎に表示しています。

ですので、帳票フォームの各レコード毎に値を表示させるには、レコードソースのテーブルに、品名・税抜金額・消費税のフィールドを持たせて、それとテキストボックスを連結します。そうすれば代入することができます。

ただし、明細テーブルに品名・税抜金額・消費税のフィールドも持たせるのは、「テーブルの正規化」という原則から外れた設計です（あえてそうする場合もありますが。）商品マスターの方に、品名・税抜金額・消費税を持たせて、クエリで参照するという方法が本来の方法です。

これらのことが理解できているかどうか、疑問があったので「テーブルの正規化」についてご存知ですか、と聞いています。

[退会済みユーザー]

テキストボックスのコントロールソースに、サブフォームのレコードソースに設定している[請求書明細tmpテーブル]の品名を設定することで、アクティブな明細行に[品名]をセットできるようになりました。
[コントロールソース]にフィールド名を設定するのは、照会画面等の場合のみ有効なものと思っていました。
ご教授いただきありがとうございました。

[退会済みユーザー]

「テーブルの正規化」については、過去に汎用機COBOL等の経験もあるので、『それなり』に知っているつもりです。