[求助]在点击导出为excel文件时，为什么提示:对象变量或With块变量未设置

clmkjszx123

[求助]在点击导出为excel文件时，为什么提示：对象变量或With块变量未设置



Private Sub cmd导出_Click()

On Error GoTo Err_cmd导出_Click
   Dim qdf As DAO.QueryDef   

   Dim strWhere As String
   Dim strSQL As String
   
   strWhere = Me.水电费查询子窗体.Form.Filter
    If strWhere = "" Then
        '没有条件
        strSQL = "SELECT * FROM [水电费查询]"
    Else
        '有条件
        strSQL = "SELECT * FROM [水电费查询] WHERE " & strWhere
    End If
   
    Set qdf = CurrentDb.QueryDefs("查询结果")
    qdf.SQL = strSQL
    qdf.Close
   
    Set qdf = Nothing
   
    DoCmd.OutputTo acOutputQuery, "查询结果", acFormatXLS, , True

   
Exit_cmd导出_Click:
    Exit Sub

Err_cmd导出_Click:
    MsgBox Err.Description
    Resume Exit_cmd导出_Click
End Sub

zhangxiyou

灌：用filter作查询源时，SQL语句中会有双引号，需转为单引号。(可以单独将filter写在string中调试，查看立即窗的运行结果。)

cute2tiger

在Adp 中遇到同样的问题，有没有解决的方法？