set query parameters with no prompt

[kevcri]

I need to use DoCmd.TransferText to output the results of a query. The query has 2 parameters that need to be set in order to run. I set them using the following

Set qdf = CurrentDb.QueryDefs("OptedOut")
qdf.Parameters("low") = "A"
qdf.Parameters("hi") = "Z"

and when I get the transfer text part of the program a prompt comes up asking for the values of the parameters. what do I do to prevent the prompt?

thanks
Kevcri

 

[Guus2005]

You have to loose the parameters.

dim qdf as querydef
set qdf = currentdb.querydefs("OptedOut")
qdf.sql = replace(replace(qdf.sql,"low", "A"), "hi", "Z")

Now run the report.

Note that the definition of the query was changed!

 

[jal]

I need to use DoCmd.TransferText to output the results of a query. The query has 2 parameters that need to be set in order to run. I set them using the following

Set qdf = CurrentDb.QueryDefs("OptedOut")
qdf.Parameters("low") = "A"
qdf.Parameters("hi") = "Z"

and when I get the transfer text part of the program a prompt comes up asking for the values of the parameters. what do I do to prevent the prompt?

thanks
Kevcri

What Guus said. Or, you can have the query be a make-table query that outputs the results into a table and then TransferText from the table.