Run-time error '3464'

[Guest]

When I try to look for a duplicate value in a record I keep getting the
following error....

Run-time error '3464'

Data type Mismatch in criteria expression

here is the code I am using when I get the error....

Dim temp As String

Me.DrawingNum.SetFocus
temp = DLookup("[DrawingNum]", "tbl_DrawingsAndData", _
"[DrawingNum]=" &
Me.DrawingNum.Text)

Me.DrawingNum.SetFocus
If Me.DrawingNum.Text = temp Then
MsgBox "This Drawing Control Already Exists, Please See View Drawing
Controls"
Exit Sub
End If

 

[Brendan Reynolds]

DLookup will return a Null value if it doesn't find any match, and a Null
value can only be assigned to a Variant, not a String. You could either
change temp to be a Variant and check it using IsNull(), or you could wrap
the DLookup in an NZ(). See IsNull Function and NZ Function in the help file
for details.

--
Brendan Reynolds (MVP)
http://brenreyn.blogspot.com

The spammers and script-kiddies have succeeded in making it impossible for
me to use a real e-mail address in public newsgroups. E-mail replies to
this post will be deleted without being read. Any e-mail claiming to be
from brenreyn at indigo dot ie that is not digitally signed by me with a
GlobalSign digital certificate is a forgery and should be deleted without
being read. Follow-up questions should in general be posted to the
newsgroup, but if you have a good reason to send me e-mail, you'll find
a useable e-mail address at the URL above.