Trouble creating a recordset

[BSman]

I'm trying to create a recordset using an existing query and when the code executes I get the error message 3061 "Too few parameters expected 1." Everything sees to be correct, yet I can't get the recordset created. Here's the VBA code I'm using to open the recordset (DAO):

Set rstDelays = dbsCurrent.OpenRecordset("myQuery", dbOpenSnapshot)

I suspect this may be one of those error message that doesn't really tell what the problem is. Can someone help? I've tried a variety of changes, but nothing seems to work. Also, if I put brackets around the query name it can't even find the query.

Thanks,
Bob

 

[CaptainD]

Can you post your code and the query?

 

[JoeAtWork]

That error usually occurs when you are expected to input a parameter (i.e. you have a WHERE clause).

 

[BSman]

Here's the full set of code as well as the query:

The query:
SELECT Routes.MasterRoute, Count(TrainDelays.TrainNumber) AS Delays
FROM Routes INNER JOIN TrainDelays ON Routes.RouteCode = TrainDelays.RouteCode
WHERE (((TrainDelays.DelayDate)=[Forms]![fmnuReports]![cboSelectReportDate]))
GROUP BY Routes.MasterRoute
ORDER BY Routes.MasterRoute;

The VBA code:
Dim dbsCurrent As DAO.Database
Dim rstDelays As DAO.Recordset
Set dbsCurrent = CurrentDb

Set rstDelays = dbsCurrent.OpenRecordset "qgrpDailyPerfMatrixSummary", dbOpenSnapshot)


As I mentioned, if I just open the query (for example, in the database window) or even use it in a DLookup statement, there is no problem.

Bob

 

[BSman]

OK, I'm taking the easy way out. I went back to the query and opened the parameter window and entered the forms! statement used as the criteria. Still got the same error message. So I changed the query so it has no criteria and used a select statement with a where clause for the open recordset statement and it works.

Bob

 

[JoeAtWork]

That's really the way it should be done.