Accessでチェックしたらサブフォームもチェック

質問

T_マスタテーブル
・ID
・氏名
・チェック

T_サブテーブル
・ID
・住所
・チェック

となっていて、それぞれフォームを作成していて、
F_マスタフォームの中にF_サブフォームが入っています。
(IDでリンク)

マスタテーブルに
1001　　山田 太朗　　
というデータがあったとすると
サブには
1001　東京都***
と入っているのですが、
サブは1人につき、1件とは限らず、
1001　東京都渋谷区***
1001　東京都新宿区***
1001　埼玉県さいたま市***
となっていることもあります。

F_マスタフォームのチェックの「更新後処理」に

Private Sub チェック_AfterUpdate()
If チェック = True Then
[Form]![F_サブフォーム]![チェック] = True
Else
[Form]![F_サブフォーム]![チェック] = False
End If
End Sub

と入っていて、F_マスタの方にチェックをすればF_サブのほうにもチェックが
入るようにしたいのですが、
1件目しかチェックがされません。
IDが同じもののチェックにはすべてチェックがされるようにするには
どのようにかけばいいのでしょうか？

宜しくお願いします。

Ac2000です。

回答No.2

yoisho

まず、ご質問への回答ですが、

フォーム上の連結コントロールの値は、カレントレコードについてしか操作できませんので、サブフォームの１件目にしかチェックが入らないのは、仕方ないことです。
（ためしに、サブフォームの２件目にフォーカスを移動してからメインフォームにチェックを入れれば、サブの２件目にチェックが入るのがわかると思います。）

ご希望のことをするには、アクション（更新）クエリーでも使って、［T_サブテーブル］のデータを直接書き換えてしまうのが簡単だと思います。
（多少画面のレスポンスは悪くなりますが、GotoRecordでサブフォームのカレントレコードを順番に移動して全てを処理するよりは、ずっとシンプルです。）

具体的には、以下のようにすればできると思います。
Private Sub チェック_AfterUpdate()
DoCmd.RunSQL ("UPDATE T_サブテーブル SET チェック = " & _
CStr(Me![チェック]) & " WHERE ID = " & CStr(Me![ID]))
Me![F_サブフォーム]. Refresh
End Sub

さて確認ですが、KODAMARさんのなさりたいことは、以下でよろしいのでしょうか。
（もし、私の勘違いがありましたらお許しください。）
○［T_マスタテーブル］から、マスターフォームでチェックをしたレコードの“ID”、“氏名”のデータを［T_削除マスタテーブル］へ移動する。
○さらに、［T_サブテーブル］から、対応する ID のレコードの“ID”、“住所”のデータを［T_削除サブテーブル］へ移動する。

以上で間違いなければ、元のテーブルのチェックフィールドは全て False、削除テーブルは全て True となりますので、いずれのテーブルのチェックフィールドも最終的には必要ないように思います。
（移動処理のために［T_マスタテーブル］のチェックを一時的に利用するなら、これはあっても良いかもしれませんが、（tatezooさんと同じ意見ですが、）少なくとも［T_サブテーブル］のチェックは不要では？）

例えば［T_削除サブテーブル］への追加でしたら、［T_サブテーブル］にチェックフィールドがなくでも、以下の追加クエリー（ＳＱＬステートメント）で可能です。
DoCmd.RunSQL ("INSERT INTO T_削除サブテーブル ( ID, 住所 )” & _
“ SELECT T_サブテーブル.ID, T_サブテーブル.住所” & _
“ FROM T_マスタテーブル INNER JOIN T_サブテーブル” & _
“ ON T_マスタテーブル.ID = T_サブテーブル.ID” & _
“ WHERE チェック = True”)

私の勘違いやＳＱＬの疑問などがありましたら、補足でコメントをお願いします。

お礼

＞○［T_マスタテーブル］から、マスターフォームでチェックをしたレコードの“ID”、“氏名”のデータを［T_削除マスタテーブル］へ移動する。
＞○さらに、［T_サブテーブル］から、対応する ID のレコードの“ID”、“住所”のデータを［T_削除サブテーブル］へ移動する。

はい、その通りです！
それをやりたいんです。

DoCmd.RunSQL ("INSERT INTO T_削除サブテーブル ( ID, 住所 )” & _
“ SELECT T_サブテーブル.ID, T_サブテーブル.住所” & _
“ FROM T_マスタテーブル INNER JOIN T_サブテーブル” & _
“ ON T_マスタテーブル.ID = T_サブテーブル.ID” & _
“ WHERE チェック = True”)

これは追加クエリーの
ＳＱＬビューで入力すればいいんですか？
（間違ってたらごめんなさい。）

すると「SQLステートメントが正しくありません」ってでてしまうんですが。。。

宜しくお願いします。