Mark a check box after printing contact labels.

[Guest]

I created a table/form for contacts that will need to print labels for. The
form has a check box that indicates a lable has been printed. What/how can I
print lables for a range of contacts and mark all the check boxes automaticly
after printing?

Thanks..

 

[Duane Hookom]

Use code like:

Dim strSQL as String
' the where clause should be the same as your report's filter
strSQL = "UPDATE tblSomeTable SET SomeField = True WHERE ...."
If MsgBox("Did the labels print correctly?", vbYesNo + vbQuestion, "Print
OK") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
End If