系統：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. 本文旨在增加一個首頁，系統開啟預設顯示該頁面

首頁

動態效果

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：程式碼解讀

1. 判斷頁面是否已載入：isFrmOpen = Application.CurrentProject.AllForms(toFrm).IsLoaded
2. 開啟頁面：DoCmd.OpenForm (toFrm)

Part 4：設定預設開啟視窗

1. 檔案-選項-當前資料庫，設定顯示窗體

設定預設顯示頁面

至此，培訓管理系統全篇寫完，是一個比較簡單的小系統。同學們，動起來，敲一個自己的小系統

• 本文為原創作品，如需轉載，可加小編微訊號learningBin

更多精彩，請關注微信公眾號 掃描二維碼，關注本公眾號