Recordset Initialization Help

[thoms314159]

I can't figure out what's the matter with this piece of VBA code. Please help.

Option Compare Database
Option Explicit
Private dbCurrent As Database
Private qdfInputInf As QueryDef
Private rsTemp As Recordset

Function InflationCalculator(YearWanted As Integer, YearEntered As Integer) As Double
Set dbCurrent = CurrentDb
Set qdfInputInf = dbCurrent.QueryDefs("qryInputInf&quot
Set rsTemp = qdfInputInf.OpenRecordset()
....
End Function

This piece of code compiles fine, but when I step through the code in the debugger, I get a "Run-time error '13': Type mismatch" on the line "Set rsTemp = qdfInputInf.OpenRecordset()". Please note that everything up to that line is fine; all variables contain the data that they should, but rsTemp contains no data. Oh yeah, and I did explicitly select the reference to the DAO 3.6 Object Library.

Please help!
Thanks in advance.

 

[psemianonymous]

Two possible causes:

1. You have a reference to an ADO Recordset, confusing everything. Explicitly define "rsTemp as DAO.Recordset".

2. Querydef-built recordsets are unnecessary. Instead consider the line:

Set rsTemp = CurrentDB.OpenRecordset("qryInputInf")

then you don't have to worry about declaring a database object or a querydef object.

--
Find common answers using Google Groups:

http://groups.google.com/groups?group=comp.databases.ms-access

Corrupt MDBs FAQ

http://www.granite.ab.ca/access/corruptmdbs.htm