帮忙看看导出为何报错

zss427607

谢谢了

godfrey

没有引用DAO[:50]
人家已经告诉你了
楼主用人家程序都不读一下的
'刘小军(Alex) 2003-5-22
'这里将使用DAO来改变查询的SQL语句，必须先在“工具”→“引用”中选择
'Microsoft DAO 3.6 Object Library.

zss427607

楼上的   可以说的明白点吗

godfrey

已经没法再明白了呀[:45]
打开VBA Editor (ALT-F11)
工具-〉引用
在Microsoft DAO前面打勾

zss427607

现在引用DAO  但是还是报错   


楼主可以  帮忙修改上传的附件吗


谢谢了

godfrey

你把人家原来的查询和窗体名字改掉了，而且没有引用DAO，所以程序报错
原来的"盘点查询子窗体"被你改成"匹配库存"。原来一个叫"查询记录结果"的查询被你改成什么了？在下面的程序里面相应也改过来就对了。
    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

zss427607

xiexie