《Access_2002數(shù)據(jù)庫應(yīng)用實訓(xùn)教程》第10章：Access_VBA程序設(shè)計

1、上一頁上一頁下一頁下一頁返回首頁返回首頁返回本章返回本章第10章 Access VBA程序設(shè)計10.1 模塊的創(chuàng)建10.2 VBA編程上一頁上一頁下一頁下一頁返回首頁返回首頁返回本章返回本章10.1 模塊的創(chuàng)建 模塊是將VBA（Visual Basic for Applications）聲明和過程作為一個單元進行保存的集合。模塊基本上是由聲明、語句和過程組成的，它們作為一個已命名的單元存儲在一起，對VBA代碼進行組織，并完成特定的任務(wù)。 Access有兩種類型的模塊：標(biāo)準(zhǔn)模塊和對象類模塊。不論哪種模塊中的每一個過程都可以是一個Function過程或一個Sub過程，如下圖10.1所示。兩個列表中

2、，是“對象對象”框，是 “過程過程”框（即“事件”框），當(dāng)選擇了任一個對象后，右邊的“事件”也會隨之切換，因為不同類 型的對象，也有不同的事件，選擇任一事件后，即可顯示該事件 程序的內(nèi)容，且光標(biāo)會停留在程序的第一行，可以立即 開始編寫程序。 上一頁上一頁下一頁下一頁返回首頁返回首頁返回本章返回本章圖10.1代碼編輯窗口 “對象對象”框“過程過程”框聲明過程 “過程視圖過程視圖”按鈕“完整的模塊視圖完整的模塊視圖”按鈕 注意：在“事件”中，凡顯示為粗體的，即表示該事件已 內(nèi)含程序。上一頁上一頁下一頁下一頁返回首頁返回首頁返回本章返回本章 模塊和程序不同：模塊只有兩個任務(wù)，一個是保存程序，另一個是

3、聲明可以在多個程序中使用的變量或常量，模塊本身不可以被運行。而程序也稱為“運行程序”，一個模塊中含有若干個程序，所以程序是最基本的運行單位。 創(chuàng)建模塊，要在VBA編程環(huán)境VBE（Visual Basic Editor）中進行。當(dāng)我們選中一個需要編寫代碼的控件，并準(zhǔn)備為其對應(yīng)的某一事件的響應(yīng)方法編寫VBA代碼時，就應(yīng)該啟動VBE，在此編輯環(huán)境中進行VBA代碼編輯操作。如圖10.2所示為VBE窗口：創(chuàng)建模塊的方法有幾種，如下：1.在“數(shù)據(jù)庫”窗口的對象欄中單擊“模塊”，然后單擊工具欄上的 “新建”按鈕打開VBE編輯器，為數(shù)據(jù)庫創(chuàng)建新的模塊對象。上一頁上一頁下一頁下一頁返回首頁返回首頁返回本章返回本

4、章2.在Access菜單中單擊“插入”“模塊”來創(chuàng)建標(biāo)準(zhǔn)模塊。3.如果在已打開的VBE編輯器中，則可以在工具欄中單擊“插入模塊”按鈕“”，或者單擊VBE菜單中“插入”“模塊”來創(chuàng)建新的標(biāo)準(zhǔn)模塊。讀者可以任選一種適合自己的方法來創(chuàng)建模塊。 除了自己新建模塊外，還可以將宏轉(zhuǎn)換為模塊，在數(shù)據(jù)庫窗口中選擇需要轉(zhuǎn)換的宏，選擇“工具”菜單中“宏”子菜單中的“將宏轉(zhuǎn)換為Visual Basic代碼”命令，系統(tǒng)會彈出“轉(zhuǎn)換宏”對話框，如圖10.3所示，轉(zhuǎn)換后的宏被保存為標(biāo)準(zhǔn)模塊。 上一頁上一頁下一頁下一頁返回首頁返回首頁返回本章返回本章圖10.2 VBE編輯窗口上一頁上一頁下一頁下一頁返回首頁返回首頁返回本章

