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

微信公众号原文

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

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

Part 1:本篇目标

  1. 接下来几篇分别介绍一下几个按钮的实现
  2. 今天说说清空所有按钮,点击按按钮,当前界面下所有文本框、组合框、列表框所有内容都清除
  3. 是否记得这个功能好像很熟悉,其实在之前的文章中已经介绍过这个功能
  4. 另外也介绍如何限制文本框中的输入
Access-培训管理系统-06-按钮代码设置之清空所有_第1张图片
1.png

Part 2:按钮关联代码

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

动画过程

Access-培训管理系统-06-按钮代码设置之清空所有_第2张图片
1.gif

属性表

Access-培训管理系统-06-按钮代码设置之清空所有_第3张图片
2.png

调出属性表

Access-培训管理系统-06-按钮代码设置之清空所有_第4张图片
3.png

Part 3:代码

  1. 调用一个之前文章中写的Sub即可,这也是在正式做一个系统前,好的架构设计是多么重要,极大减轻工作负荷
  2. 古人云:好的作品设计占了一半
Private Sub 清空所有_Click()
    Dim frmName
    frmName = fFrm_pxsr_01_当前窗体名称
    Call sMod_tyk_01_清空当前界面(frmName)
End Sub

代码截图

Access-培训管理系统-06-按钮代码设置之清空所有_第5张图片
4.png

清空界面

Access-培训管理系统-06-按钮代码设置之清空所有_第6张图片
3.png

Part 4:文本框输入限制

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

格式设置

Access-培训管理系统-06-按钮代码设置之清空所有_第7张图片
5.png

设置后的效果

Access-培训管理系统-06-按钮代码设置之清空所有_第8张图片
7.png

错误提示

Access-培训管理系统-06-按钮代码设置之清空所有_第9张图片
8.png

to be continued!


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

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

Access-培训管理系统-06-按钮代码设置之清空所有_第10张图片
公众号底部二维码.jpg

你可能感兴趣的:(Access-培训管理系统-06-按钮代码设置之清空所有)