Access falsely believes I'm my recordset requires a parameter

[MatthewGrace]

Thank you for taking the time to consider my question.

I have some code that looks like this:

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("qryOrphan", dbOpenSnapshot) 'This line errors.

It says:
Run-time error 3061. Too few parameters. Expected 1.

I was confused. "qryOrphan doesn't take any parameters. What in blazes is going on here?"
Then I saw it: the Criteria for one of the fields reads:



>=DateAdd("d",[Forms]![frmReports]![cboHistory],Now())

The aforementioned cboHistory combobox contains a number of days like -90. Anyhow the query works fine when I double click on it in the Navigation Pane. It doesn't ask for a parameter.

My guess is that for some reason, VBA code seems to falsely interpret the [ ] in my Forms collection as being a parameter.

Do I understand this correctly? Is there a way around this?

Thanks for any help.
Matt

[Gicu]

This is to be expected when you use it like that. You need to force the evaluation of the parameters before you attempt to create the recordset:

Dim rs As DAO.Recordset,qdf as DAO.Recordset,prm as Parameter


Set qdf=CurrentDb.QueryDefs("qryOrphan")


For Each prm in qdf.Parameters
  prm.Value=Eval(prm.Name)
Next prm


Set rs =qdf.OpenRecordset(dbOpenSnapshot)

Cheers,

[MatthewGrace]

Thanks Vlad. I had a feeling it was something like this.

Hey I noticed 2 things:

Firstly you said DAO.Recordset. Not really sure about the DAO part. Isn't that automatic? I've never used it before. I just say Dim rs as Recordset.
Second, I noticed you Dim'd "qdf as DAO.Recordset". Did you mean DAO.Querysomething? QueryDef?

Thanks,
Matt

[Gicu]

Sorry Matt, yes, it should be "qdf as DAO.QueryDef", just writing it in Notepad with no help from IntelliSense . I always like to fully qualify the declarations to avoid problems as "Dim rs as Recordset" could be interpreted as an ADO recordset depending on how the references are set up (the order in which they appear).
Cheers,