懒人有懒计——浅谈自动报表

roych · 发表于 2011-11-19 18:45:05

本帖最后由 roych 于 2011-11-19 18:45 编辑

有人说，懒人比较懂得享受生活，对此我深以为然。在我看来，世界上不少发明估计都是懒人整出来的。正所谓“懒人有懒计”，于是讨厌洗衣服的懒人，就发明了洗衣机；不想擦皮鞋，便有了擦鞋机；冬天懒得烧炕，暖气片从此应运而生……

说这些，是因为今天看到了新手浩天关于《如何基于一个可选字段数目的查询创建报表》的求助，里面是罗斯文数据库示例。大体看了下，主要原理是通过克隆记录集，再设置选择查询的SQL语句，从而更新查询。留意到里面有Docmd.OpenQuery语句，所以如果打开查询后再创建报表，是很简单的，只需要在单击事件中再加上这五句（大家可以试试）：

On Error Resume Next
DoCmd.DeleteObject acReport, "数据表视图"
DoCmd.RunCommand acCmdNewObjectAutoReport
DoCmd.Save acReport, "数据表视图"
DoCmd.Close acQuery, "数据表视图"

复制代码

——不知道大家有没有这样的经历：刚学做报表时，喜欢点选数据源，然后点击插入\报表，生成一个报表后再进行处理。其实，这几句正是基于这个原理。当然，如果做成两个按钮，分别打开查询和报表，那么则相对麻烦些许，于是我便把更新查询过程剥离出来，改造成子过程调用。
尽管懒人有懒计，还是不太希望大家这么“懒”，毕竟机械化或者程序化的东西，始终没有亲力亲为来得人性化。正如一些污渍洗衣机未必洗得干净一样，自动报表的缺陷在于字段过多时，控件宽度或者页面设置等等都存在问题。当然，花点时间，写上一个自适应宽度的函数过程，也不是不可以解决的。不过这些都是后话了。

ycxchen · 发表于 2011-11-20 15:07:03

初学者值得一学！

tmtony · 发表于 2011-11-20 16:52:40

谢谢分享

wgh3g · 发表于 2011-11-20 17:12:10

学习了

yanwei82123300 · 发表于 2011-11-20 17:14:09

初学者值得一学！

海婷 · 发表于 2011-11-21 09:03:09

新手也来学一下!

jiuduren · 发表于 2011-11-21 09:30:32

下来学习，谢谢！

zhengjialon · 发表于 2011-11-21 10:23:57

谢谢分享

greatcf · 发表于 2011-12-22 13:31:29

感谢了哈

淡淡烟味 · 发表于 2012-1-27 19:55:16

值得学习

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训群2 (792054000)
Access经典源码培训群 (77130759)
Access源码技巧群 (138920637)
access vba (307776555)

主题相关群

地区相关群[您还没设置居住地]

[报表] 懒人有懒计——浅谈自动报表

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)