To check or Un-Check all Boxes in a form

[devcon]

I’ve a form and on behind one query (orderqry). I like to create two button on the form to select all or partial check boxes.
I found the following code but this is for a tablet. I don’t know how to fix in order to check the query.

Private Sub cmdTick_Click()

DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE tblRecord SET tblRecord.ToPrint = True"
DoCmd.SetWarnings True


Me.Requery

End Sub

Private Sub cmdUnTick_Click()

DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE tblRecord SET tblRecord.ToPrint = False"
DoCmd.SetWarnings True
Me.Requery

End Sub

Any suggestion please?

[TheShabz]

is the checkbox status (on/off) a field on the table you are querying or unbound? If the former, that should work fine. Maybe add a Me.Refresh after the Me.Requery. If the latter:
off - Me.checkbox = false ' (or = 0)
on - Me.checkbox = true ' (or = 1)

[devcon]

Thank you for your reply.
Sorry but I don't understand what exactly to do.

Here is the form 'ToPrint.png'
And the query 'OrderQry.png'

Can you explain me where I’ve to put the expression?
Thank you for your help.

[TheShabz]

Ok I see what you need now. You dont need to have two command buttons there. It defeats the purpose of the checkbox. What you should do is have one button that will put "true" in the ToPrint if checked and "false" if not checked:

if (me.chkbox = true) then
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE tblRecord SET tblRecord.ToPrint = True"
DoCmd.SetWarnings True
Me.Requery
Me.Refresh
else
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE tblRecord SET tblRecord.ToPrint = False"
DoCmd.SetWarnings True
Me.Requery
Me.Refresh
end if

end sub

[devcon]

Thank you for your reply.
As I said I have one query 'OrdersQry' (join three tables), not one table 'tblRecord'. I have to use your code with this query.
How I can use ‘DoCmd.RunSQL "UPDATE tblRecord SET tblRecord.ToPrint = True"’ if I don’t have the 'tblRecord' and I have only the query ‘OrdersQry’?

Thank you for your help.

[TheShabz]

well, you are updating that table that the query is pulling ToPrint from. Allow me to illustrate.
you have"
Table Data ----> query ----> form

you are updating the table that contains ToPrint. The Me.Requery will run the query that the form is based on, thus updating ToPrint on your form to whatever the new value is. Does this make sense?

[devcon]

Thank you for your help, I solve my problem.
Have a nice week end.

[TheShabz]

no problem. i hope i want totally useless. glad you made it work. please mark the thread solved =]