按钮“"的“单击”事件处理程序为: Private Sub Command71 Click On error goto err Command 71 Click Dim stDocName As String stdocName="销售业绩查询" DoCmd Open Report stDocName, acPreview Exit Command71 Click Exit sub Err Command71 Click MsgBox Err. Description Resume exit command 71 click End sub 这个程序的第五行语句即为驱动“销售业绩査询 报表进入预览状态的命令按钮“ ”的“单击”事件处理程序为： Private Sub Command71_Click() On Error GoTo Err_Command71_Click Dim stDocName As String stDocName = "销售业绩查询" DoCmd.OpenReport stDocName, acPreview Exit_Command71_Click: Exit Sub Err_Command71_Click: MsgBox Err.Description Resume Exit_Command71_Click End Sub 这个程序的第五行语句即为驱动“销售业绩查询” 报表进入预览状态的命令