Microsoft Access 掲示板

お返事遅くなり申し訳ございません。

メインフォームにサブフォーム１があり、サブフォーム２がサブフォームに連動（親/子フォールドで連結）されています。ヘッダにある検索条件でサブフォームのデータを抽出します。その状態で、抽出済みのレコードに対して、
対象フラグというYes/No型のフィールドにチェックをするというコマンドボタンのアクションで、チェックを付すロジックでのご相談です。検索フィールドでの選択の値を拾えばSQLは再現できるのですが、サブフォームコントロール状で、
直接フィルタをされた場合、SQLが生成できないため、一応、このような方法で検討しています。

Private Sub 全て選択_Click()

    CurrentDb.Execute "update Qry_対象者 set 対象フラグ=false", dbFailOnError

    Set rs = Me.Controls("subForm1").Form.Recordset

    Me.Painting = False

    rs.MoveLast
    rs.MoveFirst

    Do Until rs.EOF

        rs.Edit
            rs![対象フラグ] = True
        rs.Update

        rs.MoveNext

    Loop

    Me.Painting = True

    Me.Controls("subForm1").Form.Requery

End Sub