请各位老师帮助，

ai9527

一个导出表格命令按扭，点取消时会提示：错误2501  这个OUTPUTTO操作被取消。如何清除此提示！谢谢啦
Private Sub cmd导出表格_Click()
    Dim qdf As DAO.QueryDef
    Dim sSQL As String
    If Len(sWhere) <> 0 Then
        sSQL = "SELECT [入库表 查询].* FROM [入库表 查询] Where " & sWhere
    Else
        sSQL = "SELECT [入库表 查询].* FROM [入库表 查询]"
    End If
    Set qdf = CurrentDb.QueryDefs("Q")
    qdf.SQL = sSQL
    qdf.Close
    Set qdf = Nothing
    DoCmd.OutputTo acOutputQuery, "Q", acFormatXLS, , True
End Sub

leijiqiang

呵呵~错误也执行~这叫掩饰

rjacky

在docmd的前面加一句代码,即

On Error Resume Next
DoCmd.OutputTo acOutputQuery, "Q", acFormatXLS, , True