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

微信公众号原文

系统：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. 本文旨在增加一个首页，系统打开默认显示该页面

首页

2.png

动态效果

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

代码截图

3.png

Part 3：代码解读

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

Part 4：设置默认打开窗口

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

设置默认显示页面

1.png

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

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

---

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

公众号底部二维码.jpg