I guess I am confused. This is the code: (it is in the "PDD Schedule" form code in the zip file I uploaded)
Private Sub txtScheduleDate_AfterUpdate()
On Error GoTo txtScheduleDate_AfterUpdate_Err
On Error Resume Next
Dim rs As DAO.Recordset
If IsDate(Me.txtScheduleDate) Then
If Me.Dirty Then
Me.Dirty = False
End If
Set rs = Me.RecordsetClone
rs.FindFirst "CalDate = #" & Me.[txtScheduleDate] & "#"
If rs.NoMatch Then
MsgBox "Not found: filtered?"
Else
Me.Bookmark = rs.Bookmark
End If
Set rs = Nothing
End If
txtScheduleDate_AfterUpdate_Exit:
Exit Sub
txtScheduleDate_AfterUpdate_Err:
MsgBox Error$
Resume txtScheduleDate_AfterUpdate_Exit
End Sub
It is for the unbound textbox "txtScheduleDate" that is causing the problem. The issue of saving the record. The code is sort of standard code that I use for finding a record. In this case, I normally have the "If Me.Dirty" portion commented out. I forgot to comment it back out, when I set up this dummy DB.
