本文于2023年5月16日首发于本人同名公众号，更多文章案例请关注微信公众号：Excel活学活用！
☆本期内容概要☆
用户窗体设置：收费项目
Excel VBA 操作ACCESS数据库表，更新、删除、添加记录。
上期我们分享了【收费管理系统】用户管理设计【Excel VBA 用户管理/一步一步带你设计【收费管理系统】03】，本期我们将设计【收费项目】模块功能！
今天的任务是设置【收费项目】模块功能，实现对“收费项目”的增、删、改。
下面我们就开始：
1、首先在Access数据库中创建新表，重命名为“tb收费项目”，我增加了一些模拟项目，暂时还是以诊所为例。
2、打开VBA编辑器，在用户窗体Usf_Main上增加命令按钮CmdChargeItem，Caption收费项目，可以通过复制“用户管理”命令按钮来完成，只要改一下名称、Caption，其他格式保持统一。
3、双击“收费项目”按钮，进入代码区，复制CmdUsers命令按钮的代码，把“tb用户”改为“tb收费项目”，就改这个地方，其他都不用改：
4、运行测试：
赶紧打开Usf_AndModiy窗体代码，发现问题原来在这：
当时为了测试，需要不断地运行、停止，如果这里不给currTable赋值，那就要不断地重新登录，现在可以把它删除了。
5、最终结果：
6、今天也只是搭了一个框架，能做到增加、删除、修改了，但是，还有不少需要优化的地方：
（1）增加下级明细项目时，应该把其他栏目信息自动带出，以减少手工输入的工作量，也能避免错误（如果能实现，则需要限制这些列不可编辑）；
（2）保存时，进行合规性检查：
（a）项目代码，代码两位一级，如果代码超过2位的，检查有无上级代码信息，如果没有则可能是输入错误，或者要添加上级代码（一般是需要增加新的项目分类）；
（b）项目代码不能重复；
（c）项目全称也不能重复等等；
（3）修改项目时，对其下级项目编码同时修改，并且可以对已经使用了的其他表中的收费项目信息进行修改。
我们可以发现，今天增加了一个模块，主要是增加了一个ACCESS数据表，VBA代码只增加和修改了一点点，大量的工作均在昨天完成了。能这么顺利实现数据库表记录增、删、改的功能，并且能便利地扩展，主要得益于我的另外一个项目《财务管理系统》，这里我想说的是，要提高VBA的水平，你得动手去写代码，绞尽脑汁地去思考解决方案。
今天的内容就这么多，后面会继续，敬请关注！还请大家多多点赞、留言、分享，谢谢大家，我们下期再会吧。
☆猜你喜欢☆
本文使用 文章同步助手 同步，本文于2023年5月16日首发于本人同名公众号，更多文章案例请关注微信公众号：Excel活学活用！