Check all check boxes on continuous form

[NISMOJim]

I'm using a filtered continuous form to show all records where a check box has not been checked. I added a command button in the form header as an option for the user to change the value of all check boxes to -1, but it only changes the record that has the focus. How can I get the button to check all of the boxes on the form with a single click?

[ItsMe]

An unbound control within a continuous from will only be associated with the record that has the focus. Instead, use a bound checkbox control. Create a new field of type Boolean in your table and bind a control to that new field.

[June7]

An UNBOUND control will show the same value for ALL records unless it has a dynamic calculation as ControlSource.

If checkbox is BOUND to a table field, setting the checkbox for ALL records requires either:

1. looping code to set focus to each record and change field value

2. SQL UPDATE action to change value of records in table then refresh the form to display the table update

[Missinglinq]

Just loop through the Recordset and set the Checkbox:

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)>

[June7]

Yes, RecordsetClone is one way to loop through a form's records. Don't even have to declare and set object variable.

With Me.RecordsetClone
.MoveFirst
Do While Not .EOF
.Edit
!CheckboxFieldName = True
.Update
.MoveNext
Loop
End With

[NISMOJim]

Thank you for the code. I figured it would use a loop, but I couldn't get it working on my own. I was using the name of the checkbox on the form instead of the name of its control source from the query. This is changing the checkbox value for every record in the table, like you said it would. The query is filtered to only show start dates within the last week, and that is what is displayed on the form. How can I get it to only change the filtered records that are on the form/query?

[NISMOJim]

In my endless search of the forum to find answers to my ignorance, I solved the problem.
Replaced "Set rs = Me.RecordsetClone"
with "Set rs = CurrentDb.OpenRecordset("qryApprove")"
Thank you all for pointing me in the right direction.

[Jayro]

This is exactly what I'm looking for but I don't know how to pull it off. I have a query that identifies un-reviewed items in a table (Reviewed = False). I am pulling those items into a "Multiple Items" (continuous?) form called frm_MilitaryCheck. The form has 3 fields
1) Military Y/N (Checkbox),
2) Business Name (Text) and
3) Reviewed Y/N (Checkbox).
For all records in this form, the Military Checkbox is visible and false (unchecked), the Business Name is displayed (read only) and Reviewed Checkbox is not visible and FALSE (unchecked).
Users are told to Review the Business name, and if its Military, Click in the Checkbox. Once the records are viewed, They click a Reviewed button which closes the form. (BTW - I have an update query that runs After import and updates Exact Matches with Military = True and Reviewed = True. The records in this query based form are fallout due to typos, unofficial acronyms, etc.)
So now, when the data is Loaded or Unloaded, I want the Reviewed Checkbox value set to TRUE. How do I do that? I don't use Access often enough to know more that the basics. I think I'll be highlighting the FORM and adding an "On Unload" event but I don't know what to do from there.
Here are the object names:
qry_LikeMilitary - Queries data where the Reviewed field is blank (false). Runs after exact matches are reviewed in an update query.
frm_MilitaryCheck - Pulls in the Military, BusinessName and MilCheck fields for all query results.
Military Checkbox - chk_Military
Business Name - txt_BusinessName
Reviewed Checkbox - chk_MilCheck (Hidden)
Using Access 2013,
Thanks for your Step by Step response!