Office中国论坛/Access中国论坛

标题: 帮忙看看导出为何报错 [打印本页]

作者: zss427607 时间: 2008-9-24 20:41
标题: 帮忙看看导出为何报错
谢谢了

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

作者: zss427607 时间: 2008-9-24 21:37
楼上的可以说的明白点吗

作者: godfrey 时间: 2008-9-24 21:49
已经没法再明白了呀[:45]
打开VBA Editor (ALT-F11)
工具-〉引用
在Microsoft DAO前面打勾

作者: zss427607 时间: 2008-9-24 22:08
现在引用DAO 但是还是报错

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

谢谢了

作者: godfrey 时间: 2008-9-26 01:32
你把人家原来的查询和窗体名字改掉了，而且没有引用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 时间: 2008-11-1 19:00
xiexie

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