Type Mismatch Error in Recordset Where Clause

[tomlebold]

Why do I receive a Type mismatch error when running the following
code, which has a SQL Server 2000 back end database?
The error occurs on the following line: Set rs = db.OpenRecordset(SQL,
dbOpenDynaset)

>

Dim db As DAO.Database
Dim rs As DA0.Recordset
Dim SQL As String
Dim CountRecs As Long

Set db = CurrentDb()

SQL = "SELECT tblProduct.ProductCode, tblProduct.Description "
SQL = SQL & "FROM tblProduct WHERE tblProduct.[ProductCode]=' " &
Me!
cboProductCode & " ' "

Set rs = db.OpenRecordset(SQL, dbOpenDynaset)
rs.Open
CountRecs = rs.RecordCount
<

[storrboy]

On Feb 15, 5:42 pm, "[e-mail]" <[e-mail]:

Why do I receive a Type mismatch error when running the following
code, which has a SQL Server 2000 back end database?
The error occurs on the following line: Set rs = db.OpenRecordset(SQL,
dbOpenDynaset)

Dim db As DAO.Database
Dim rs As DA0.Recordset
Dim SQL As String
Dim CountRecs As Long

Set db = CurrentDb()

SQL = "SELECT tblProduct.ProductCode, tblProduct.Description "
SQL = SQL & "FROM tblProduct WHERE tblProduct.[ProductCode]=' " &
Me!
cboProductCode & " ' "

Set rs = db.OpenRecordset(SQL, dbOpenDynaset)
rs.Open
CountRecs = rs.RecordCount
<

This may be obvious, but is the ProductCode field a string type?

[CDMAPoster]

On Feb 15, 5:42 pm, "[e-mail]" <[e-mail]:

Why do I receive a Type mismatch error when running the following
code, which has a SQL Server 2000 back end database?
The error occurs on the following line: Set rs = db.OpenRecordset(SQL,
dbOpenDynaset)

Dim db As DAO.Database
Dim rs As DA0.Recordset

G0od 1

James A. Fortune
CD********@FortuneJames.com

[tomlebold]

On Feb 15, 4:52 pm, "storrboy" <[e-mail]:

On Feb 15, 5:42 pm, "[e-mail]" <[e-mail]:

Why do I receive a Type mismatch error when running the following
code, which has a SQL Server 2000 back end database?
The error occurs on the following line: Set rs = db.OpenRecordset(SQL,
dbOpenDynaset)

Dim db As DAO.Database
Dim rs As DA0.Recordset
Dim SQL As String
Dim CountRecs As Long

Set db = CurrentDb()

SQL = "SELECT tblProduct.ProductCode, tblProduct.Description "
SQL = SQL & "FROM tblProduct WHERE tblProduct.[ProductCode]=' " &
Me!
cboProductCode & " ' "

Set rs = db.OpenRecordset(SQL, dbOpenDynaset)
rs.Open
CountRecs = rs.RecordCount
<

This may be obvious, but is the ProductCode field a string type?- Hide quoted text -

- Show quoted text -

The ProductCode is text in a combo box, which I assume is a string.
Should another argument follow dbOpenDynaset because this is an SQL
Server database.

[storrboy]

On Feb 16, 1:09 am, "[e-mail]" <[e-mail]:

On Feb 15, 4:52 pm, "storrboy" <[e-mail]:

On Feb 15, 5:42 pm, "[e-mail]" <[e-mail]:

Why do I receive a Type mismatch error when running the following
code, which has a SQL Server 2000 back end database?
The error occurs on the following line: Set rs = db.OpenRecordset(SQL,
dbOpenDynaset)

Dim db As DAO.Database
Dim rs As DA0.Recordset
Dim SQL As String
Dim CountRecs As Long

Set db = CurrentDb()

SQL = "SELECT tblProduct.ProductCode, tblProduct.Description "
SQL = SQL & "FROM tblProduct WHERE tblProduct.[ProductCode]=' " &
Me!
cboProductCode & " ' "

Set rs = db.OpenRecordset(SQL, dbOpenDynaset)
rs.Open
CountRecs = rs.RecordCount
<

This may be obvious, but is the ProductCode field a string type?- Hide quoted text -

- Show quoted text -

The ProductCode is text in a combo box, which I assume is a string.
Should another argument follow dbOpenDynaset because this is an SQL
Server database.

As Mr.Fortune points out you have DA0 not the correct DAO in your
example.
A text box does not mean it's a string field. Do the ProductCodes
contain letters or are they all numeric?
Check the actual data type of the field in the table if you can and
see what it is.