The results are in! Meet the top members of our 2017 Expert Awards. Congratulations to all who qualified!
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