请教在窗体中预览报表的问题

kevindeng

NORTHWIND有这个例子的,自己看吧,很简单的

kevindeng

Private Sub cmdPreviewReport_Click()
On Error GoTo Err_cmdPreview_Click
SaveRecord
    Dim stDocName As String

    stDocName = "rptSC"    '这里是要打开的报表名称
    DoCmd.OpenReport stDocName, acPreview, , "[SCID]='" & Me.SCID & "'"    '设置关联条件,我这里是窗体的SCID和报表中的SCID相等

Exit_cmdPreview_Click:
    Exit Sub

Err_cmdPreview_Click:
    MsgBox ERR.Description
    Resume Exit_cmdPreview_Click
   
End Sub

kevindeng

其实用按钮向导也会出来的