I have tried the following, but I can't get it to work:
Private Sub cmdMark_Click()
Dim rst As Recordset, i As Integer
Set rst = Me.RecordsetClone
i = 0
rst.MoveFirst
Do While Not rst.EOF
i = i + 1
rst.Edit
If rst![Ckbx2] Then
rst![Ckbx2] = False
Else
rst![Ckbx2] = True
End If
rst.Update...