5、返回本章圖10.3 轉(zhuǎn)換宏對話框 上一頁上一頁下一頁下一頁返回首頁返回首頁返回本章返回本章10.1.1 創(chuàng)建窗體和報表類模塊窗體和報表模塊都是對象類模塊，而且它們都依附于某一窗體或報表而存在。窗體和報表中含有事件過程，通過事件過程來控制窗體或報表的行為，以及它們對用戶操作的響應(yīng)。操作一 窗體類模塊創(chuàng)建的操作步驟如下：1.在數(shù)據(jù)庫窗口“對象”列表中的“窗體”對象有中選擇要操作的窗體名，此例選擇“系統(tǒng)控制窗體”，如圖10.4所示；2.然后從“視圖”菜單中選擇“代碼”命令或單擊視圖中工具欄上的（代碼）圖標(biāo)，進入VBE編輯窗口，如圖10.5所示； 3.從模塊代碼窗口中的“對象”列表框中選擇要操作的對象

6、名稱，為 “進貨錄入”控件的名稱“command3”； 4.選擇對象后，從模塊代碼窗口中的“過程事件”列表框 中選擇相關(guān)聯(lián)的過程名，此處選擇“Click” 事件，如圖10.6所示； 上一頁上一頁下一頁下一頁返回首頁返回首頁返回本章返回本章圖10.4 選擇“系統(tǒng)控制窗體”上一頁上一頁下一頁下一頁返回首頁返回首頁返回本章返回本章圖10.5 VBE編輯窗口“空白代碼窗口”上一頁上一頁下一頁下一頁返回首頁返回首頁返回本章返回本章圖10.6 選擇“對象”和“事件”代碼窗口上一頁上一頁下一頁下一頁返回首頁返回首頁返回本章返回本章5.在代碼窗口中出現(xiàn)的標(biāo)準(zhǔn)過程格式中添加要實現(xiàn)的代碼。代碼如下：Private

7、 Sub Command3_Click()On Error GoTo Err_Command3_ClickDim stDocName As StringDim stLinkCriteria As StringstDocNamestDocName = = 商品進貨數(shù)據(jù)錄入商品進貨數(shù)據(jù)錄入 DoCmd.OpenForm stDocName, , , stLinkCriteriaExit_Command3_Click:Exit SubErr_Command3_Click: MsgBox Err.Description Resume Exit_Command3_Click End Sub上一頁上一頁下

8、一頁下一頁返回首頁返回首頁返回本章返回本章6.根據(jù)需要重復(fù)選擇對象和過程的操作，直至完成，如圖10.7所示；對于 “系統(tǒng)控制窗體”中有七個命令按鈕，將對應(yīng)有七個事件的過程。注意：這七個事件的過程代碼同第（5）步，只是在粗體代碼stDocName = “商品進貨數(shù)據(jù)錄入”中引號之中的窗體名稱要做相應(yīng)更改。上一頁上一頁下一頁下一頁返回首頁返回首頁返回本章返回本章圖10.7 完成全部事件代碼的窗口上一頁上一頁下一頁下一頁返回首頁返回首頁返回本章返回本章創(chuàng)建完窗體類模塊以后，可以回到如圖10.8所示的“系統(tǒng)控制窗體”窗體視圖來單擊各個按鈕，查看是否運行。操作二 報表類模塊創(chuàng)建的步驟如下：此例為“商品庫

9、存情況”的報表運行時，根據(jù)庫存量來顯示或隱藏一個提示消息。當(dāng)商品“庫存量”小于10時，將有一個標(biāo)簽在打印此節(jié)時顯示消息“庫存量不足，請速進貨！”， 當(dāng)商品“庫存量”大于10時，此標(biāo)簽將被隱藏。1.從數(shù)據(jù)庫窗口“對象”列表中的“報表”對象中選擇要操作的報表名，如圖10.9所示；上一頁上一頁下一頁下一頁返回首頁返回首頁返回本章返回本章2.然后從“視圖”菜單中選擇“代碼”命令或單擊視圖中工具欄上的（代碼）圖標(biāo)，進入VBE編輯窗口,從模塊代碼窗口中“對象”列表框中選擇要操作的對象名稱。此處選擇“主體”對象;3.選擇對象后，從模塊代碼窗口中的“過程事件”列表框中選擇相關(guān)的過程名。選擇Format事件。如

