Error 624 on Form Procedure 1

[quest4]

When I enter the form, I enter, thru pop-up windows, the DatWeekStarting and HoursPerDay. In a procedure on LostFocus I entered this procedure:
Private Sub WorkDay1_LostFocus()

If WorkDay1 <> tblAttendance_Tmp.HoursPerDay Then
DoCmd.GoToControl &quot;WorkDay1Reason&quot;

End If
End Sub
When I change the pre-set entry, which is HoursPerDay, and tab, I get an error 624 and the debugger points to the If line. I have tried it with out the tblAttendance_Tmp, too. Still no go. Thanks to anyone providing assistance.

 

[THoey]

Have you done some sort of query to get a recordset that is &quot;tblAttendance_Tmp.HoursPerDay&quot;?

Why don't you take a look at the OldValue Property in help and see if this is what you are looking for. Terry M. Hoey

 

[quest4]

Thanks for the response, but I stumbled on AfterUpdate and that seems to do everything I wanted without the If statement. But I took it to the next step and get an error 424, select oject, when I added this:
Private Sub WorkDay1_AfterUpdate()

DoCmd.GoToControl &quot;WorkDay1Reason&quot;
If WorkDay1 = 0 Then
WorkDay1ReasonCombo.DataItem (0)
Else: WorkDay1ReasonCombo.DataItem (6)

End If
End Sub
I am just trying to have defaults in the combo box, any suggestions> Again thanks for the response.