data type mismatch in criteria expression

[matthewemiclea]

I have a form command with the following code in it:

Dim Worder As Variant
Dim rcrd As Variant
_____________________________________
Worder = InputBox("Work Order ID", "Info for pulled order")
rcrd = DLookup("[WorkOrderID]", "TBLdata", "[WorkOrderID] = " & Worder)

If IsNull(rcrd) Then
_________________________________________

I originally had teh WorkOrderID field in my TBLdata set as "Number"
and the code worked perfectly. However, I just realized that it needs
to be a text field, and when I changed it to text, I recieved the
error: "data type mismatch in criteria expression"

Any Ideas??

Thanks

[jimfortune]

ma************@eaton.com wrote:

I have a form command with the following code in it:

Dim Worder As Variant
Dim rcrd As Variant
_____________________________________
Worder = InputBox("Work Order ID", "Info for pulled order")
rcrd = DLookup("[WorkOrderID]", "TBLdata", "[WorkOrderID] = " & Worder)
If IsNull(rcrd) Then
_________________________________________

I originally had teh WorkOrderID field in my TBLdata set as "Number"
and the code worked perfectly. However, I just realized that it needs to be a text field, and when I changed it to text, I recieved the
error: "data type mismatch in criteria expression"

Any Ideas??

Thanks

try "[WorkOrderID] = " & CStr(Worder) & ";"

or "[WorkOrderID] = '" & Worder & "';"

or "[WorkOrderID] = " & Chr(34) & Worder & Chr(34) & ";"

or "[WorkOrderID] = """" & Worder & """""

If none of those work post back.

James A. Fortune

[jimfortune]

ji********@compumarc.com wrote:

ma************@eaton.com wrote:

I have a form command with the following code in it:

Dim Worder As Variant
Dim rcrd As Variant
_____________________________________
Worder = InputBox("Work Order ID", "Info for pulled order")
rcrd = DLookup("[WorkOrderID]", "TBLdata", "[WorkOrderID] = " &

Worder)

If IsNull(rcrd) Then
_________________________________________

I originally had teh WorkOrderID field in my TBLdata set as "Number" and the code worked perfectly. However, I just realized that it

needs

to be a text field, and when I changed it to text, I recieved the
error: "data type mismatch in criteria expression"

Any Ideas??

Thanks

try "[WorkOrderID] = " & CStr(Worder) & ";"

or "[WorkOrderID] = '" & Worder & "';"

or "[WorkOrderID] = " & Chr(34) & Worder & Chr(34) & ";"

or "[WorkOrderID] = """" & Worder & """""

If none of those work post back.

James A. Fortune

Oops. Take off the ; parts.

JAF

[Matthew Miclea]

I tried this code:

"[WorkOrderID] = " & Chr(34) & Worder & Chr(34) & ";"

and it worked perfrectly

Thanks

Matt

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!