新菜鸟请教大侠们几个ACCESS技术问题

zjxuan

　　小弟建了一个“办公设备管理系统”数据库（随便做个例子而已），里面部分使用了“红尘如烟”版主一个例子的部分代码，在此感谢一下。数据结构请大侠们下载附件“ZZZ”，本菜鸟遇到的问题如下：

（1）在点击“主窗体”-“设备信息”选项卡-“新建”，调出“设备信息录入”窗体，只要在里面的“设备名”或“型号”或“使用科室”中输入东西，再点击“关闭”后，“主窗体”的“设备信息”选项卡中的“子窗体1”和“设备信息”表中自动增加这个记录。问题是我想要的功能是点击“关闭”时不会增加记录，难道我的“关闭”代码写错了？？？同样，“维修记录”选项卡也出现同样问题。(之前搞错了，还是没有解决)

（2）“查询”按钮控件使用了“红尘如烟”版主一个例子的“数据筛选器”代码，“清除查询”按钮控件功能是清除查询结果，使在“子窗体1”或“子窗体2”中重新显示“设备信息”表和“维修记录”表。但是现在的情况：在“设备信息”选项卡查询后在“子窗体1”显示查询结果，再在“维修记录”选项卡中查询后在“子窗体2”显示查询结果，点击“清除查询”，虽然能重新显示“维修记录”表，但是返回“设备信息”选项卡点击“清除查询”，功能就失效了。反之，也会出现这情况。需要怎样修改“清除查询”代码？？？ (已解决,方法很简单,内详)

（3）我想要的“导出”按钮控件的功能是：既能导出“设备信息”表或“维修记录”表（功能1），又能导出经过“查询”得出的结果列表（功能2），同时导出的Excel文件名后面自动加上当天的日期（功能3）。我在论坛下载了很多例子都实现不了功能2（用过代码、宏、调用自定义函数等方法），只能实现功能1，而功能3中的例子很少，听说用TransferSpreadsheet可以实现，但是不会用。请大侠们帮忙解决。(已解决2.24,代码算是很简短,默认保存到同一目录.部分代码来自roych)

（4）想增加“导入”功能。假设遇到的问题是电脑A和电脑B都使用ZZZ.mdb新建记录，难免产生相同的“设备信息”或“维修记录”的“编号”，当在电脑A的ZZZ.mdb上导入电脑B中导出的“设备信息”或“维修记录”Excel文件时，使B中的“编号”自动修改成连续于A中的记录中，即例如A中的“编号”是1、2、3、4，B中的“编号”是1、2、3，导入后，A变为1、2、3、4、5、6、7。(roych已帮忙解决,但是想找精简一点的办法,所以还空着)

PS：小弟初学ACCESS，在本论坛搜索下载了很多例子想实现以上的功能，但是能力有限，实在解决不了，请大侠们热心帮助，在此感激不尽！！！每解决一个问题我会重新上传修改好的附件，除外还会完善问题之外的其它功能!

roych

1、close之前，必须保存记录才可以的，加上这么一句：DoCmd.RunCommand acCmdSaveRecord
2、可能跟电脑运行速度有关，或者等红尘版主再解决吧。太晚了，我不打算调试了。——这一点总会谅解吧？O(∩_∩)O~
3、导出问题必须建立查询，或者用记录集（Recordset）写入。我这里采用了前者，主要是考虑到两个记录集对内存可能有影响。也许其它网友会有更好的解决办法。
4、共享的情况下是不存在相同记录的可能性。可以同时多用户录入数据。如果非要导入，我建议把它（Excel文件）链接到数据库上作为临时表，然后再执行追加查询，把它追加到设备或者维修表里，导入时很容易出错（例如编辑了某些区域之后，字段又会发生变化）。——当然，链接需要注意的是，不能改文件名，而且路径必须固定不变，其它用户不能打开链接表（Excel文件）则不能执行相关查询。

备注：今天想了想，写生成表查询，用Docmd.RunSQL执行生成表查询，然后导出应该会更简洁些，修改后的附件如下（需要分开两次才能导出全部信息）：

zjxuan

多谢roych朋友。
（1）删除多余的代码就可以解决了。
（2）已解决，已重新上传附件。
（3）只能导出全部记录，不能导出“查询”后的结果记录，但是文件名经roych修改可以自动加上当天日期。一半未解决。
（4）功能还没有实现。

zjxuan

大家帮帮忙呀！！！

roych

回复 zjxuan 的帖子

可能LZ没怎么留意到修改版数据表中多了两个生成表（筛选设备和筛选维修）。导入导出已经调试完毕，暂时未发现问题。
由于文件名经常变，所以用了文件对话框（FileDialog）获取文件名，这个需要引用office库。可能不支持绿化版，如果出现错误，如果出现错误，请进入VBE界面，重新引用库。
部分关键代码已经进行了注释，如有不懂再发帖。……太累了，这次总不至于睡不着了吧？O(∩_∩)O~，再过几个小时就上班了。

今天再次测试，附上视频。

zjxuan

roych 发表于 2011-2-21 02:47
回复 zjxuan 的帖子

可能LZ没怎么留意到修改版数据表中多了两个生成表（筛选设备和筛选维修）。导入导出已 ...

谢谢呀。
不过我这里还是不能导出查询后的结果列表，不知是不是我这边ACCESS软件的问题。正学习一下代码。

zjxuan

顶顶吧!