runtime error 2115 ??? 1

[Shift838]

I am getting a runtime error when I click on a Option button on my form. I have the below code to change a textbox value, but it is telling me it cannot save the data to the field. Any clues?

Private Sub blncloseincident_AfterUpdate()

If Me.blncloseincident.Value = True Then
txtendtime.SetFocus
txtendtime.Text = Date & " " & Time
End If

End Sub

 

[PHV]

Have you tried this ?
If Me!blncloseincident.Value = True Then
Me!txtendtime.Value = Now
End If

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886