《Access-2002數(shù)據(jù)庫(kù)應(yīng)用實(shí)訓(xùn)教程》第10章：Access-VBA程序設(shè)計(jì)

第10章AccessVBA程序設(shè)計(jì)10.1模塊的創(chuàng)建10.2VBA編程10.1模塊的創(chuàng)建

模塊是將VBA（VisualBasicforApplications）聲明和過(guò)程作為一個(gè)單元進(jìn)行保存的集合。模塊基本上是由聲明、語(yǔ)句和過(guò)程組成的，它們作為一個(gè)已命名的單元存儲(chǔ)在一起，對(duì)VBA代碼進(jìn)行組織，并完成特定的任務(wù)。

Access有兩種類型的模塊：標(biāo)準(zhǔn)模塊和對(duì)象類模塊。不論哪種模塊中的每一個(gè)過(guò)程都可以是一個(gè)Function過(guò)程或一個(gè)Sub過(guò)程，如下圖10.1所示。兩個(gè)列表中，是“對(duì)象”框，是“過(guò)程”框（即“事件”框），當(dāng)選擇了任一個(gè)對(duì)象后，右邊的“事件”也會(huì)隨之切換，因?yàn)椴煌愋偷膶?duì)象，也有不同的事件，選擇任一事件后，即可顯示該事件程序的內(nèi)容，且光標(biāo)會(huì)停留在程序的第一行，可以立即開始編寫程序。圖10.1代碼編輯窗口“對(duì)象”框“過(guò)程”框聲明過(guò)程“過(guò)程視圖”按鈕“完整的模塊視圖”按鈕

注意：在“事件”中，凡顯示為粗體的，即表示該事件已內(nèi)含程序。模塊和程序不同：模塊只有兩個(gè)任務(wù)，一個(gè)是保存程序，另一個(gè)是聲明可以在多個(gè)程序中使用的變量或常量，模塊本身不可以被運(yùn)行。而程序也稱為“運(yùn)行程序”，一個(gè)模塊中含有若干個(gè)程序，所以程序是最基本的運(yùn)行單位。創(chuàng)建模塊，要在VBA編程環(huán)境VBE（VisualBasicEditor）中進(jìn)行。當(dāng)我們選中一個(gè)需要編寫代碼的控件，并準(zhǔn)備為其對(duì)應(yīng)的某一事件的響應(yīng)方法編寫VBA代碼時(shí)，就應(yīng)該啟動(dòng)VBE，在此編輯環(huán)境中進(jìn)行VBA代碼編輯操作。如圖10.2所示為VBE窗口：創(chuàng)建模塊的方法有幾種，如下：1.在“數(shù)據(jù)庫(kù)”窗口的對(duì)象欄中單擊“模塊”，然后單擊工具欄上的“新建”按鈕打開VBE編輯器，為數(shù)據(jù)庫(kù)創(chuàng)建新的模塊對(duì)象。2.在Access菜單中單擊“插入”→“模塊”來(lái)創(chuàng)建標(biāo)準(zhǔn)模塊。3.如果在已打開的VBE編輯器中，則可以在工具欄中單擊“插入模塊”按鈕“”，或者單擊VBE菜單中“插入”→“模塊”來(lái)創(chuàng)建新的標(biāo)準(zhǔn)模塊。讀者可以任選一種適合自己的方法來(lái)創(chuàng)建模塊。除了自己新建模塊外，還可以將宏轉(zhuǎn)換為模塊，在數(shù)據(jù)庫(kù)窗口中選擇需要轉(zhuǎn)換的宏，選擇“工具”菜單中“宏”子菜單中的“將宏轉(zhuǎn)換為VisualBasic代碼”命令，系統(tǒng)會(huì)彈出“轉(zhuǎn)換宏”對(duì)話框，如圖10.3所示，轉(zhuǎn)換后的宏被保存為標(biāo)準(zhǔn)模塊。圖10.2VBE編輯窗口圖10.3轉(zhuǎn)換宏對(duì)話框10.1.1創(chuàng)建窗體和報(bào)表類模塊窗體和報(bào)表模塊都是對(duì)象類模塊，而且它們都依附于某一窗體或報(bào)表而存在。窗體和報(bào)表中含有事件過(guò)程，通過(guò)事件過(guò)程來(lái)控制窗體或報(bào)表的行為，以及它們對(duì)用戶操作的響應(yīng)。操作一窗體類模塊創(chuàng)建的操作步驟如下：1.在數(shù)據(jù)庫(kù)窗口“對(duì)象”列表中的“窗體”對(duì)象有中選擇要操作的窗體名，此例選擇“系統(tǒng)控制窗體”，如圖10.4所示；2.然后從“視圖”菜單中選擇“代碼”命令或單擊視圖中工具欄上的（代碼）圖標(biāo)，進(jìn)入VBE編輯窗口，如圖10.5所示；3.從模塊代碼窗口中的“對(duì)象”列表框中選擇要操作的對(duì)象名稱，為“進(jìn)貨錄入”控件的名稱“command3”；