10、圖10.10所示； 4.在代碼窗口中出現(xiàn)的標(biāo)準(zhǔn)過程格式中添加要實現(xiàn)的代碼，如圖10.11所示； 5.報表預(yù)覽效果如下圖10.12所示。此報表中包含一個名為 “l(fā)abel24”的標(biāo)簽和主體節(jié)；上一頁上一頁下一頁下一頁返回首頁返回首頁返回本章返回本章圖10.8“系統(tǒng)控制窗體”上一頁上一頁下一頁下一頁返回首頁返回首頁返回本章返回本章圖10.9 選擇報表“商品庫存情況”報表上一頁上一頁下一頁下一頁返回首頁返回首頁返回本章返回本章圖10.10選擇“對象”和“事件”上一頁上一頁下一頁下一頁返回首頁返回首頁返回本章返回本章圖10.11添加代碼窗口上一頁上一頁下一頁下一頁返回首頁返回首頁返回本章返回本章圖10

11、.12 報表預(yù)覽效果上一頁上一頁下一頁下一頁返回首頁返回首頁返回本章返回本章10.1.2 編寫函數(shù)和子過程 在普通類模塊中可以自定義過程或函數(shù)，可以創(chuàng)建自定義的對象。1.函數(shù)與子過程的定義在一個不包含過程和函數(shù)的模塊中聲明公共變量和常量，此公共變量和常量可以在任何模塊中的任何函數(shù)和過程中使用。函數(shù)定義的語法結(jié)構(gòu)如下： Function 函數(shù)名（參數(shù)）AS 數(shù)據(jù)類型 函數(shù)代碼 End Function 上一頁上一頁下一頁下一頁返回首頁返回首頁返回本章返回本章子過程定義的語法結(jié)構(gòu)如下： Sub 子過程名（） 子程序代碼 End sub可以在函數(shù)和子過程定義時使用Public、Private或Sta

12、tic前綴來聲明子過程和函數(shù)的作用范圍。 Private前綴表示為私有的子過程和函數(shù)，只能在定義它們的模塊中使用，Public前綴代表公共的子過程和函數(shù)可能被任何其他模塊調(diào)用，當(dāng)模塊中子過程和函數(shù)沒有使用Private進行聲明，則系統(tǒng)默認為Public(公共)子過程和函數(shù)。 上一頁上一頁下一頁下一頁返回首頁返回首頁返回本章返回本章2.創(chuàng)建函數(shù)與子過程子過程和函數(shù)是指那些不與特定的對象或事件綁定的過程。（1）在代碼模塊中創(chuàng)建子過程和函數(shù)操作步驟如下：A.在“數(shù)據(jù)庫”窗口的對象欄中單擊“模塊”。B.單擊工具欄的“新建”按鈕創(chuàng)建新的模塊，或者選擇一個現(xiàn)有的模塊并單擊“設(shè)計”按鈕，打開VBE窗口。C.

13、選擇“插入”“過程”命令，或單擊工具欄上的“插入模塊”按鈕的下拉列表三角形，然后選擇下拉菜單中的“過程”命令，打 開“添加過程”對話框，如圖10.13所示。 上一頁上一頁下一頁下一頁返回首頁返回首頁返回本章返回本章圖10.13添加過程對話框上一頁上一頁下一頁下一頁返回首頁返回首頁返回本章返回本章D.鍵入過程或函數(shù)名，此例過程名為“NewSub”。E.選擇過程的類型?？梢赃x擇新建過程類型為“子程序”、“函數(shù)”或者“屬性”。F.要使用新建過程適用于整個適用程序，應(yīng)將范圍選為“公共的”；如果要限定過程于當(dāng)前模塊，應(yīng)該將范圍選為“私有的”。G.選擇是否需要將過程中所有變量聲明為靜態(tài)變量。H.單擊“確定

