请大师帮忙编写窗体录入的VBA代码

李桥贵

李桥贵 发表于 2018-6-20 09:16
非常感谢你！我现在在原来基础上有所改进。

参照论坛上大师的杰作，我自己摸索着做了点，但我悟性差，后面的不会做。麻烦帮个忙。 教师职称资格录入.zip (23.85 KB, 下载次数: 55)

2018-6-20 09:19 上传

点击文件名下载附件

李桥贵

李桥贵 发表于 2018-6-20 09:19
参照论坛上大师的杰作，我自己摸索着做了点，但我悟性差，后面的不会做。麻烦帮个忙。

参照论坛上大师的杰作，我自己摸索着做了点，但我悟性差，修改和查询没有能力做。麻烦帮个忙。 教师职称资格录入 1.zip (23.09 KB, 下载次数: 72)

2018-6-20 15:54 上传

点击文件名下载附件

yylucke

李桥贵 发表于 2018-6-20 15:54
参照论坛上大师的杰作，我自己摸索着做了点，但我悟性差，修改和查询没有能力做。麻烦帮个忙。

建议：你的控件命名为英加中，比如TextBox1对应的是姓名，那就“TB姓名”，这样写代码不容易混，而且一眼就看出是TextBox控件，且是与“姓名”相关联的。
当然，我这个方法对于专业人士来讲简直就是最low的。但我个人认为方便就好。毕竟不是商业软件。另，在保存时还要进行有效性检查和重复性检查，否则后期就是垃圾数据。

看了你的表，结构不太好。建议把高级、1~3级合并为一个，只要加一列：资格证书信息（黄色单元格），就能解决你那么多重复列。而且，就是同一组数据，你也重复。真心不赞同你这样组织数据。
在你写窗体及代码前，应认真思考数据表结构，不要贸然写代码，否则就是前功尽弃。
同时，作为存储，不要有垃圾表名、合并单元格，否则给编程带来诸多麻烦。
最终建议：如果你要用VBA录入，拆成多张sheet：人员（以身份证号为关键字），证书，聘用经历

zopey

If MsgBox("当前输入的快递单号和前1次输入的同名了！？还要继续输入吗？", 4 + 32, "提示：") = vbNo Then

整表设计的 思路不合理。代码是东拼西凑的，没有修改的必要。

ivccav

李桥贵 发表于 2018-6-20 15:54
参照论坛上大师的杰作，我自己摸索着做了点，但我悟性差，修改和查询没有能力做。麻烦帮个忙。

你的问题真的非常耗时，给酬劳都不愿做。56个列，把这几十个列和窗体上的控件对应关系都要花半天。且你没有提供任何操作的思路，还得帮你把业务流程全部梳理一遍，不然根本没法动笔写代码。问复杂的问题，最好自己能写代码，不然没几个人会帮你！太花时间了！
你提供的那些代码没法使用，且很多是不相关的内容，我已全部删除。下拉菜单的内容有上百项，放在代码里太麻烦，我已放在另一个工作表内（不修改时自动隐藏），需要新增或修改时，按窗体上的【修改基础资料】按钮去新增或修改。

你的表格内有四个证书，其性质是一样的，按你目前的窗体，根本不知道要录入到哪一个地方（录入到高级、一级、二级还是三级？没有办法知道），必须加一个关键控件，在录入或修改前选择要录入到什么地方。选择下拉控件时，其他信息会自动匹配。点击listview，可自动填入信息到控件中。可多操作一下熟悉这些功能。

你的表格没有办法处理同名教师，因为没有唯一标识符。因此没有办法智能保存信息（有教师时修改，无教师时新增），在查询不到教师时，需要点击【新增教师】按钮，才能录入新的教师信息。录入完之后点击【保存】，修改和新增共用一个保存按钮。





如提示找不到工程，是因为listview版本不同所致，可按如下处理：





教师职称资格录入.zip (31.23 KB, 下载次数: 317)

2018-6-20 18:10 上传

点击文件名下载附件

李桥贵

ivccav 发表于 2018-6-20 18:13
你的问题真的非常耗时，给酬劳都不愿做。56个列，把这几十个列和窗体上的控件对应关系都要花半天。且你没 ...

非常感谢老师。

李桥贵

李桥贵 发表于 2018-6-21 14:44
非常感谢老师。

ivccav老师，王明现在是一级教师，几年后王明晋升高级教师，要把王明的一级教师和高级教师信息录在同一行中，如何修改代码。

Du孤小君

ivccav 发表于 2018-6-20 18:13
你的问题真的非常耗时，给酬劳都不愿做。56个列，把这几十个列和窗体上的控件对应关系都要花半天。且你没 ...

看到你耐心帮别人解答 十分钦佩 萌新一枚 还望多多指教
方便加下qq吗 1101457413 我加你也行 谢谢

ivccav

李桥贵 发表于 2018-6-21 16:59
ivccav老师，王明现在是一级教师，几年后王明晋升高级教师，要把王明的一级教师和高级教师信息录在同一行 ...

你从E列到BD列，共有四个证书信息（高级、一级、二级、三级）。你录入的证书信息只能写在E列到BD列这50多列之间，并且每个人只能保留四个证书信息，超过四个的话，只能覆盖原来的证书了。这就是我第一次帮你设计的时候使用数据库的原因。使用数据库，每个人1万个证书都没有问题，可以随意扩展。你在录入证书信息前，要在【选择教师资格证书信息栏位】下拉框中选择需要录入或修改的位置，共有4个选项，分别对应高级、一级、二级、三级的位置。看图吧：
下图为修改或新增教师证书信息：





下图为新增教师（为了展现“新增”的效果，我先点击了其他老师填满控件，然后点击“新增”，清空控件的内容。实际中不需要这样，但一定要在【选择教师资格证书信息栏位】下拉框中选择需要录入的位置，默认填写在高级教师证书信息栏。你可以根据实际情况从下拉框选择高级、一级、二级、三级，然后再点击【新增教师】按钮）：



修改或新增基础资料的方法（注意“基础资料”工作表在离开时会自动隐藏，需要在窗体中点击【修改基础资料】按钮才能进入）：

李桥贵

谢谢老师！