how to give a parameter to a query

[Alex]

I'm using the following to transfer data from MS Access to
Excel:

DoCmd.OutputTo acOutputQuery, _
"Query1", acFormatXLS, _
"ExcelFile.xls"

The Query1 is taking some value the exchange rate for
calculations. Before, I was using a textbox on a form to
give the Query1 this value. When the form is being opened
the fnEchangeRate function is being run and the value is
being assigned to the textbox.

How could I give the value from the function to the Query1
not through the textbox but (if it's possible) through a
parameter before running this DoCmd.OutputTo ...

Thanks

 

[peter walker]

Don't use a parameter query.
Alter the query definition - change the SQL

Sub cq()
Dim qd As QueryDef
Set qd = CurrentDb.QueryDefs("query1")
qd.SQL = "Select * from table1 " & _
"where somevalue ='" & LitteralValue & "'"
DoCmd.OutputTo acOutputQuery, _
"Query1", acFormatXLS, _
"c:\ExcelFile.xls"
End Sub

peter walker

 

[Alex]

Thanks a lot, Peter.

-----Original Message-----
Don't use a parameter query.
Alter the query definition - change the SQL

Sub cq()
Dim qd As QueryDef
Set qd = CurrentDb.QueryDefs("query1")
qd.SQL = "Select * from table1 " & _
"where somevalue ='" & LitteralValue & "'"
DoCmd.OutputTo acOutputQuery, _
"Query1", acFormatXLS, _
"c:\ExcelFile.xls"
End Sub

peter walker




.