We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Private Sub SelectAllButton_Click() Dim db As Database Dim rs As DAO.Recordset Set db = CurrentDb Set rs = Forms![ContactMainF]![CertSubF].Form.RecordsetClone Do While Not rs.EOF rs.Edit rs!Print = True rs.Update rs.MoveNext Loop rs.Close db.Close Set rs = Nothing Set db = Nothing Forms![ContactMainF]![CertSubF].Form.Requery End Sub
Join the community of 500,000 technology professionals and ask your questions.