4.選擇對(duì)象后，從模塊代碼窗口中的“過(guò)程事件”列表框中選擇相關(guān)聯(lián)的過(guò)程名，此處選擇“Click”

事件，如圖10.6所示；

圖10.4選擇“系統(tǒng)控制窗體”圖10.5VBE編輯窗口“空白代碼窗口”圖10.6選擇“對(duì)象”和“事件”代碼窗口5.在代碼窗口中出現(xiàn)的標(biāo)準(zhǔn)過(guò)程格式中添加要實(shí)現(xiàn)的代碼。代碼如下：PrivateSubCommand3_Click()OnErrorGoToErr_Command3_ClickDimstDocNameAsStringDimstLinkCriteriaAsStringstDocName="商品進(jìn)貨數(shù)據(jù)錄入"DoCmd.OpenForm

stDocName,,,stLinkCriteriaExit_Command3_Click:ExitSubErr_Command3_Click:

MsgBoxErr.DescriptionResumeExit_Command3_ClickEndSub6.根據(jù)需要重復(fù)選擇對(duì)象和過(guò)程的操作，直至完成，如圖10.7所示；對(duì)于“系統(tǒng)控制窗體”中有七個(gè)命令按鈕，將對(duì)應(yīng)有七個(gè)事件的過(guò)程。注意：這七個(gè)事件的過(guò)程代碼同第（5）步，只是在粗體代碼stDocName=“商品進(jìn)貨數(shù)據(jù)錄入”中引號(hào)之中的窗體名稱要做相應(yīng)更改。圖10.7完成全部事件代碼的窗口創(chuàng)建完窗體類模塊以后，可以回到如圖10.8所示的“系統(tǒng)控制窗體”窗體視圖來(lái)單擊各個(gè)按鈕，查看是否運(yùn)行。操作二報(bào)表類模塊創(chuàng)建的步驟如下：此例為“商品庫(kù)存情況”的報(bào)表運(yùn)行時(shí)，根據(jù)庫(kù)存量來(lái)顯示或隱藏一個(gè)提示消息。當(dāng)商品“庫(kù)存量”小于10時(shí)，將有一個(gè)標(biāo)簽在打印此節(jié)時(shí)顯示消息“庫(kù)存量不足，請(qǐng)速進(jìn)貨！”，當(dāng)商品“庫(kù)存量”大于10時(shí)，此標(biāo)簽將被隱藏。1.從數(shù)據(jù)庫(kù)窗口“對(duì)象”列表中的“報(bào)表”對(duì)象中選擇要操作的報(bào)表名，如圖10.9所示；2.然后從“視圖”菜單中選擇“代碼”命令或單擊視圖中工具欄上的（代碼）圖標(biāo)，進(jìn)入VBE編輯窗口,從模塊代碼窗口中“對(duì)象”列表框中選擇要操作的對(duì)象名稱。此處選擇“主體”對(duì)象;3.選擇對(duì)象后，從模塊代碼窗口中的“過(guò)程事件”列表框中選擇相關(guān)的過(guò)程名。選擇Format事件。如圖10.10所示；4.在代碼窗口中出現(xiàn)的標(biāo)準(zhǔn)過(guò)程格式中添加要實(shí)現(xiàn)的代碼，如圖10.11所示；

