I am attempting to update 3 date fields from an unbound form field using VBA. The form is based on a query. Below is the code I am using but when I change the date I get a Write Conflict Error message. The query is based on 1 table. Any help is greatly appreciated.
Private Sub Calendar3_Click()
Select Case Me.DescLabel.Caption
Case "Date Notified"
Me.DateNotifiedNew.Value = Format(Me.Calendar3.Value, "General Number")
DoCmd.Close acForm, "frmcalendar", acSaveYes
DoCmd.Requery
Case "Date Title Requested"
Me.DateTitleReqstdNew.Value = Format(Me.Calendar3.Value, "General Number")
DoCmd.Close acForm, "frmcalendar", acSaveYes
DoCmd.Requery
Case "Gap Claim Notification"
Me.DateGapInitiated.Value = Format(Me.Calendar3.Value, "General Number")
DoCmd.Close acForm, "frmcalendar", acSaveYes
DoCmd.Requery
End Select
End Sub