March 30, 2009 at 9:20 am
When I run this code I get error message:Type mistatch, what is wrong with my code?
Dim qdf As DAO.QueryDef
Dim strConnect As String
Dim ConnectStr As Variant
Dim strSQL As String
Dim db As Database
Dim rstCurves As Recordset
Dim newFile As String
newFile = "CassExport.tab"
strSQL = "SELECT TblCust.CUSTOMER_ID, TblCust.FIRST_NAME,tblCust.Last_Name,tblCust.Company_Name," & _
"TblCust.A1, TblCust.A2, TblCust.CITY, TblCust.STATE, TblCust.Zip, TblCust.NO_RENT," & _
"TblCust.CUSTOMER_TYPE, TblCust.VENDOR_CODE, TblCust.ORDER_SHIP_DATE, TblCust.CountOrders," & _
"TblCust.SumGrandTotal, TblCust.ORDER_CHANNEL, TblCust.PAYMENT_METHOD, TblCust.[PROD_DESIGN_CODE]," & _
"TblCust.FPS_CODE , TblCust.IS_REORDER, TblCust.AVAILABLE_DATE, TblCust.SOURCE_CODE" & _
" FROM TblCust;"
Set db = CurrentDb()
Set rstCurves = db.OpenRecordset(strSQL)
April 7, 2009 at 5:59 am
try changing these two lines as follows:
Dim db As DAO.Database
Dim rstCurves As DAO.Recordset
April 13, 2009 at 9:06 am
thank you
Viewing 3 posts - 1 through 3 (of 3 total)
You must be logged in to reply to this topic. Login to reply