the code is not working , even no error is there, records gets updated with duplicate date?- Please Help anyone
Dim NewDt As Date
Dim stLinkCriteria As String
NewDt = Me.txtfrom.value
stLinkCriteria = "[FROM] = " & NewID
If Me.txtfrom = DLookup("[FROM]", "[REPORT_LEAVE]", stLinkCriteria) Then
MsgBox "This Date:" & [NewID] & ", already exist taken in the Database, " _
& vbCr & vbCr & "Please enter a new Date", vbInformation, "HELLO USER.... DUPLICATE INFORMATION"
Me.Undo
End If
Dim NewDt As Date
Dim stLinkCriteria As String
NewDt = Me.txtfrom.value
stLinkCriteria = "[FROM] = " & NewID
If Me.txtfrom = DLookup("[FROM]", "[REPORT_LEAVE]", stLinkCriteria) Then
MsgBox "This Date:" & [NewID] & ", already exist taken in the Database, " _
& vbCr & vbCr & "Please enter a new Date", vbInformation, "HELLO USER.... DUPLICATE INFORMATION"
Me.Undo
End If