|
请高手帮助一下小弟.
在一个查询窗体下. 可以通过一个跟据不同查询将结果导出为EXCEL. 问题以前用MDB时可以运行. 变为ADP后就不行了. 运行时会报错"对象变量未设置或With块变量未设置"
谢谢高手帮助.
其中出错代码为:
Dim qdf As DAO.QueryDef 'qdf被定义为一个查询定义对象
Dim strWhere, strSQL As String
strWhere = Me.Target子窗体.Form.Filter
If strWhere = "" Then
strSQL = "SELECT * FROM [target] WHERE sales = '" & user & "'"
'没有条件
End If
If strWhere <> "" Then
strSQL = "SELECT * FROM [target] WHERE " & strWhere & " and sales ='" & user & "'"
End If
Debug.Print strSQL
Set qdf = CurrentDb.QueryDefs("Target查询")
qdf.SQL = strSQL
qdf.Close
Set qdf = Nothing
DoCmd.OutputTo acOutputQuery, "Target查询", acFormatXLS, , True
Exit_cmd导出_Click:
Exit Sub
Err_cmd导出_Click:
MsgBox Err.Description
Resume Exit_cmd导出_Click
End Sub
[ 本帖最后由 cute2tiger 于 2007-8-1 22:46 编辑 ] |
|