Error 3464 - Data type mismatch

[downhilljon]

Hi there,

I am having this annoying problem I can't solve, would appreciate some fresh eyes to look over the code for me.

When I get to the bold line below, I get run-time error 3464: Data type mismatch in criteria expression.

Confusing, as strSerial is a string, and the field "SerialNumber" is a text field. Maybe there are some settings to do with the field I have wrong...

Dim intSerial As Integer
Dim strSerial As String

strSerial = Forms![frmOutputs_2_Specific_Search_for_Bike].txtSerial

[B]intSerial = DCount("SerialNumber", "tblBikes_In_Stock", "SerialNumber = " & strSerial)[/B]
If intSerial > 0 Then
    MsgBox "This serial number already exists in the database - Please check your details", vbExclamation, "Duplicate Serial Number"
    GoTo CleanUp
End If

Thanks in advance,
Jon

 

[pbaldy]

intSerial = DCount("SerialNumber", "tblBikes_In_Stock", "SerialNumber = '" & strSerial & "'")

 

[pbaldy]

By the way, a good reference:

http://www.mvps.org/access/general/gen0018.htm

 

[downhilljon]

Fantastic Paul, thanks very much!