VBA db.openrecordset

[Verwijderd]

Ik heb een rapport gemaakt dat bij het openen het volgende doet

Dim db as database
dim rs as dao.recordset

db = currentdb()
rs = db.openrecordset("Aantal afspraken")

Bij het uitvoeren ven de openrecordset methode, geeft hij een foutmelding. Dit komt omdat in de query (msacces query) de criteria voor het veld datum het volgende is:
Between forms![agenda]![van] and forms![agenda]![tot]

Als ik de openrecordset methode aanroept vervangt hij deze waarde in het criteria niet met de waarde op het form, dus geeft hij de error parameters missing oid.

Hoe kan ik dit voorkomen??

[Verwijderd]

Misschien een oplossing:

In de criteria een variabele neer zetten, en deze in vba declareren. Maar hoe roep ik een VBA variabele aan in het criteria van de query
????

[Verwijderd]

Je opent met recordset alleen dat gedeelte. (Aantal afspraken). hoe kan hij weten wat er in de query staat laat staan dat hij iets kan/gaat wijzigen.

Of ik snap je niet dan kan natuurlijk ook

[Verwijderd]

Ik begrijp je ook niet helemaal: wat wil je eigenlijk bereiken met de recordset en de query van het formulier?

Misschien kunnen wij je dan helpen...

[Verwijderd]

Ik heb het al

dim db as database
dim rs as dao.recordset
dim qr as querydef

set qr = db.querydef("Aantal afspraken")
qr.parameter ("[van]") = Forms![Agenda]![Van]
rs = qr.openrecordset()