5.報(bào)表預(yù)覽效果如下圖10.12所示。此報(bào)表中包含一個(gè)名為“l(fā)abel24”的標(biāo)簽和主體節(jié)；圖10.8“系統(tǒng)控制窗體”圖10.9選擇報(bào)表“商品庫(kù)存情況”報(bào)表圖10.10選擇“對(duì)象”和“事件”圖10.11添加代碼窗口圖10.12報(bào)表預(yù)覽效果10.1.2編寫函數(shù)和子過(guò)程在普通類模塊中可以自定義過(guò)程或函數(shù)，可以創(chuàng)建自定義的對(duì)象。1.函數(shù)與子過(guò)程的定義在一個(gè)不包含過(guò)程和函數(shù)的模塊中聲明公共變量和常量，此公共變量和常量可以在任何模塊中的任何函數(shù)和過(guò)程中使用。函數(shù)定義的語(yǔ)法結(jié)構(gòu)如下：

Function函數(shù)名（[參數(shù)]）AS數(shù)據(jù)類型函數(shù)代碼

EndFunction

子過(guò)程定義的語(yǔ)法結(jié)構(gòu)如下：

Sub子過(guò)程名（）子程序代碼

Endsub可以在函數(shù)和子過(guò)程定義時(shí)使用Public、Private或Static前綴來(lái)聲明子過(guò)程和函數(shù)的作用范圍。

Private前綴表示為私有的子過(guò)程和函數(shù)，只能在定義它們的模塊中使用，Public前綴代表公共的子過(guò)程和函數(shù)可能被任何其他模塊調(diào)用，當(dāng)模塊中子過(guò)程和函數(shù)沒有使用Private進(jìn)行聲明，則系統(tǒng)默認(rèn)為Public(公共)子過(guò)程和函數(shù)。2.創(chuàng)建函數(shù)與子過(guò)程子過(guò)程和函數(shù)是指那些不與特定的對(duì)象或事件綁定的過(guò)程。（1）在代碼模塊中創(chuàng)建子過(guò)程和函數(shù)操作步驟如下：A.在“數(shù)據(jù)庫(kù)”窗口的對(duì)象欄中單擊“模塊”。B.單擊工具欄的“新建”按鈕創(chuàng)建新的模塊，或者選擇一個(gè)現(xiàn)有的模塊并單擊“設(shè)計(jì)”按鈕，打開VBE窗口。C.選擇“插入”“過(guò)程”命令，或單擊工具欄上的“插入模塊”按鈕的下拉列表三角形，然后選擇下拉菜單中的“過(guò)程”命令，打開“添加過(guò)程”對(duì)話框，如圖10.13所示。

圖10.13添加過(guò)程對(duì)話框D.鍵入過(guò)程或函數(shù)名，此例過(guò)程名為“NewSub”。E.選擇過(guò)程的類型?？梢赃x擇新建過(guò)程類型為“子程序”、“函數(shù)”或者“屬性”。F.要使用新建過(guò)程適用于整個(gè)適用程序，應(yīng)將范圍選為“公共的”；如果要限定過(guò)程于當(dāng)前模塊，應(yīng)該將范圍選為“私有的”。G.選擇是否需要將過(guò)程中所有變量聲明為靜態(tài)變量。H.單擊“確定”按鈕，確認(rèn)根據(jù)所做選擇創(chuàng)建一個(gè)新過(guò)程。上述步驟完成后，如果我們?cè)趯?duì)話框中選擇創(chuàng)建一個(gè)靜態(tài)的公共子程序，單擊“確定”按鈕后，VBE自動(dòng)在代碼中加入如下語(yǔ)句：PublicStaticSubNewSub()Endsub

