新人求老师们指导

王卓　发表于：2016-08-22 20:47:15 　

小弟最近因为公司有需求自行学了一点ACCess，做了一个简单的软件，借鉴了很多大神的代码。
其中想实现一个功能，就是通过在文本框内搜索文字，然后可以导出excel。
用了网上的一个程序，目前可以实现输入问题后搜索，但是每次导出时只能导出全部的表内容，而网上的程序可以根据输入的不同导出不同的内容，想求教一下如何修改，不胜感谢。

Top

leoyoung 发表于：2016-08-23 07:16:20

既然查询可以，尝试仿照查询的where后的条件语句替换导出excel的strwhere的语句。

也就是说strwhere=查询中的条件语句

Top

王卓发表于：2016-08-23 08:51:12

感谢回复，但是不太明白，我把查询的语句贴上来，帮忙看看怎么修改，谢谢

Top

zhaoyoulong 发表于：2016-08-23 16:10:26

窗体的数据源（recordsource）基于一个查询(Q)

利用查询的按钮更新一下SQL 语句(Q.Sql)，再刷新一下窗体，不就行了！

你这个利用筛选的办法显示窗体数据,再用固定查询的数据来导出，反而让人感到不妥

你的问题估计出在 strWhere 上，因为exprot_click 中的 strWhere 是没有定义的

而查询_click中的strWhere 也是没有定义的，估计是有一个PULLIC 声明，有可能存在传值错误

Top

yuhong 发表于：2016-08-24 12:54:36

On Error Resume Next
CurrentDb.Execute "Select * INTO [excel 8.0;database=" & Application.CurrentProject.Path & "\结果.xls].Sheet1 from 你的表
where strWhere ='" & 你的查询字符串 & "'"
MsgBox "已经导出到：" & Application.CurrentProject.Path & "\结果.xls"

Top

朱先生发表于：2016-08-24 17:49:32

1.做个通用查询

2.窗体查询，你已做了

3.导出对象为通用查询，也就是子窗体中显示的内容

因没有附件，也只能用描述方法说一下步骤啦

选涉及要解决问题的内容传出，能增加获取帮助的机会

也不要让愿意帮助你的好心人象猜迷一样回复

Top

总记录：5篇页次：1/1 9 1 :

Access交流中心

新人求老师们指导