［Access VBA］サブフォーム（帳票フォーム）のレコードすべての値を一括で変更する

サブフォームを使用しているフォームで、サブフォーム（帳票フォーム）に表示されているレコードについて、何かの値を一括で変更する方法はない。そのような場合は、先頭レコードから最終レコードまで順番に変更する必要がある。

以下に、先頭レコードから最終レコードまで順番に処理をする例を示す。帳票フォームで各レコードに「数値」というテキストボックスがあり、そのテキストをすべて「A」にする。

Private Sub 一括処理_Click()
    DoCmd.GoToRecord , , acFirst
    Do While Me.CurrentRecord <= Me.Recordset.RecordCount
        Me.数値 = "A"
        DoCmd.GoToRecord , , acNext
    Loop
End Sub

これを例えば、サブフォームのヘッダーに配置したボタンが押された時に、このサブルーチンが動作するように設定すればよい。