如何令一条记录输入完毕后，然后打印的时候可以在报表里打印当前记录？

小幽

如何令一条记录输入完毕后，然后打印的时候可以在报表里打印当前记录？

cattjiu

例子见northwind.mdb的发票打印例子。
Sub PrintInvoice_Click()
' This code created by Command Button Wizard.
On Error GoTo Err_PrintInvoice_Click

    Dim strDocName As String
   
    strDocName = "Invoice"
    ' Print Invoice report, using Invoices Filter query to print
    ' invoice for current order.
    DoCmd.OpenReport strDocName, acViewNormal, [B]"Invoices Filter"[/B]'筛选查询

Exit_PrintInvoice_Click:
    Exit Sub

Err_PrintInvoice_Click:
    ' If action was cancelled by the user, don't display an error message.
    Const conErrDoCmdCancelled = 2501
    If (Err = conErrDoCmdCancelled) Then
        Resume Exit_PrintInvoice_Click
    Else
        MsgBox Err.Description
        Resume Exit_PrintInvoice_Click
    End If

End Sub
Invoices Filter筛选查询：
SELECT DISTINCTROW Invoices.*
FROM Invoices
WHERE (((Invoices.OrderID)=[Forms]![Orders]![OrderID]));

小幽

十分感谢

Flyingwing

谢谢！
比我原先的方法高明多了！

elong

不错