分享一个EXCEL VBA+Access数据库+Listview 信息录入系统

ivccav

源于一位网友求助：http://club.excelhome.net/forum. ... p;page=1#pid9517898


这位网友在帖子中求助用窗体录入。看了内容，有近200列数据，分为5个教师职称信息列，
每个职称信息列中有证书号，评审机构，聘用信息，等等，应该能看出这是无法扩展的形式，

首先：教师职称不止所列的5种；
其次：聘用信息也不可能只有3次。
在原表上做窗体几天都做不完，且欠缺灵活性，做出来也不会好用。
于是根据自己的理解，重新组织了数据，把数据全部放进数据库里面。
在重新组织数据时，有一些疑惑，比如职称为何跟工作单位捆绑？
首次聘用信息和高低聘信息是否有关系，等等，都不得而知。

花了整整2天时间，总算把功能实现了，界面不美。至于优化代码，那就看留给大家了。
实现了三级联动，教师信息→职称信息→首聘信息，能修改和新增，有基本的输入防错处理。

使用方法分4步：

1.输入教师姓名（支持模糊查询），如果无，则点击新增教师信息，如有，在需要时可点修改；





2.在listview中选中需要修改或新增职称信息的教师项，点击修改信息，弹出修改界面；

3.在修改界面，已选教师的所有证书和聘用信息作为列表显示。点击证书列表项目，可自动联动响应聘用信息；

4.在修改界面，可修改该教师的“现职称信息”，前提是该教师必须有职称证书；



5.修改或新增该教师职称证书信息；



6.修改或新增该教师各职称证书信息所对应首聘信息（履历）。



附件： 职称资格.zip (320.72 KB, 下载次数: 3108)

2018-5-19 18:06 上传

点击文件名下载附件

teshia

必须的近义词是什么
一定要
顶

wanghx8866

谢谢分享学习的好地方

ivccav

VB的各种控件兼容性不好，不同EXCEL版本之间首次使用时会出现问题。

Listview控件已然是非常好的控件，像DataGrid这种控件连鼠标中键都不支持。

如果提示“找不到工程”，那是因为Listview的版本不同所致。解决方法很简单：

1.按ALT+F11键进入VBA编辑器，点击菜单——工具——引用：

把 “丢失：Microsoft Windows Common Controls 6.0(SP6)”前面的勾取消，点击确定；



2.在窗体初始化过程（VBA报错时一般自动定位到该处）找到“.View=lvwReport”，

把“=lvwReport”删掉，然后输入等号=，在弹出的选项中选中：lvwReport

VBA就会弹出一个对话框：



The library which contains this symbol is not refenrenced by the current project,
so the symbol is undefined.Would you like to add a reference to the containing library now?

中文意思大致是（很久没接触英文了，只能看懂大概意思，见谅）：

包含此标识符的库未被当前工程引用，因此该标识符未被定义。是否要现在对该包含库添加引用？

点击“是”，保存文件，重新运行，OK搞定。

ardu95

学习的好地方

ivccav

ardu95 发表于 2018-5-20 18:00
学习的好地方

只提供一种方法和思路。实际应用还应该美化一下，比如listview的列宽要设定合适，有些列不需要显示等等

ivccav

teshia 发表于 2018-5-19 19:27
必须的近义词是什么
一定要
顶

相互学习。。。

zixfei

有面安装环境使用的数据包么，这个

hehex

感谢分享,VBA 的纸片窗体确实有很大的兼容性问题。特别是相对好用的listview 控件，64位的office 无法使用。

ivccav

zixfei 发表于 2018-5-23 10:02
有面安装环境使用的数据包么，这个

其实不需要使用别人的版本的，自己重新画一个Listview就行了。半分钟的事情而已。

这是我使用的版本：

ListView(版本6.1.98.34).zip (451.43 KB, 下载次数: 863)

2018-5-23 10:30 上传

点击文件名下载附件