"data mismatch type in criteria expression error" 1

[lars7]

Hi Guys,

Can anyone see why the first line of this code would produce a "data mismatch type in criteria expression" error message.

Dim varx As Variant

varx = DCount("*", "[tblQuery]", "[EnQuiryId]='" & Me!Text3 & "'")

CurrentDb.Execute "UPDATE [tblQuery] SET [RecordId]=" & varx & " WHERE EnQuiryId='" & Me!Text3 & "' AND [RecordId] = 0"

I copied it from somewhere else where it works fine, all the fields are numbers. I cant get to the second line to see if that works.

Thanks in advance.

 

[PHV]

all the fields are numbers
Get rid of the single quotes ...

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[lars7]

Thanks PH,

You where right about the quotes and some in the second line too. I'm having problems as to where to fire this code from but it is working.

Dim varx As Variant

varx = DCount("*", "[tblQuery]", "[EnQuiryId]=" & Me!Text3 & "")

CurrentDb.Execute "UPDATE [tblQuery] SET [RecordId]=" & varx & " WHERE EnQuiryId=" & Me!Text3 & " AND [RecordId] = 0