14、”按鈕，確認根據(jù)所做選擇創(chuàng)建一個新過程。 上述步驟完成后，如果我們在對話框中選擇創(chuàng)建一個靜態(tài)的公共子程序，單擊“確定”按鈕后，VBE自動在代碼中加入如下語句：Public Static Sub NewSub() End sub 光標(biāo)停留在兩條語句的中間，等待用戶編加過程代碼。 此例為計算1到10的偶數(shù)之和。 添加代碼如圖10.14所示。上一頁上一頁下一頁下一頁返回首頁返回首頁返回本章返回本章圖10.14編寫子過程代碼窗口上一頁上一頁下一頁下一頁返回首頁返回首頁返回本章返回本章創(chuàng)建函數(shù)過程方法同上，創(chuàng)建好的函數(shù)如下圖10.14所示。此例函數(shù)為判斷第幾季度。 圖10.15編寫函數(shù)代碼窗口上一頁上一

15、頁下一頁下一頁返回首頁返回首頁返回本章返回本章10.1.3將宏轉(zhuǎn)換成模塊 宏本身就是程序，只不過是一種控制方法簡單的程序而已。那么可以將宏轉(zhuǎn)換為對應(yīng)的VBA程序，Access數(shù)據(jù)庫管理系統(tǒng)為此提供了兩種方式，將宏轉(zhuǎn)換成模塊。方法一：在“超市信息管理系統(tǒng)”數(shù)據(jù)庫設(shè)計視圖的宏對象集合中選中“系統(tǒng)控制窗體宏組”對象，在窗口菜單上單擊“文件”“另存為”，即出現(xiàn)如圖10.16所示的“另存為”對話框，將對象命名為“系統(tǒng)控制窗體宏組 的副本”，再將保存類型定義為“模塊”，單擊對話框上的“確定”按鈕完成了將宏對象轉(zhuǎn)換為VBA程序模塊的操作。 上一頁上一頁下一頁下一頁返回首頁返回首頁返回本章返回本章回到數(shù)據(jù)庫窗

16、口，單擊“模塊”對象按鈕，在“模塊”對象集合中會找到“被轉(zhuǎn)換的宏 系統(tǒng)控制窗體宏組”這樣的模塊，如圖10.17所示。方法二：在數(shù)據(jù)庫設(shè)計視圖宏對象集合中選中“系統(tǒng)控制窗體宏組”，在窗口菜單欄上依次單擊“工具” “宏” “將宏轉(zhuǎn)換為Visual Basic代碼”命令，隨即彈出“轉(zhuǎn)換宏”對話框，如圖10.18所示。根據(jù)需要在這個對話框中完成兩個選項的選定操作后，單擊“轉(zhuǎn)換”按鈕可將宏對象“系統(tǒng)控制窗體宏組”轉(zhuǎn)換成為一個名為“系統(tǒng)控制窗體宏組 的副本”的模塊對象。 上一頁上一頁下一頁下一頁返回首頁返回首頁返回本章返回本章圖10.16宏另存為模塊對話框 上一頁上一頁下一頁下一頁返回首頁返回首頁返回本章

17、返回本章10.17轉(zhuǎn)換完成的模塊對象集合 上一頁上一頁下一頁下一頁返回首頁返回首頁返回本章返回本章圖10.18轉(zhuǎn)換宏對話框上一頁上一頁下一頁下一頁返回首頁返回首頁返回本章返回本章10.1.4 VBA代碼的測試VBA代碼的調(diào)試由VBE提供調(diào)試工具，可以測試代碼，查找編寫錯誤?？梢栽赩BE編輯器窗口中，打開將要進行調(diào)試的模塊，單擊“調(diào)試”菜單項，可看到調(diào)試子菜單項，如圖所示，根據(jù)子菜單上的命令可以進行調(diào)試。調(diào)試時，分為兩個步驟：斷點設(shè)置和單步跟蹤。1.斷點設(shè)置 Access提供的大部分調(diào)試工具，都必須在程序處于掛起狀態(tài)才能有效，這時就需要暫停Visual Basic程序代碼。如果要使Visual

