Office中国论坛/Access中国论坛

标题: 新手问题，ACCESS导出到EXCEL [打印本页]

作者: lqp971 时间: 2010-3-12 20:30
标题: 新手问题，ACCESS导出到EXCEL
大哥大姐们：
帮忙看看以下代码，这段代码是小军老师的，我一直都用，但是这次用不知道为什么，出现“这个集合中找不到该项目”的错误对话框。
注：deliver是我做的按钮名称
   ACCcsub是窗体中根据ACCc查询做的子窗体
问题出在哪里？

On Error GoTo Err_deliver_Click
'这里将使用DAO来改变查询的SQL语句，必须先在“工具”→“引用”中选择
'Microsoft DAO 3.6 Object Library.
'＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Dim Check As DAO.QueryDef 'qdf被定义为一个查询定义对象
Dim strWhere, strSQL As String

strWhere = Me.ACCcsub.Form.Filter
If strWhere = "" Then
'    '没有条件
   strSQL = "SELECT * FROM [ACCc]"
Else
      '有条件
   strSQL = "SELECT * FROM [ACCc] WHERE " & strWhere
End If

Set Check = CurrentDb.QueryDefs("result")
Check.SQL = strSQL
Check.Close

Set Check = Nothing

DoCmd.OutputTo acOutputQuery, "result", acFormatXLS, , True

Exit_deliver_Click:
Exit Sub
Err_deliver_Click:
MsgBox Err.Description
Resume Exit_deliver_Click

作者: lqp971 时间: 2010-3-13 09:23
等来的是广告……

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