Too few parameters error.

[stupesek]

Dim strDocName As String


Dim strWhere As String
Dim strQueryName As String

strQueryName = "Date Reported Stamp"
strDocName = "Irrigation Nitrate Report"

CurrentDb.Execute strQueryName, dbFailOnError
DoCmd.OpenReport strDocName, acViewPreview, , "ReportNumber Between " & Me.BegReport & " And " & Me.EndReport

DoCmd.Close acForm, "Get Print Batch"

In the above code I am getting a "Too few parameters. Expected 2." error message. The query date stamps a field in a table then opens the appropriate report. The error message doesn't tell me where the error lies.

Thanks

[pbaldy]

My guess is that the query you're executing has 2 form references in it. The Execute method can't resolve form references. You can use OpenQuery instead or wrap the form references in the Eval() function.

[stupesek]

Can I put the same Where clause in the CurrentDb.Execute statement that is in the DoCmd.OpenReport below it?

[pbaldy]

Not really, if you mean what I think you mean. A typical way to use Execute with parameters is to concatenate their values in:

CurrentDb.Execute "DELETE * FROM TableName WHERE FieldName = " & Me.TextboxName, dbFailOnError

What is the query doing?

[stupesek]

The code is for a button on a form uses two text boxes to the beginning record to print and the ending record to print. The query stamps the date to a field when the report is first printed "[DateReported]". Then opens the reports that are between the beginning and ending report numbers to print. So the update query needs to have the same beginning and ending criteria. I also wish to suppress the pop-ups that confirm the user is about to update 'n' records.

[pbaldy]

You can use

DoCmd.SetWarnings False

to turn off those warnings. Make sure to turn them back on after running the query.