18、Basic掛起代碼，可以設(shè)置斷點設(shè)置斷點的方式有兩種： (1)在“Visual Basic代碼編輯器”的代碼窗口中，將光標(biāo)移 到要設(shè)置斷點的行。單擊調(diào)試工具欄上的“切換斷點” 按鈕“ ”。 上一頁上一頁下一頁下一頁返回首頁返回首頁返回本章返回本章(2)在“Visual Basic代碼編輯器”的代碼窗口中，用鼠標(biāo)單擊要設(shè)置斷點行的左側(cè)邊緣部分。 如果要清除斷點，可以將光標(biāo)移到設(shè)置斷點的代碼行，然后在調(diào)試工具欄上單擊“切換斷點”按鈕。Access在運行到包含斷點的代碼行時，暫停代碼的執(zhí)行，進入中斷模式。設(shè)置斷點會加粗和突出顯示該行。如果要繼續(xù)運行代碼，可以單擊調(diào)試工具欄上的“運行子過程/用戶窗體”

19、按鈕“ ”。2.單步跟蹤在程序代碼掛起后，便可以逐步執(zhí)行Visual Basic代碼，幫助識別發(fā)生錯誤的位置，并且可以查看是否每一行代碼都產(chǎn)生了預(yù)期 的結(jié)果。上一頁上一頁下一頁下一頁返回首頁返回首頁返回本章返回本章用于代碼調(diào)試的方式有3種：(1)逐語句執(zhí)行要單步執(zhí)行每一行代碼，包括被調(diào)用的過程中的代碼，可以單擊調(diào)試工具欄上的“逐語句”按鈕“ ”。(2)逐過程執(zhí)行要單步執(zhí)行每一行代碼，但是將任何被調(diào)用的過程作為一個單位執(zhí)行，可以單擊調(diào)試工具欄上的“逐過程”按鈕“ ”。(3)跳出執(zhí)行要運行當(dāng)前過程中的剩余代碼，可以單擊調(diào)試工具欄上的“跳出” 按鈕“ ”，當(dāng)執(zhí)行完這個過程，程序返回到調(diào)用該過程的 過

20、程后，“跳出”命令執(zhí)行完畢。上一頁上一頁下一頁下一頁返回首頁返回首頁返回本章返回本章VBA程序設(shè)計有幾種控制結(jié)構(gòu)：選擇控制結(jié)構(gòu)、循環(huán)控制結(jié)構(gòu)。選擇控制結(jié)構(gòu)有條件結(jié)構(gòu)和選擇結(jié)構(gòu)兩種。（1）條件結(jié)構(gòu)：只要執(zhí)行一個語句，則可以使用條件結(jié)構(gòu)。語法如下：if 條件表達式 then 語句1 else 語句2（2）選擇結(jié)構(gòu)：在多個語句塊中有選擇地執(zhí)行其中的一個。語法如下： Select case 表達式 case 表達式值列表1 語句1 case 表達式值列表2 語句2 case else 語句n End select10.2.1 程序設(shè)計上一頁上一頁下一頁下一頁返回首頁返回首頁返回本章返回本章當(dāng)一個表達式

21、與幾個不同的值比較時，可以使用選擇結(jié)構(gòu)語句。例：根據(jù)某年某月來判斷該月有多少天？ 圖10.19 分支結(jié)構(gòu)窗體 在窗體上三個文本框控件（年份、月份、天數(shù)），需要輸入年份數(shù)和月份數(shù)值后回車，或單擊“天數(shù)”文本框，結(jié)果將顯示在“天數(shù)”文本框內(nèi)。將代碼填加到文本框的“單擊”事件中。上一頁上一頁下一頁下一頁返回首頁返回首頁返回本章返回本章Private Sub 天數(shù)_GotFocus() num = 月份.Value Select Case num Case 1, 3, 5, 7, 8, 10, 12 天數(shù).Value = 31 Case 4, 6, 9, 11 天數(shù).Value = 30 Case E

