版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/fourSeasonBeans/article/details/83420206
系统:Windows 7
软件:Excel 2010 / Access 2010
- 这个系列开展一个新的篇章,主体使用Access,包括数据库部分及界面部分,当然输出部分也会涉及到Excel,Excel的可读性还是比较好的
- 本公众号的不同阶段:Excel -> Excel + Access -> Access。但并不表示Access就一定比Excel好啊,各有所长吧,合适才是最好的
- 主体框架:换一种讲解方式,以项目为基础,从开始到结束
- 项目名称:培训管理系统
- 主要功能:两个界面。界面1,培训时录入信息;界面2,以培训老师和培训学员为客户,输出信息
- 涉及知识:Access界面,数据库知识,VBA,SQL,Excel
Part 1:本篇目标
- 培训系统输入和输出已经完成
- 本文旨在增加一个首页,系统打开默认显示该页面
首页
动态效果
Part 2:代码
窗体内代码
Private Sub 输出_Click()
Dim isFrmOpen '判断窗体是否已打开
Dim toFrm
toFrm = "培训输出"
isFrmOpen = Application.CurrentProject.AllForms(toFrm).IsLoaded
If Not isFrmOpen Then
DoCmd.OpenForm (toFrm)
End If
End Sub
Private Sub 输入_Click()
Dim isFrmOpen '判断窗体是否已打开
Dim toFrm
toFrm = "培训输入"
isFrmOpen = Application.CurrentProject.AllForms(toFrm).IsLoaded
If Not isFrmOpen Then
DoCmd.OpenForm (toFrm)
End If
End Sub
代码截图
Part 3:代码解读
- 判断页面是否已加载:
isFrmOpen = Application.CurrentProject.AllForms(toFrm).IsLoaded
- 打开页面:
DoCmd.OpenForm (toFrm)
Part 4:设置默认打开窗口
- 文件-选项-当前数据库,设置显示窗体
设置默认显示页面
至此,培训管理系统全篇写完,是一个比较简单的小系统。同学们,动起来,敲一个自己的小系统
- 本文为原创作品,如需转载,可加小编微信号
learningBin
更多精彩,请关注微信公众号
扫描二维码,关注本公众号