「access 自動反映（？）について」

質問

• テーブルAとテーブルBを使用したフォームで、入力したBnameの値と一致するテーブルAのcodeをBcodeに自動反映したい方法について教えてください。
• テーブルAにはnameとcodeの列があり、テーブルBを使用したフォームでBnameの値を入力すると、一致するテーブルAのnameのcodeをBcodeに自動で反映させたいです。
• テーブルAとテーブルBを組み合わせたフォームで、Bnameへの入力値と一致するテーブルAのnameのcodeを自動でBcodeに反映させたいです。具体的な方法について教えてください。

回答No.2

piroin654

一応、こちらで設定した方法を説明してみます。

(1)
新しいクエリをSQLビューにして以下のSQL文を
貼り付け保存します。

SELECT テーブルB.Bname, テーブルB.Bcode
FROM テーブルA RIGHT JOIN テーブルB ON テーブルA.name = テーブルB.Bname
WHERE (((テーブルA.name) Is Null));

名前を

Q差分

とします。

(2)
新しいクエリをSQLビューにして以下のSQL文を
貼り付け保存します。

INSERT INTO テーブルA ( name, code )
SELECT テーブルB.Bname, テーブルB.Bcode
FROM テーブルA RIGHT JOIN テーブルB ON テーブルA.name = テーブルB.Bname
WHERE (((Exists (SELECT * FROM テーブルB WHERE テーブルB.Bname = テーブルA.code))

=False));

名前を

Q追加

とします。

(3)
フォームの新規作成から、「基になるテーブルまたはクエリの選択」
でテーブルBを指定します。「オートフォーム　表形式」を選んで
「OK」とします。

(4)
出来たフォームを適当な名前で保存し、フォームをデザインビューで
開きます。マウスを詳細の上部に当て、マウスの矢印が十字になったら、
クリックして2～3cm下に下げます。残りのラベルもすべて選択して
下に下げます。

(5)
フォームの空いたスペースにボタンを一つ設定します。
そのボタンのクリック時のイベントに以下を設定
します。

ここでは、DAOを使っているのでコード表の
「ツール」から「参照設定」を選択し、
Mcrosoft DAO xx Object Library
にチェックを入れ、「OK」としてください。
xxは3.6のような数字です。

もし、もう一度参照設定を開いて、
Microsoft ActiveX Data Objects xx Library
よりも下になっていたらそれよりも上に↑ボタンで
引き上げて、「OK」としてください。
この場合のxxは2.1のような数字です。

Private Sub コマンド0_Click()
Dim db As Database
Dim rs As Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("Q差分")

If rs.RecordCount > 0 Then
DoCmd.OpenQuery ("Q追加")
End If
rs.Close: Set rs = Nothing
db.Close: Set db = Nothing
End Sub

コマンド0 はボタンの名前ですが、
実際に設定した場合は違う名前に
なっているかもしれません。

以上です。