Running a Query to export to Excel with a parameter

Hi Guys,

i have a calender pop up that allows the user to enter a date that they wish to run a report for. the code is below. The issue is, when this runs it asks for another pop up box to enter the enter. It is a [xxx] parameter on an underlying query.

I wish it to pass the date into the RandBQ query. it looks to work fine but is asking for a second instance of a date despite this being passed through?

Thanks, Manny




Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim prm As DAO.Parameter
Dim rs As DAO.Recordset

Set db = CurrentDb
Set qdf = db.QueryDefs("RandBQ")

For Each prm In qdf.Parameters
prm = Forms![CalenderSelectMaitlandF].Calendar0.Value
Next prm

Set rs = qdf.OpenRecordset

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, qdf.Name, "C:\Users\Manny.Chana\Documents\Macros\Pricing\Access\test.xls", True