テーブルＡからテーブルＢへ条件によって値を代入したい

Question

現在、Access上でフォーム＋サブフォーム構成の台帳を作って運用しています。

フォーム上の情報はテーブルＡ、サブフォーム上の情報はテーブルＢに保存される形式です。

今回、フォーム上に1クリックでテーブルＢ→テーブルＡの情報を移動するマクロボタンを作ろうとして行き詰っています。

具体的にはテーブルＡの「台帳番号Ａ」、「項目Ａ」、テーブルＢの「年度Ｂ」、「台帳番号Ｂ」、「項目Ｂ」というフィールドを使って次のようなマクロを組みたいです。

①テーブルＢの全レコードのうち「年度Ｂ」が"H27"のものを探す。

②「年度Ｂ」が"H27"のレコードの台帳番号を「台帳番号Ｂ」、項目を「項目Ｂ」とする。

「台帳番号Ｂ」とおなじ台帳番号を持つテーブルＡのレコードを探す（そのレコードの台帳番号を「台帳番号Ａ」とする）

③「台帳番号Ａ」のレコードの「項目Ａ」に「項目Ｂ」の値を代入する。

Excelだとif関数とfor～next関数で簡単に書けそうなのですがAccessだとうまくいきません。

お手数ですがご教授の方をよろしくお願いします。

Answer 1

おかげさまでうまくいきました！

ありがとうございます！！

Answer 2

台帳番号Aおよび台帳番号Bの一意性が保証されていて、且つ、年度Bのデータ型が「短いテキスト」であるという仮定の下で

DoCmd.RunSQL "UPDATE テーブルA INNER JOIN テーブルB ON テーブルA.台帳番号A=テーブルB.台帳番号B SET テーブルA.項目A=テーブルB.項目B WHERE テーブルB.年度B='H27'"

なるVBAのコードで当該操作を実現できませんでしょうか？

参考にしたウェブサイト（英語）

https://social.msdn.microsoft.com/Forums/ja-JP/1b72c07c-3228-4f52-b2e4-30a56ba020a3/update-inner-join?forum=accessdev