DlookUp Run Time Error 3464

[DraGo150]

Hello, trying to understand what I am doing wrong. I have a DLookup to search the table for duplicate records before update, but it keeps producing an error. Any help would be appreciated.

Private Sub DOB_LostFocus()
If (Not IsNull(DLookup("[LastName]", _
"tbl_Client", "[LastName] ='" _
& Me!LastName & "'"))) Then
If (Not IsNull(DLookup("[FirstName]", _
"tbl_Client", "[FirstName] ='" _
& Me!FirstName & "'"))) Then
If (Not IsNull(DLookup("[DOB]", _
"tbl_Client", "[DOB] ='" _
& Me!DOB & "'"))) Then
Else
MsgBox "Name has already been entered in the database."
Cancel = True
Me.Undo
Dim strDocName As String
strDocName = "rpt_ClientSearch"
DoCmd.OpenReport strDocName, acViewReport

End If
End If
End If
End Sub

 

[PHV]

Replace this:
"tbl_Client", "[DOB] ='" _
& Me!DOB & "'"))) Then
with this:
"tbl_Client", "[DOB] =#" _
& Format(Me!DOB, "yyyy-mm-dd") & "#"))) Then

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[DraGo150]

Thank you PHV

That worked...

Just for my understanding the ' is for text and the # is for numbers?

 

[PHV]

The # is for dates.
Numbers don't need delimiters.

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[DraGo150]

Thank you.