Office中国论坛/Access中国论坛

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

作者: clmkjszx123 时间: 2006-12-29 17:56
标题: [求助]在点击导出为excel文件时，为什么提示:对象变量或With块变量未设置
[求助]在点击导出为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 时间: 2006-12-30 23:24
灌：用filter作查询源时，SQL语句中会有双引号，需转为单引号。(可以单独将filter写在string中调试，查看立即窗的运行结果。)

作者: cute2tiger 时间: 2008-5-21 15:21
在Adp 中遇到同样的问题，有没有解决的方法？

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)