Change Query Parameters
 

I change query parameters in my code.

i want the query to change her Sql property to new sql with new parameters.


Set QueryDef = CurrentDb.QueryDefs("q_QueryName")

QueryDef.Parameters("[Param_1]") = stringvalue_1
QueryDef.Parameters("[Param_2]") = stringvalue_2
QueryDef.Parameters("[Param_3]") = stringvalue_3
QueryDef.Parameters("[Param_4]") = "#" & Format(timevalue_1, "HH:mm") & "#"
QueryDef.Parameters("[Param_5]") = "#" & Format(timevalue_1, "HH:mm") & "#"

QueryDef.Parameters.Refresh

'QueryDef.Sql

DoCmd.OpenReport "r_ReportName", acViewPreview

The report "r_ReportName" need to run with new Query and new parameters.
But, actually the Query.Sql didn't change at all.
and microsoft JET still ask me for enter parameters ??