这句代码需要整么改一下呢？取消时不提示。

snryga

Private Sub 整体_DblClick(Cancel As Integer)  '双击文件本框导出相应查询文件
On Error GoTo Err_整体_Click
DoCmd.OutputTo acOutputQuery, "导出-整体", acFormatXLS, , True   
Exit_整体_Click:
     Exit Sub
Err_整体_Click:
     MsgBox Err.Description
Resume Exit_整体_Click
End Sub

snryga

已解决
不要这句MsgBox Err.Description，就OK.