Just loop through the Recordset and set the Checkbox:
Code:
Private Sub cmdTickAllBoxes_Click()
Dim rs As DAO.Recordset
Set rs = Me.RecordsetClone
With rs
.MoveFirst
Do While Not rs.EOF
.Edit
!CheckboxFieldName = -1
.Update
.MoveNext
Loop
End With
rs.Close
Set rs = Nothing
Me.Requery
End Sub
This covers all RecordSets, even if it's filtered, and, if I remember correctly, I believe I archived it from a response to a post that June7 made a year or so ago!
Linq ;0)>
The problem with making anything foolproof...is that fools are so darn ingenious!
All posts/responses based on Access 2003/2007