Data Type mismatch in criteria expression

  • Thread starter Thread starter neeley
  • Start date Start date
N

neeley

I have code that returns the above message. Can someone
tell me what is incorrect?

Dim db as databse
dim rs as recordset
set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM Facility where
[Facility]![fac_Code] = " & Me!fac_Code)
If Not rs.EOF THEN
Me!fac_FacilityType = rs!fac_FacilityType
End If
rs.Close
db.Close
Set rs= Nothing
set db = Nothing
End Sub

The error occurs at the set rs= db.OpenRecordset line.

Thanks for any help.
 
try:
Set rs = db.OpenRecordset("SELECT * FROM Facility where
[Facility]![fac_Code] = '" & Me!fac_Code & "'")

I added a concatenation for the Me![FAC_CODE] to include single quote around
it.
 
I have code that returns the above message. Can someone
tell me what is incorrect?
Click to expand...

I'm guessing that FAC_Code is a field of Text type. If so you need the
syntactically required quotemarks:

Set rs = db.OpenRecordset("SELECT * FROM Facility where
[Facility]![fac_Code] = '" & Me!fac_Code & "'")
 
The single quote worked. Thank you!
-----Original Message-----
try:
Set rs = db.OpenRecordset("SELECT * FROM Facility where
[Facility]![fac_Code] = '" & Me!fac_Code & "'")

I added a concatenation for the Me![FAC_CODE] to include single quote around
it.


--
Scott N. Weber, MCP
http://www.AccessYourBiz.Com
Customizable Accounting Software
Written with Microsoft Access

I have code that returns the above message. Can someone
tell me what is incorrect?

Dim db as databse
dim rs as recordset
set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM Facility where
[Facility]![fac_Code] = " & Me!fac_Code)
If Not rs.EOF THEN
Me!fac_FacilityType = rs!fac_FacilityType
End If
rs.Close
db.Close
Set rs= Nothing
set db = Nothing
End Sub

The error occurs at the set rs= db.OpenRecordset line.

Thanks for any help.
Click to expand...


.
Click to expand...
 
Thanks for the help. The single quote was the missing
piece.
-----Original Message-----
I have code that returns the above message. Can someone
tell me what is incorrect?
Click to expand...

I'm guessing that FAC_Code is a field of Text type. If so you need the
syntactically required quotemarks:

Set rs = db.OpenRecordset("SELECT * FROM Facility where
[Facility]![fac_Code] = '" & Me!fac_Code & "'")



.
Click to expand...
 
Back
Top