帳票フォームで表示されている全レコードのチェックボックスのチェックをON/OFFする(=連結フィールドのValueを更新にする。)ということでしょうか。
それとも単票フォームあるいは非連結フォームに複数のチェックボックスか配置されていて、そのすべてのチェックボックスのチェックを外すということでしょうか。
とりあえず前者の方だと仮定して回答します。
フォームのレコードソースのテーブル名を「Tbl1」、
チェックボックスのコントロールソースのフィールド名を「Fld1」と仮定します。
Private Sub btn全チェック_Click()
Dim rs As DAO.Recordset
Set rs = Me.Recordset.Clone
rs.MoveFirst
Do Until rs.EOF
rs.Edit
rs!Fld1 = True
rs.Update
rs.MoveNext
Loop
Me.Recalc
End Sub
Private Sub btn全チェック外す_Click()
Dim rs As DAO.Recordset
Set rs = Me.Recordset.Clone
rs.MoveFirst
Do Until rs.EOF
rs.Edit
rs!Fld1 = False
rs.Update
rs.MoveNext
Loop
Me.Recalc
End Sub
あるいは、
Private Sub btn全チェック_Click()
CurrentDb.Execute "UPDATE Tbl1 SET Tbl1.Fld1 = True;"
Me.Requery
End Sub
Private Sub btn全チェック外す_Click()
CurrentDb.Execute "UPDATE Tbl1 SET Tbl1.Fld1 = False;"
Me.Requery
End Sub
後者の場合は処理後に先頭レコードへ移動します。
通報 ...