This was working last week and now it is not and I am stumped as to why. Nothing involving these fields have been changed except I removed clearing the boxes after the SQL runs.
Code:
Private Sub cmdComment_Click()
Dim dbCurr As DAO.Database
Dim strComment As String
Set dbCurr = CurrentDb()
strComment = "UPDATE Leave " _
& "SET [Comments] = '" & Me.txtComment.Value & "' " _
& "WHERE ((Leave.[Start Date]) = #" & Me.txtStart.Value & "# AND (Leave.[End Date]) = #" & Me.txtEnd.Value & "#);"
DoCmd.SetWarnings False
DoCmd.RunSQL (strComment)
DoCmd.SetWarnings True
End Sub