Passing A Report Parameter 1

[DougAtAvalon]

Can I pass a report/query parameter that the user would otherwise be prompted for.?

-Doug

 

[kathryn]

yes, you can.

Let's say you kick off a report from a button on a form.

You would have code (this is psuedocode) like this...

Set a querydef object equal to your query

Set the parameter of the querydef object equal to the value.

Open the report based on the query

Kathryn

 

[DougAtAvalon]

I know how to do it if your saying...

....write the code for the sql and assign it to the query before I open the report?

is this what your saying?

-Doug

 

[kathryn]

No, not exactly, although you could do that.

What I am suggesting is to create the query first, using the regular query design. Put a parameter in the criteria of the field. Save the query.

Let's say that the query was names qryTest, the parameter was "ProductNumber", and the report was rptTest and rptTest was based on qryTest. your code would be:


dim qdf as querydef

set qdf = currentdb.querydefs("qryTest&quot

qdf.parameters("ProductNumber&quot = 123

docmd.openreport "rptTest"


That might not be exact, but I think that it is pretty close. Is that what you want to do. Kathryn

 

[DougAtAvalon]

yes that is what I want to do:

dim qdf as querydef
set qdf = currentdb.querydefs("qryTest&quot
qdf.parameters("ProductNumber&quot = 123
docmd.openreport "rptTest"


you mean here it won't prompt the user if in design view it it ProductNumber: [Please enter the Product Number]
-Doug

 

[kathryn]

The parameter is the actual prompt you use.

dim qdf as querydef
set qdf = currentdb.querydefs("qryTest&quot
qdf.parameters("Please enter the Product Number&quot = 123
docmd.openreport "rptTest"


Kathryn

 

[DougAtAvalon]

Thanks that should do it . . .

-Doug