按钮1销售接报表的“单击”处理程序为 Private Sub Command61 Click( On error goto err commando click Dim stDocName As String stDocName="销售交接班报表" DoCmd. Openreport stDocName, acPreview Exit commando click Exit sub Err Commando Click Msg Box Err. Description Resume exit commando Click End sub按钮“ ”的“单击” 处理程序为： Private Sub Command61_Click() On Error GoTo Err_Command61_Click Dim stDocName As String stDocName = "销售交接班报表" DoCmd.OpenReport stDocName, acPreview Exit_Command61_Click: Exit Sub Err_Command61_Click: MsgBox Err.Description Resume Exit_Command61_Click End Sub