How to set query parameters for use in OpenRecordset

[Jaco K]

I’ve the following query definition “selOrders”

PARAMETERS [DateFrom] DateTime, [DateTo] DateTime;
SELECT * FROM Orders WHERE OrderDate BETWEEN [DateFrom] AND [DateTo]

I want to open this query as a DAO.Recordset but have problems to assign values to the parameters.
I tried different possibilities but invain. My latest try was as follows:

Dim QryDef As QueryDef
Dim Date1, Date2 As Date
Dim Orders As DAO.Recordset

Set QryDef = CurrentDb.QueryDefs("selOrders")
QryDef.Parameters("DateFrom") = Date1
QryDef.Parameters("DateTo") = Date2
Set Orders = CurrentDb.OpenRecordset("selOrders")

During execution error 3061 (Too few parameters, expected: 2) occurs.

Anyone suggestions?

 

[cuttsy]

That method wont work because the microsoft help says this about QryDef.Parameters

The Parameters collection provides information only about existing parameters. You can't append objects to or delete objects from the Parameters collection.

This thread might help you out:

http://forums.devarticles.com/microsoft-access-development-49/pass-parameters-from-vba-to-query-62367.html