Access-培训管理系统-16-首页

微信公众号原文

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

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

Part 1:本篇目标

  1. 培训系统输入和输出已经完成
  2. 本文旨在增加一个首页,系统打开默认显示该页面

首页

Access-培训管理系统-16-首页_第1张图片
2.png

动态效果

Access-培训管理系统-16-首页_第2张图片
1.gif

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

代码截图

Access-培训管理系统-16-首页_第3张图片
3.png

Part 3:代码解读

  1. 判断页面是否已加载:isFrmOpen = Application.CurrentProject.AllForms(toFrm).IsLoaded
  2. 打开页面:DoCmd.OpenForm (toFrm)

Part 4:设置默认打开窗口

  1. 文件-选项-当前数据库,设置显示窗体

设置默认显示页面

Access-培训管理系统-16-首页_第4张图片
1.png

至此,培训管理系统全篇写完,是一个比较简单的小系统。同学们,动起来,敲一个自己的小系统

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

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

Access-培训管理系统-16-首页_第5张图片
公众号底部二维码.jpg

你可能感兴趣的:(Access-培训管理系统-16-首页)