Parameter Query to recordset

Question

I'm having trouble getting a query into a recordset.  the query in question is based on several other queries, and there are half a dozen parameters that come from a form.  The form is open when I run this code and the parameter values are available to the query.  If I just manually open the query it opens just fine, but I can't figure out how to open it into a recordset with code.  When I run the code below I keep getting error code 3061 "Too few parameters.  Expected 0." 

Dim rs As DAO.Recordset

Set rs = CurrentDb.OpenRecordset("QueryName")

Is there something special I have to account for in the code when opening queries with parameters?

Thanks.

Answer 1

You'll need to explicitly populate the parameters. Try

Dim rs As DAO.Recordset

Dim qd As DAO.Querydef

Dim prm As Parameter

Set qd = CurrentDb.QueryDefs("QueryName")

For Each prm In qd.Parameters

   prm.Value = Eval(prm.Name)

Next prm

Set rs = qd.OpenRecordset(dbOpenDynaset)