hi folks need your help ive created a select all button for checkboxes to send to printer the problem is when you check the boxes 1 by 1 it updates a field with =DATE works great 1 by 1 but with the select all button .... it dont update the date field........ everything else works great...ive tried everything.... before updat after up date even tried to put in....
Me.[SR 1] = Now()
in the select all coding of the select all button
this part works great:
Private Sub PrintSR2_AfterUpdate()
If Me.[PrintSR2] = True Then
Me.[SR_2] = Date
End If
when you click the print checkbox itself but not a chance with the select all button
Private Sub tglYesNo_Click()
Dim rs As DAO.Recordset
Set rs = Forms![Search Results]![test subform2].Form.RecordsetClone
Do While Not rs.EOF
rs.Edit
rs!PrintSR1 = True
rs.Update
rs.MoveNext
Loop
Set rs = Nothing
End Sub
PLEASE HELP!!!!!
Me.[SR 1] = Now()
in the select all coding of the select all button
this part works great:
Private Sub PrintSR2_AfterUpdate()
If Me.[PrintSR2] = True Then
Me.[SR_2] = Date
End If
when you click the print checkbox itself but not a chance with the select all button
Private Sub tglYesNo_Click()
Dim rs As DAO.Recordset
Set rs = Forms![Search Results]![test subform2].Form.RecordsetClone
Do While Not rs.EOF
rs.Edit
rs!PrintSR1 = True
rs.Update
rs.MoveNext
Loop
Set rs = Nothing
End Sub
PLEASE HELP!!!!!