Getting parameter error when trying to open query as a DAO recordset

[klnlsu]

I am trying to open a query as a recordset. Can someone please check my code below and see if I have an error?



DoCmd.RunSQL "DELETE * FROM tblAllocations"
Dim rsFGs As DAO.Recordset
Dim rsBOM As DAO.Recordset
Dim rsAllocsData As DAO.Recordset
Set rsFGs = CurrentDb.OpenRecordset("SELECT * FROM qryOpenALLAllocationsSummary", dbOpenDynaset)
Set rsBOM = CurrentDb.OpenRecordset("SELECT * FROM dbo_BMPRDSTR_SQL ORDER BY item_no, seq_no", dbOpenDynaset)
Set rsAllocsData = CurrentDb.OpenRecordset("SELECT * FROM tblAllocations", dbOpenDynaset)

I get an error that says "Run-time error '3061': Too few parameters. Expected 2." on the line that is in bold.

Is there something wrong with my code? Could there be something in my query that is causing this?

[kd2017]

Code looks fine. Maybe double check your spelling of the query name? And go back into that query and double check that all the field names in it are correct... Does the query itself run without error when you open it via the navigation pane ?

https://stackoverflow.com/questions/...-1-access-2007

[klnlsu]

The query runs and the spelling is correct. The query is an aggregate query that sums totals from three other queries that are in a UNION query. The three queries that are "unionized" use fields in an open form as criteria. The form is open when I run the code. I don't know if any of this information is helpful, but I thought I might should mention it.

[kd2017]

... The three queries that are "unionized" use fields in an open form as criteria....

I don't know. But check out the answer from "John Doe" on Mar 22 here: https://stackoverflow.com/questions/...-1-access-2007

[kd2017]

... The three queries that are "unionized" use fields in an open form as criteria. The form is open when I run the code. I don't know if any of this information is helpful, but I thought I might should mention it.

I did a little test and found that the params referring to the forms are indeed the problem.

And I also found some solutions for you here: https://www.devhut.net/2011/11/07/ms...-query-in-vba/

[klnlsu]

Thanks for the link above! That worked! I simply changed the criteria syntax in my three queries to include the EVAL function and the VBA coding worked.

Example:

my query criteria was: <=[forms]![frmOrderHeaderEntry]![ShipDateTxt]

and I changed it to: <=Eval("[forms]![frmOrderHeaderEntry]![ShipDateTxt]")

That's all there was to it!

Thanks again!

[nggman]

I am having a similar issue. [Enter Start Date] is one of my parameters.

<=Eval("[forms]![frmOrderHeaderEntry]![ShipDateTxt]")

For this line, what are you using for 'forms' and 'frmOrderHeaderEntry'?

I am just trying this and it is not working. Eval("[Enter Start Date]")

[klnlsu]

I am having a similar issue. [Enter Start Date] is one of my parameters.

<=Eval("[forms]![frmOrderHeaderEntry]![ShipDateTxt]")

For this line, what are you using for 'forms' and 'frmOrderHeaderEntry'?

I am just trying this and it is not working. Eval("[Enter Start Date]")

I am looking at the data in a textbox (ShipDateTxt) on an open form (frmOrderHeaderEntry). I have not tried the EVAL function on a data prompt.