ms-access - DoCmd.OpenReport から Access 2010 レポートにパラメーターを渡す

Question

2 つのテキスト ボックスと 1 つのボタンがあるフォームがあります。テキスト ボックスは Date From と Date To です。ボタンをクリックすると、いくつかの VBA コードが実行され、クエリ結果 (qryInvoicesBetweenDates) をループし、請求書 ID を取得して、請求書の印刷プレビューを生成します。問題は、ループ内で現在の ID をレポートに渡す方法がわかりません。DoCmd.OpenReportにinvoice_number変数を与えるだけです。

VBA コード:

Dim qdf As QueryDef
Set qdf = CurrentDb.QueryDefs("qryInvoicesBetweenDates")
Dim rs As DAO.Recordset

qdf.Parameters(0) = tbFrom.Value
qdf.Parameters(1) = tbTo.Value

Set rs = qdf.OpenRecordset()
Do Until rs.EOF = True
        ' Set the invoice number to the current row
        'invoice_number = rs.N
    invoice_number = rs.Fields(0).Value


    ' Preview the invoice
    Dim stDocName As String
    stDocName = "InvoiceForWork"
    DoCmd.OpenReport stDocName, acPreview
Loop

どうもありがとう。