Changing to text format

[cbuechner]

Ok, I have a code that I use for a different module. This module has a filter based on an input box. The input box appears to be based on a number, and I need it to be based on a text.

Dim lngColumn As Long
Dim xlx As Object, xlw As Object, xls As Object, xlc As Object
Dim dbs As DAO.Database
Dim rs As DAO.Recordset
Dim blnEXCEL As Boolean, blnHeaderRow As Boolean
Dim RFQNUM As String
RFQNUM = InputBox("Enter RFQ Number")

The problem is I later use this to run the query. Engine_ID is a text field. RFQNUM appears to be based on a number.

Set rs = CurrentDb.OpenRecordset("SELECT Year FROM Main_Export WHERE Engine_ID=" & RFQNUM)



I hope im explaining this ok.

I am also wanting to select more results. Would I say

("Select Year, Field 2, Field 3 FROM"

[Gicu]

Text variables need to be wrapped in single quotes:

Set rs = CurrentDb.OpenRecordset("SELECT * FROM Main_Export WHERE Engine_ID='" & RFQNUM & "'") ' select all fields from the table

[Micron]

How many records returned to the rs? ID usually suggests there would be only one. If so, declaring and creating a recordset for one record is overkill - especially since the rs only contains one field. I'd use DLookup, and I would refrain from using reserved words for field names - especially when they are function names (like "Year"). If you were being forced to use such a word, you must enclose them in brackets ( e.g. [Year]). I cannot see how that sql (in post 1) would ever run without generating an error.

[cbuechner]

Worked! Thank you!