设为首页收藏本站Access中国
Office中国(www.office-cn.net),专业Office论坛

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

返回列表 发新帖
查看: 354|回复: 3

导出EXCEL的奇怪问题,通过日期查询能导出,其它条件查询导出是空的

[复制链接]

点击这里给我发消息

发表于 2019-4-28 07:41:49 | 显示全部楼层 |阅读模式
参照网上的导出EXCEL的方法,通过查询后逐条遍历导出的方法,查询是平台生成的通用查询模块,不同的条件能查询出结果,但是在导出到EXCEL时,只有通过日期查询才能导出到EXCEL,通过其它条件查询,导出的EXCEL表是空的。。。,因为要控制导出的结果,所以用的是逐条遍历导出的方法。不知道下面的代码哪出错了。 Test.zip (10.41 MB, 下载次数: 36)

点击这里给我发消息

发表于 2019-4-28 10:21:10 | 显示全部楼层
Do While Not rs.EOF
在这一句前面加上
msgbox rs.recordcount
看看 有否数据

点击这里给我发消息

 楼主| 发表于 2019-4-28 12:31:19 | 显示全部楼层
tmtony 发表于 2019-4-28 10:21
Do While Not rs.EOF
在这一句前面加上
msgbox rs.recordcount

通过日期查询导出时,有数据记录,但是选其它条件查询导出时,0记录

点击这里给我发消息

 楼主| 发表于 2019-5-4 09:40:38 | 显示全部楼层
检查发现是这段出问题

  If Me.sfmSubForm.Form.FilterOn = True Then
        strSql = Replace(strSql, ";", "") '去掉;号
        strSql = "select * from (" & strSql & ") as qryA where " & Me.sfmSubForm.Form.Filter
    End If
qryA是查询模块中的一个变量,改不了。重新把这个导出EXCE的过程做成为一个函数,解决了这个问题。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

站长推荐上一条 /5 下一条

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2020-8-6 01:03 , Processed in 0.092785 second(s), 33 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表