Accessのサブフォームから別のサブフォームにコピーしたい

Question

Accessのサブフォームから別のサブフォームにコピーするために、
下記のようにしました。

Forms![f_B]![f_Bサブフォーム].Form![te_商品] = Forms![f_A]![f_Aサブフォーム].Form![te_商品]
Forms![f_B]![f_Bサブフォーム].Form![te_数量] = Forms![f_A]![f_Aサブフォーム].Form![te_数量]

サブフォームが1行の場合はコピーできました。
しかし、複数ある場合も、最初の1行しかコピーされません。

f_A.Form.Recordset.RecordCountで、サブフォームの行数を調べることができるようです。
そこで、whileを使って、サブフォームのデータをコピーできないかと考えているのですがやり方がわかりません。
Accessのサブフォームから、別のサブフォームにコピーするにはどうすればいいのでしょうか。
よろしくお願いします。

Answer 1

言葉で説明すると伝わりづらいですが、f_Aサブフォームが取り扱っている明細テーブルAから、f_Bフォームが指定する伝票コードで絞り込んだクエリを作ります。
そして、そのクエリ内容をf_Bサブフォームが取り扱っている明細テーブルBにインサートします。追加クエリかマクロかを用意し、f_Bフォーム上の実行ボタンででも作動させます。そうすれば自動的にf_Bサブフォームに表示されます。
その伝票コードを追加クエリやマクロに渡すことができるかが鍵でしょう。

Comments

[d_neko]

ありがとうございます。なんとなくわかったような気がします。たぶん。