Microsoft Access 2000

質問

２つのフォームで一方の値をもう一方のフォームに代入したいのです。

方法はコマンドボタンを押すことによって、ＡフォームからＢフォームに２項目同時に同じレコードに代入したい。コマンドボタンに“値の代入マクロ”を設定します。

Ａフォーム　代入したい項目のデータ型＝２つともオートナンバー型（ＡＮ項目，ＡＧ項目）
　　レイアウト＝２つともリストＢＯＸ（１列目がＡＮ項目，ＡＧ項目）

Ｂフォーム　代入されたい項目のデータ型＝２つとも長整数型（ＢＮ項目，ＢＧ項目）
　　レイアウト＝２つともテキストＢＯＸ

現状はＡフォームの２つの項目のどちらか１つしか代入できません。
Ａフォームの代入したい項目は新レコードではなく、既にデータが入力されているレコードのＩＤをＢフォームの新レコードに代入したいのです。
コマンドボタンを押すとエラーは表示されず、フォームは正常に閉じます。しかし、テーブルを見るとどちらか一方のレコードにはデータが入力されていないのです。

代入されたいＢフォームは、常に新レコードで主キーは設定していません。Ｂフォームに代入されるＡＮ項目・ＡＧ項目の値は、その他のレコードの値と重複しています。

いきずまって困っているので、みなさんの力をお借りできたらと思って書き込みました。イメージが湧きにくいとは思いますが、よろしくお願いします。

回答No.1

hamha

Aフォーム、Bフォーム共開いた状態で
Aフォームのリストボックスの名前が「リスト0」とした場合

“値の代入マクロ”
-------------------------------------------------
アクション　値の代入

アクションの引数
アイテム：[Forms]![Bフォーム]![BN]
式　　　：[Forms]![Aフォーム]![リスト0].[Column](0)
-------------------------------------------------
アクション　値の代入

アクションの引数
アイテム：[Forms]![Bフォーム]![BG]
式　　　：[Forms]![Aフォーム]![リスト0].[Column](1)
-------------------------------------------------

これでＯＫです。

お礼

お答え頂いてありがとうございます。試してみましたが駄目でした。
原因が何なのか不明です。解決できなかったので点数は付けませんでした。
ご了承願います。また機会がありましたら回答の方、よろしくお願いします