Parameter query will not work! 2

[TimMorris]

I have a select query with the following as criterion for a date field:

Between [Forms]![myForm]![StartDate] And [Forms]![myForm]![EndDate]

A second query performs agregate sums on the first query. The query works fine if I run it using the access user interface, but fails from within VB code!

Set dbs = CurrentDB
Set rec = dbs.OpenRecordset("myAggregateQuery", dbOpenSnapshot)

I get "run time error 3061 - too few parameters. Expected 2."

If I delete the date criterion, or change it with hardwired #dates#, it works fine. What am I doing wrong?

Cheers,
Tim Morris
tim.morris@utas.edu.au
[sig][/sig]

 

[cmmrfrds]

Put your dates in as function calls this will work under all conditions.

Public glbBegDate As Date
Public glbEndDate As Date

Function ReturnBegDate() As Date
' Return the Begin Date
ReturnBegDate = glbBegDate
End Function

Function ReturnEndDate() As Date
' Return the End Date
ReturnEndDate = glbEndDate
End Function

Between ReturnBegDate() And ReturnEndDate()

Put the functions and the variables in your standard module and load the variables before you do the query. [sig][/sig]

 

[TimMorris]

Cmmrfrds,

Thanks heaps, I tried your solution and it worked perfectly! Thanks again.

Tim. [sig][/sig]

 

[nthompson]

It pays to search through old postings. This was exactly what I needed!