光標(biāo)停留在兩條語(yǔ)句的中間，等待用戶編加過(guò)程代碼。此例為計(jì)算1到10的偶數(shù)之和。添加代碼如圖10.14所示。圖10.14編寫子過(guò)程代碼窗口創(chuàng)建函數(shù)過(guò)程方法同上，創(chuàng)建好的函數(shù)如下圖10.14所示。此例函數(shù)為判斷第幾季度。圖10.15編寫函數(shù)代碼窗口10.1.3將宏轉(zhuǎn)換成模塊宏本身就是程序，只不過(guò)是一種控制方法簡(jiǎn)單的程序而已。那么可以將宏轉(zhuǎn)換為對(duì)應(yīng)的VBA程序，Access數(shù)據(jù)庫(kù)管理系統(tǒng)為此提供了兩種方式，將宏轉(zhuǎn)換成模塊。方法一：在“超市信息管理系統(tǒng)”數(shù)據(jù)庫(kù)設(shè)計(jì)視圖的宏對(duì)象集合中選中“系統(tǒng)控制窗體宏組”對(duì)象，在窗口菜單上單擊“文件”→“另存為”，即出現(xiàn)如圖10.16所示的“另存為”對(duì)話框，將對(duì)象命名為“系統(tǒng)控制窗體宏組的副本”，再將保存類型定義為“模塊”，單擊對(duì)話框上的“確定”按鈕完成了將宏對(duì)象轉(zhuǎn)換為VBA程序模塊的操作。

回到數(shù)據(jù)庫(kù)窗口，單擊“模塊”對(duì)象按鈕，在“模塊”對(duì)象集合中會(huì)找到“被轉(zhuǎn)換的宏—系統(tǒng)控制窗體宏組”這樣的模塊，如圖10.17所示。方法二：在數(shù)據(jù)庫(kù)設(shè)計(jì)視圖宏對(duì)象集合中選中“系統(tǒng)控制窗體宏組”，在窗口菜單欄上依次單擊“工具”→“宏”→“將宏轉(zhuǎn)換為VisualBasic代碼”命令，隨即彈出“轉(zhuǎn)換宏”對(duì)話框，如圖10.18所示。根據(jù)需要在這個(gè)對(duì)話框中完成兩個(gè)選項(xiàng)的選定操作后，單擊“轉(zhuǎn)換”按鈕可將宏對(duì)象“系統(tǒng)控制窗體宏組”轉(zhuǎn)換成為一個(gè)名為“系統(tǒng)控制窗體宏組的副本”的模塊對(duì)象。圖10.16宏另存為模塊對(duì)話框10.17轉(zhuǎn)換完成的模塊對(duì)象集合圖10.18轉(zhuǎn)換宏對(duì)話框10.1.4VBA代碼的測(cè)試VBA代碼的調(diào)試由VBE提供調(diào)試工具，可以測(cè)試代碼，查找編寫錯(cuò)誤?？梢栽赩BE編輯器窗口中，打開將要進(jìn)行調(diào)試的模塊，單擊“調(diào)試”菜單項(xiàng)，可看到調(diào)試子菜單項(xiàng)，如圖所示，根據(jù)子菜單上的命令可以進(jìn)行調(diào)試。調(diào)試時(shí)，分為兩個(gè)步驟：斷點(diǎn)設(shè)置和單步跟蹤。1.斷點(diǎn)設(shè)置

