I have a text box in a form. On GotFocus this code is executed:
Private Sub txtThk_Res_Smpl_Lot_Measure_DateTime_In_GotFocus()
If IsNull(txtThk_Res_Smpl_Lot_Measure_DateTime_In) Then
Me.txtThk_Res_Smpl_Lot_Measure_DateTime_In = Format(Now(),"mm/dd/yy"", ""hh:nn ampm")
but get the error "The value you entered isn't valid for this field".
Runtime error -2147352567 (800200009)
The field type is Date/Time.