22、lse If (年份.Value Mod 4 = 0) And (年份.Value Mod 100 0) Or (年份.Value Mod 400 = 0) Then 天數(shù).Value = 29 Else 天數(shù).Value = 28 End If End Select End Sub 上一頁上一頁下一頁下一頁返回首頁返回首頁返回本章返回本章 2.循環(huán)控制語句VBA提供兩種循環(huán)結(jié)構(gòu)，即DO循環(huán)、FOR循環(huán)。(1) DO循環(huán)：用于重復(fù)執(zhí)行一個語句塊，重復(fù)次數(shù)不定。A）DO WHILE結(jié)構(gòu)，語法如下：DO WHILE 條件表達式循環(huán)語句塊 LOOP只要表達式為真，循環(huán)就一直執(zhí)行，直到表達式為假時結(jié)束

23、循環(huán)。B）DO UNTIL結(jié)構(gòu)，語法如下：DO UNTIL 條件表達式循環(huán)語句塊 LOOP 上一頁上一頁下一頁下一頁返回首頁返回首頁返回本章返回本章 如果表達式為假，執(zhí)行循環(huán)語句塊，只要表達式為真時結(jié)束循環(huán)。（2）FOR循環(huán)結(jié)構(gòu)：當(dāng)不知道循環(huán)次數(shù)時，最好用DO循環(huán)，但如果知道執(zhí)行的次數(shù)，則最好還是用FOR循環(huán)。語法如下：FOR 循環(huán)控制變量=循環(huán)初始值表達式 to 循環(huán)終值表達式 STEP 步長數(shù)循環(huán)語句塊NEXT 循環(huán)控制變量上一頁上一頁下一頁下一頁返回首頁返回首頁返回本章返回本章例：求階乘。Option Compare DatabasePublic sPrivate Sub 結(jié)果_GotF

24、ocus() Dim intI As Integers = 1For intI = 1 To 數(shù)字.Values = s * intINext結(jié)果.Value = s End Sub 上例程序可在窗體中顯示其結(jié)果，如圖10.20所示。 上一頁上一頁下一頁下一頁返回首頁返回首頁返回本章返回本章圖10.20 階乘窗體 在窗體中的“輸入數(shù)值的階乘”文本框（數(shù)字）中輸入需要計算乘的數(shù)值后回車，或單擊下面的文本框（結(jié)果），結(jié)果顯示在“結(jié)果”文本框中。 上一頁上一頁下一頁下一頁返回首頁返回首頁返回本章返回本章10.2.2對窗體中控件對象編程一、對標(biāo)簽或文本框編程標(biāo)簽和文本框都可以用來顯示文本，但是，標(biāo)簽只

25、能用于顯示文字，不能進行編輯，而文本框既可以顯示文本，也可以輸入文本。1.文本框或標(biāo)簽都有自己的基本屬性，來控制文本框或標(biāo)簽的格式、特征和位置。包含以下幾個部分的屬性： (1)外觀屬性 包含：BackColor 、ForeColor 、BorderStyle屬性 (2)位置屬性 包含：Height、 Left、 Top、 Width屬性上一頁上一頁下一頁下一頁返回首頁返回首頁返回本章返回本章(3)行為屬性包含：Enabled、IMEMode、 Locked 、ScrollBars 、 TabIndex 、TabStop、 Visible屬性。(4)雜項 包含：Name、 HelpContext

26、Id、 Text屬性(5)字體屬性 包含一些與文本框中字體相關(guān)的屬性： FontBold、 FontItalic 、FontName、 FontSize 、FontUnderline、 FontWeight 、Format屬性。2.文本框控件又有自己的基本事件和方法(1)數(shù)據(jù)響應(yīng)類型事件 包含：AfterUpdate 、BeforeUpdate、 Change事件 上一頁上一頁下一頁下一頁返回首頁返回首頁返回本章返回本章(2)鼠標(biāo)動作類事件包含：Click 、DblClick、 MouseDown、 MouseUp、 MouseMove、 MouseMove事件(3)焦點類事件包含：Enter 、Exit、Gotfocus、 LostFocus事件(4)鍵盤響應(yīng)類事件包含：KeyUp 、KeyPress事件 3.標(biāo)簽控件事件和方法標(biāo)簽控件的事件要相對其它控件要少很多，主要有五個：MouseMove 事件、Mou