Access提供的大部分調(diào)試工具，都必須在程序處于掛起狀態(tài)才能有效，這時(shí)就需要暫停VisualBasic程序代碼。如果要使VisualBasic掛起代碼，可以設(shè)置斷點(diǎn)設(shè)置斷點(diǎn)的方式有兩種：在“VisualBasic代碼編輯器”的代碼窗口中，將光標(biāo)移到要設(shè)置斷點(diǎn)的行。單擊調(diào)試工具欄上的“切換斷點(diǎn)”按鈕“”。

(2)在“VisualBasic代碼編輯器”的代碼窗口中，用鼠標(biāo)單擊要設(shè)置斷點(diǎn)行的左側(cè)邊緣部分。如果要清除斷點(diǎn)，可以將光標(biāo)移到設(shè)置斷點(diǎn)的代碼行，然后在調(diào)試工具欄上單擊“切換斷點(diǎn)”按鈕。Access在運(yùn)行到包含斷點(diǎn)的代碼行時(shí)，暫停代碼的執(zhí)行，進(jìn)入中斷模式。設(shè)置斷點(diǎn)會(huì)加粗和突出顯示該行。如果要繼續(xù)運(yùn)行代碼，可以單擊調(diào)試工具欄上的“運(yùn)行子過(guò)程/用戶窗體”按鈕“”。2.單步跟蹤在程序代碼掛起后，便可以逐步執(zhí)行VisualBasic代碼，幫助識(shí)別發(fā)生錯(cuò)誤的位置，并且可以查看是否每一行代碼都產(chǎn)生了預(yù)期的結(jié)果。用于代碼調(diào)試的方式有3種：(1)逐語(yǔ)句執(zhí)行要單步執(zhí)行每一行代碼，包括被調(diào)用的過(guò)程中的代碼，可以單擊調(diào)試工具欄上的“逐語(yǔ)句”按鈕“”。(2)逐過(guò)程執(zhí)行要單步執(zhí)行每一行代碼，但是將任何被調(diào)用的過(guò)程作為一個(gè)單位執(zhí)行，可以單擊調(diào)試工具欄上的“逐過(guò)程”按鈕“”。(3)跳出執(zhí)行要運(yùn)行當(dāng)前過(guò)程中的剩余代碼，可以單擊調(diào)試工具欄上的“跳出”按鈕“”，當(dāng)執(zhí)行完這個(gè)過(guò)程，程序返回到調(diào)用該過(guò)程的過(guò)程后，“跳出”命令執(zhí)行完畢。VBA程序設(shè)計(jì)有幾種控制結(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í)行一個(gè)語(yǔ)句，則可以使用條件結(jié)構(gòu)。語(yǔ)法如下：if條件表達(dá)式then語(yǔ)句1[else語(yǔ)句2]（2）選擇結(jié)構(gòu)：在多個(gè)語(yǔ)句塊中有選擇地執(zhí)行其中的一個(gè)。語(yǔ)法如下：

Selectcase表達(dá)式

case表達(dá)式值列表1

語(yǔ)句1case表達(dá)式值列表2

語(yǔ)句2……[caseelse語(yǔ)句n]Endselect10.2.1程序設(shè)計(jì)當(dāng)一個(gè)表達(dá)式與幾個(gè)不同的值比較時(shí)，可以使用選擇結(jié)構(gòu)語(yǔ)句。例：根據(jù)某年某月來(lái)判斷該月有多少天？圖10.19分支結(jié)構(gòu)窗體在窗體上三個(gè)文本框控件（年份、月份、天數(shù)），需要輸入年份數(shù)和月份數(shù)值后回車，或單擊“天數(shù)”文本框，結(jié)果將顯示在“天數(shù)”文本框內(nèi)。將代碼填加到文本框的“單擊”事件中。PrivateSub天數(shù)_GotFocus()num=月份.ValueSelectCasenumCase1,3,5,7,8,10,12

天數(shù).Value=31Case4,6,9,11

