为什吗没有老师解答问题

zss427607

解答问题

tanhong

你的问题何来,难不成"为什么没有老师解答问题"即你之问题吗?

zss427607

导出数据报错  ，可以改正上传吗

hi-wzj

晕，拷人家的代码也看看人家的提示吧？

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

zss427607

以上提示改正
在“工具”→“引用”中选择
'Microsoft DAO 3.6 Object Library.

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

hi-wzj

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

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

见实例:

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

zss427607

谢谢  各位版主的帮助

谢谢