Office中国论坛/Access中国论坛

标题: 我的一个问题想了好久没作出来 [打印本页]

作者: chaptnt 时间: 2004-4-12 16:47
标题: 我的一个问题想了好久没作出来

Private Sub cmd导出_Click()
On Error GoTo Err_cmd导出_Click

Dim qdf As DAO.QueryDef 'qdf被定义为一个查询定义对象
Dim strWhere, 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

这是我照刘小军的例子作的查询导出excel可是为什么我导不出来呢.出现个对话窗说
这个集合找不到呢.属性单击项我用的是事件过程如果用的是宏就是整个导出了。
DAO3.6的程序我以打钩了。
如何不用DAO3.6，是不是也可以查询后导出呢？请版主和各位会员帮我.

作者: zhengjialon 时间: 2004-4-12 17:41
打勾后还要看一下是否优先级在ADO之上。

作者: chaptnt 时间: 2004-4-12 23:40
为什么还不行呀~！！！

出来窗口说这个集合找不到此项目
还有别的vba代码吗?

[此贴子已经被作者于2004-4-12 18:27:13编辑过]

作者: zhengjialon 时间: 2004-4-13 16:52
这可能是你某处的代码写错，要传库上来测试才行的。

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