天數(shù).Value=30CaseElseIf(年份.ValueMod4=0)And(年份.ValueMod100<>0)Or(年份.ValueMod400=0)Then

天數(shù).Value=29Else

天數(shù).Value=28EndIfEndSelectEndSub

2.循環(huán)控制語(yǔ)句VBA提供兩種循環(huán)結(jié)構(gòu)，即DO循環(huán)、FOR循環(huán)。(1)DO循環(huán)：用于重復(fù)執(zhí)行一個(gè)語(yǔ)句塊，重復(fù)次數(shù)不定。A）DOWHILE結(jié)構(gòu)，語(yǔ)法如下：DOWHILE條件表達(dá)式循環(huán)語(yǔ)句塊

LOOP只要表達(dá)式為真，循環(huán)就一直執(zhí)行，直到表達(dá)式為假時(shí)結(jié)束循環(huán)。B）DOUNTIL結(jié)構(gòu)，語(yǔ)法如下：DOUNTIL條件表達(dá)式循環(huán)語(yǔ)句塊

LOOP

如果表達(dá)式為假，執(zhí)行循環(huán)語(yǔ)句塊，只要表達(dá)式為真時(shí)結(jié)束循環(huán)。（2）FOR循環(huán)結(jié)構(gòu)：當(dāng)不知道循環(huán)次數(shù)時(shí)，最好用DO循環(huán)，但如果知道執(zhí)行的次數(shù)，則最好還是用FOR循環(huán)。語(yǔ)法如下：FOR循環(huán)控制變量=循環(huán)初始值表達(dá)式to循環(huán)終值表達(dá)式[STEP步長(zhǎng)數(shù)]循環(huán)語(yǔ)句塊NEXT[循環(huán)控制變量]例：求階乘。OptionCompareDatabasePublicsPrivateSub結(jié)果_GotFocus()DimintIAsIntegers=1ForintI=1To數(shù)字.Values=s*intINext結(jié)果.Value=sEndSub

上例程序可在窗體中顯示其結(jié)果，如圖10.20所示。圖10.20階乘窗體在窗體中的“輸入數(shù)值的階乘”文本框（數(shù)字）中輸入需要計(jì)算乘的數(shù)值后回車，或單擊下面的文本框（結(jié)果），結(jié)果顯示在“結(jié)果”文本框中。10.2.2對(duì)窗體中控件對(duì)象編程一、對(duì)標(biāo)簽或文本框編程標(biāo)簽和文本框都可以用來(lái)顯示文本，但是，標(biāo)簽只能用于顯示文字，不能進(jìn)行編輯，而文本框既可以顯示文本，也可以輸入文本。1.文本框或標(biāo)簽都有自己的基本屬性，來(lái)控制文本框或標(biāo)簽的格式、特征和位置。包含以下幾個(gè)部分的屬性：(1)外觀屬性包含：BackColor

、ForeColor

、BorderStyle屬性(2)位置屬性包含：Height、Left、Top、Width屬性(3)行為屬性包含：Enabled、IMEMode、Locked、ScrollBars

、

TabIndex

、TabStop、Visible屬性。(4)雜項(xiàng)包含：Name、HelpContextId、Text屬性(5)字體屬性包含一些與文本框中字體相關(guān)的屬性：

FontBold、FontItalic

、FontName、FontSize

、FontUnderline、

FontWeight

、Format屬性。2.文本框控件又有自己的基本事件和方法(1)數(shù)據(jù)響應(yīng)類型事件包含：AfterUpdate

、BeforeUpdate、Change事件(2)鼠標(biāo)動(dòng)作類事件包含：Click、DblClick、MouseDown、MouseUp、

MouseMove、MouseMove事件(3)焦點(diǎn)類事件包含：Enter、Exit、Gotfocus、LostFocus事件(4)鍵盤響應(yīng)類事件包含：KeyUp

、KeyPress事件3.標(biāo)簽控件事件和方法