Office中国论坛/Access中国论坛

标题: 为什吗没有老师解答问题 [打印本页]

作者: zss427607 时间: 2008-9-25 19:46
标题: 为什吗没有老师解答问题
解答问题

作者: tanhong 时间: 2008-9-25 20:14
你的问题何来,难不成"为什么没有老师解答问题"即你之问题吗?

作者: zss427607 时间: 2008-9-25 20:17
标题: 报错
导出数据报错，可以改正上传吗

作者: hi-wzj 时间: 2008-9-25 20:44
晕，拷人家的代码也看看人家的提示吧？

'刘小军(Alex) 2003-5-22
'这里将使用DAO来改变查询的SQL语句，必须先在“工具”→“引用”中选择
'Microsoft DAO 3.6 Object Library.

作者: zss427607 时间: 2008-9-25 21:12
以上提示改正
在“工具”→“引用”中选择
'Microsoft DAO 3.6 Object Library.

但是还是提示错误，这个集合中找不到此项目

作者: hi-wzj 时间: 2008-9-25 21:29
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_导出记录_Click:
Exit Sub

Err_导出记录_Click:
MsgBox Err.Description
Resume Exit_导出记录_Click
End Sub

另外您需要随便建立一个名叫“查询记录结果”的查询。

作者: tanhong 时间: 2008-9-25 21:29
他光不是引用的问题,导出数据条件对象也有问题.
看了你的代码 , 我个人认为你只是要与查询同步,并用将数据导出到EXCEL中, 建一个查询做为导出EXCEL的数据源并将窗体日期做为你的筛选条件就可以了

见实例:[attach]32296[/attach]

[ 本帖最后由 tanhong 于 2008-9-25 21:46 编辑 ]

作者: zss427607 时间: 2008-9-25 21:37
谢谢各位版主的帮助

谢谢

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