Problem with Auto update a field

[HaCcKeR]

hi folks ..... i have a problem...... got a field that when you click a checkbox it updates the date in another field.... that works no problem.

used:
If Me.PrintSR1 = True Then
Me.SR_1 = Date
End If

but i have created a select all buttom that works great with this code:

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

the problem is when you click select all it will not auto input the date

any ideas!!!

 

[Norie]

Change the actual button/checkbox not the recordset.

 

[HaCcKeR]

can you tell me more !!!!!!!!


ive tried putting it before update after update when the kettle boils everything tried it on the button

 

[HaCcKeR]

Thank you thank you done it ...... made a coffee re thinked it and pu this line in the code:
Private Sub tglYesNo_Click()
Dim rs As DAO.Recordset
Set rs = Forms![Search Results 90 days]![Subform90 days].Form.RecordsetClone
Do While Not rs.EOF
rs.Edit
rs!Printsr3 = True
rs![SR 1] = Date
rs.Update
rs.MoveNext
Loop
Set rs = Nothing
End Sub

and what ya know it worked thank you