Loop through recordset and run query

[CanWest]

I am using the following code based on Bob Larson's sample on his website

Dim db As DAO.Database
Dim rst As DAO.Recordset

Set db = CurrentDb
Set rst = db.OpenRecordset("qry_RecNumberCollect")

Do Until rst.EOF
   DoCmd.OpenQuery "qry_RecNumberUpdate"
   rst.MoveNext
Loop

rst.Close
Set rst = Nothing

When I run it I get an error that says error 3601 too few parameters expected 1

When I click the debug button the followin line of code is highlighted.

Set rst = db.OpenRecordset("qry_RecNumberCollect")

I am relatively new to this and am completely lost

 

[pbaldy]

I assume your query has parameters in it:

http://support.microsoft.com/default.aspx?scid=kb;en-us;209203

You can also wrap each form reference in the Eval() function to get around the error.