Access-培训管理系统-06-按钮代码设置之清空所有

微信公众号原文

系统：Windows 7
软件：Excel 2010 / Access 2010

• 这个系列开展一个新的篇章，主体使用Access，包括数据库部分及界面部分，当然输出部分也会涉及到Excel，Excel的可读性还是比较好的
• 本公众号的不同阶段：Excel -> Excel + Access -> Access。但并不表示Access就一定比Excel好啊，各有所长吧，合适才是最好的
• 主体框架：换一种讲解方式，以项目为基础，从开始到结束
• 项目名称：培训管理系统
• 主要功能：两个界面。界面1，培训时录入信息；界面2，以培训老师和培训学员为客户，输出信息
• 涉及知识：Access界面，数据库知识，VBA，SQL，Excel

Part 1：本篇目标

1. 接下来几篇分别介绍一下几个按钮的实现
2. 今天说说清空所有按钮，点击按按钮，当前界面下所有文本框、组合框、列表框所有内容都清除
3. 是否记得这个功能好像很熟悉，其实在之前的文章中已经介绍过这个功能
4. 另外也介绍如何限制文本框中的输入

1.png

Part 2：按钮关联代码

1. 切换到设计视图下，选中清空所有按钮，然后操作其属性表
2. 如果没有发现属性表，那么右键单击后，选择属性即可
3. 属性表中选择事件下的单击下拉列表事件过程，然后点击旁边的按钮即可进行VBE界面

动画过程

1.gif

属性表

2.png

调出属性表

3.png

Part 3：代码

1. 调用一个之前文章中写的Sub即可，这也是在正式做一个系统前，好的架构设计是多么重要，极大减轻工作负荷
2. 古人云：好的作品设计占了一半

Private Sub 清空所有_Click()
    Dim frmName
    frmName = fFrm_pxsr_01_当前窗体名称
    Call sMod_tyk_01_清空当前界面(frmName)
End Sub

代码截图

4.png

清空界面

3.png

Part 4：文本框输入限制

1. 在设计视图下，选中需要设置的控件
2. 在属性表中的格式设置具体格式
3. 例如设置培训开始时间控件格式为常规日期，并显示日期选取器为日期，这么设置后可以选择日期，如下图所示
4. 当输入的值不满足格式要求，会弹出错误提示

格式设置

5.png

设置后的效果

7.png

错误提示

8.png

to be continued!

---

• 本文为原创作品，如需转载，可加小编微信号learningBin

---

更多精彩，请关注微信公众号
扫描二维码，关注本公众号

公众号底部二维码.jpg