《Access數(shù)據(jù)庫實用教程》第九章模塊和VBA程序設(shè)計

1、9.1 VBA程序設(shè)計初步 在Office中包含有Visual Basic for Application（VBA），它是Visual Basic的語言的一個子集，與Visual Basic具有相同的語言的功能。 9.1.1 面向?qū)ο缶幊堂嫦驅(qū)ο缶幊?程序設(shè)計語言主要分為面向?qū)ο蠛兔嫦蜻^程兩大類，程序設(shè)計語言主要分為面向?qū)ο蠛兔嫦蜻^程兩大類，而而VBA就是一種面向?qū)ο蟮某绦蛟O(shè)計語言，對象是就是一種面向?qū)ο蟮某绦蛟O(shè)計語言，對象是Visual Basic程序設(shè)計語言的核心，而程序設(shè)計語言的核心，而Access更是基更是基于對象的，對象在數(shù)據(jù)庫編程中無處不在：窗體、報于對象的，對象在數(shù)據(jù)庫編程中無處

2、不在：窗體、報表、數(shù)據(jù)頁甚至數(shù)據(jù)庫本身，都是一種對象。表、數(shù)據(jù)頁甚至數(shù)據(jù)庫本身，都是一種對象。 在在Access中，常用對象有中，常用對象有23個，它們之間多為樹形個，它們之間多為樹形關(guān)系，根據(jù)它們的相對關(guān)系，可分為根對象和非根對關(guān)系，根據(jù)它們的相對關(guān)系，可分為根對象和非根對象兩大類，其介紹如下。象兩大類，其介紹如下。 在VBA中，對象是封裝數(shù)據(jù)和相應(yīng)代碼的客體，是代碼和數(shù)據(jù)的結(jié)合，使用對象可更方便地管理數(shù)據(jù)和代碼。對象具有屬性、方法和事件。 1屬性 屬性是對象的一個特征，它定義了對象的大小、顏色等特征。根據(jù)對象的類別不同，其屬性也有所不同，而同一對象的不同實例屬性構(gòu)成也可能有所不同。我們可以

3、通過修改對象的屬性值來改變對性的特征。 2方法 方法是對象能夠執(zhí)行的一個操作，是與對象相關(guān)聯(lián)的過程和函數(shù)。不同的對象擁有不同的方法集合。例如窗體具有GoToPage方法，而其他對象則不具備此方法。 3事件 Access事件是指操作Access的某個數(shù)據(jù)對象時發(fā)生的特定情況，是對象可以識別的動作?？梢酝ㄟ^兩種方式處理事件響應(yīng)：一是使用宏對象來設(shè)置事件屬性，二是為某個事件編寫VBA代碼完成動作，這樣的代碼稱為事件過程。 在Access中，事件可分為焦點(diǎn)、鼠標(biāo)、鍵盤、窗體、打印、數(shù)據(jù)、篩選和系統(tǒng)環(huán)境事件八大類。 Access為每個事件都定義了一個相對應(yīng)的屬性，屬性名為“On”+事件名。如GotFoc

4、us的屬性名為OnGotFocus。每個對象的所有事件屬性在對象屬性對話框的“事件”選項卡中均能找到，為事件屬性指定值即為該事件定義了相應(yīng)的響應(yīng)操作。在Access中，事件的響應(yīng)分為兩種類型：宏響應(yīng)和事件響應(yīng)。9.1.2 VBA簡介簡介 VBA（Visual Basic for application）是Access的開發(fā)語言，其語法與Visual Basic編程語言相互間融，通過它可以像編寫VB語言一樣來編寫VBA程序。概括地說，VBA有以下一些特點(diǎn)： 1操作簡單 Access為VBA提供了一個典型的Winows風(fēng)格的集成開發(fā)環(huán)境VBE，通過它上面的菜單、工具和各種子窗口，用戶可以方便地編譯

5、、調(diào)試和運(yùn)行程序。 2面向?qū)ο?VBA是面向?qū)ο蟮?，這是它也傳統(tǒng)編程語言的重要區(qū)別。 3事件驅(qū)動 VBA用事件驅(qū)動程序，即當(dāng)某個控件或?qū)ο笙嚓P(guān)的事件發(fā)生時，會自動啟動相應(yīng)得程序。9.1.3 VBA編程環(huán)境 Access所提供的VBA開發(fā)界面成為VBE（Visual Basic Editor，VB編輯器），它為VBA程序的開發(fā)提供了完整的開發(fā)和調(diào)試工具。 1進(jìn)入VBE 由于Access模塊分為類模塊和標(biāo)準(zhǔn)模塊（詳見9.2.1），進(jìn)入VBE的方式也有所不同。 對于類模塊有兩種方式： （1）單擊屬性窗體的“事件”選項卡，選中某個事件并將其屬性設(shè)置其為“事件過程”，再單擊屬性欄右側(cè)的“.”按鈕，即可進(jìn)

6、入。 （2）在屬性窗體的“事件”選項卡下，直接單擊時間屬性欄右側(cè)的“.”按鈕，打開如圖9-2所示的“選擇生成器”對話框，選擇“代碼生成器”，單擊確定即可進(jìn)入。 對于標(biāo)準(zhǔn)模塊，有三種進(jìn)入方式： （1）模塊已經(jīng)存在時，在數(shù)據(jù)庫的“模塊”窗口下，雙擊已存在的模塊對象即可進(jìn)入。 （2）新建模塊時，在數(shù)據(jù)庫的“模塊”窗口下，單擊工作欄上的“新建”按鈕即可進(jìn)入。 （3）在數(shù)據(jù)庫對象窗體中，單擊“工具”菜單中的“宏”級聯(lián)菜單的“Visal Basic編輯器”選項即可進(jìn)入。 2VBE窗口 VBE窗口可分為標(biāo)準(zhǔn)工具欄、工程窗口、屬性窗口和代碼窗口4部分，如圖9-3所示。 另外，還有對象窗口、對象瀏覽器、立即窗口

7、、本地窗口和監(jiān)視窗口等，可以通過“視圖”菜單的相應(yīng)選項選擇顯示。 1標(biāo)準(zhǔn)工具欄 標(biāo)準(zhǔn)工具欄中包括創(chuàng)建模塊時常用的命令按鈕，可通過選中或撤消“視圖”菜單中“工具欄”菜單中的“標(biāo)準(zhǔn)”按鈕來確定顯示還是隱藏標(biāo)準(zhǔn)工具欄。標(biāo)準(zhǔn)工具欄及其上按鈕如圖9-4所示。 2工程窗口 工程窗口又叫工程資源管理器窗口，用于顯示應(yīng)用程序中用到的模塊文件列表。通過它可以控制代碼窗口、對象窗口以及對象文件夾的顯示。 雙擊工程窗口上的模塊或類，相應(yīng)的代碼就會在代碼窗口中顯示出來。 3屬性窗口 用于顯示所選對象的屬性，可“按字母序”和“按分類序”查看并編輯這些對象的屬性，這種修改對象屬性的方法屬于“靜態(tài)”設(shè)置方法。還可以在代碼窗

8、口中使用VBA代碼編輯對象的屬性，這種方法屬于“動態(tài)”設(shè)置方法。 4代碼窗口 用于輸入和編輯VBA代碼。用戶可以打開多個代碼窗口用來查看各個模塊的代碼。在代碼窗口中，關(guān)鍵字和普通代碼的顏色是不同的，可以很容易地區(qū)分。 9.2 模塊概述模塊概述 模塊以VBA語言為基礎(chǔ)，由聲明和過程兩部分組成。9.2.1 模塊的分類 Access 2003有兩個模塊類型：類模塊和標(biāo)準(zhǔn)模塊。 1類模塊 類模塊是與某一特定窗體或報表相關(guān)聯(lián)的過程集合。它屬于Access數(shù)據(jù)庫對象，即新建一個類模塊救創(chuàng)建一個新對象。類模塊主要包括窗體模塊和報表模塊和自定義模塊，其中窗體模塊和報表模塊從屬于各自的窗體或報表。 2標(biāo)準(zhǔn)模塊

9、標(biāo)準(zhǔn)模塊即數(shù)據(jù)庫中的可用函數(shù)模塊和子程序，只包含通用只一些通用過程和常用過程，并不與任何對象相關(guān)聯(lián)，通常用來存放供其他Access數(shù)據(jù)庫對象使用的公共過程。 3類模塊和標(biāo)準(zhǔn)模塊的區(qū)別 這兩種模塊的主要區(qū)別在于其存儲方式和生命周期不同。 類模塊的數(shù)據(jù)由類實例創(chuàng)建，獨(dú)立于應(yīng)用程序。標(biāo)準(zhǔn)模塊只有一個備份，因此當(dāng)其中的公共變量發(fā)生變化時，其后的程序再讀取該變量時，得到的是變量變化后的值。 類模塊的作用域是類實例對象的存活期，其中的聲明或存在的任何變量或常量的值，都僅在該代碼運(yùn)行時有效。而標(biāo)準(zhǔn)模塊的變量在聲明為Public時，在工程的任何地方都可見。9.1.2 模塊和過程 模塊由若干過程組成。過程是VB

10、A程序代碼的容器，是程序中的若干較小的邏輯部件，可分為子程序和函數(shù)過程，每種過程都有其獨(dú)特的功能。過程可以簡化程序設(shè)計任務(wù)，還可以增強(qiáng)或擴(kuò)展Visual Basic的構(gòu)件。另外，過程還可用于共享任務(wù)或壓縮重復(fù)任務(wù)，如減少頻繁運(yùn)算等。 1子過程 子過程是由Sub和End Sub語句包含起來的VBA語句其格式如下： Private|Public|Friend Sub 子過程名（參數(shù)列表） Exit Sub End Sub 2函數(shù)過程 函數(shù)過程是由Function和End Function語句包含起來的VBA語句，其格式如下： Private|PublicStaticFunction 函數(shù)名（參數(shù)行

11、）As 數(shù)據(jù)類型 Exit Function End Function9.3 創(chuàng)建模塊創(chuàng)建模塊9.3.1 創(chuàng)建新模塊創(chuàng)建新模塊 1創(chuàng)建標(biāo)準(zhǔn)模塊 打開數(shù)據(jù)庫，單擊數(shù)據(jù)庫窗口左邊對象列表中的“模塊”選項，然后單擊工具欄上的“新建按鈕”，即“Visual Basic編輯器”，顯示模塊設(shè)計視圖并創(chuàng)建空白標(biāo)準(zhǔn)模塊，或單擊“Visual Basic編輯器”菜單欄中“插入”按鈕，在彈出的下拉列表中選擇“模塊”選項，也會出現(xiàn)一個空白的標(biāo)準(zhǔn)模塊，如圖9-5所示。此時在代碼窗口即可進(jìn)行編輯。 2創(chuàng)建類模塊 類模塊可根據(jù)與窗體、報表的相關(guān)性分為與窗體報表相關(guān)的類模塊和與窗體報表不相關(guān)的類模塊。 創(chuàng)建與窗體或報表相關(guān)

12、的類模塊過程如下： 雙擊工程窗口中的窗體名稱，然后在彈出的新建模塊代碼窗口中輸入代碼即可，如圖9-6所示。 創(chuàng)建與窗體或報表不相關(guān)的類模塊步驟如下： 單擊“數(shù)據(jù)庫”窗口或“Visual Basic編輯器”的菜單欄上“插入”，在彈出下拉列表中選擇“類模塊”，即可在“Visual Basic編輯器”中看到一個空白的類模塊。將所需的聲明或過程添加到類模塊設(shè)計視圖中，進(jìn)行保存即可。 設(shè)計的類模塊可以作為新類型來創(chuàng)建用戶自定對象，類中定義的變量為對象的屬性，子過程和函數(shù)則將成為對象的方法。可以通過對象來引用其屬性和方法。9.3.2 將宏轉(zhuǎn)換為模塊將宏轉(zhuǎn)換為模塊 將窗體或報表上的宏轉(zhuǎn)換為VBA代碼的方法如

13、下： （1）使用“設(shè)計”視圖的模式打開窗體或報表。 （2）單擊菜單欄上的“工具”按鈕，在彈出下拉列表中選擇“宏”命令，然后選擇“將窗體（報表）的宏轉(zhuǎn)換為Visual Basic代碼”。 （3）在彈出的“轉(zhuǎn)換宏”對話框中，選擇所需項，單擊“轉(zhuǎn)換”按鈕即可。 將全局宏轉(zhuǎn)換為VBA代碼的方法如下： （1）在“數(shù)據(jù)庫”窗口中，單擊左側(cè)對象列表中的“宏”對象按鈕，在宏對象列表框中選擇要轉(zhuǎn)換的宏名。 （2）執(zhí)行菜單命令“文件”“另存為”，然后在“另存為”對話框中輸入保存的文件名，在“保存類型”中選擇“模塊”，結(jié)束單擊“確定”。 （3）在彈出的“轉(zhuǎn)換宏”對話框中，選擇所需選項，單擊“轉(zhuǎn)換”按鈕。9.4 VB

14、A編程基礎(chǔ) VBA是Visual Basic語言的一個子集，集成了整個Office產(chǎn)品套件中的開發(fā)語言和開發(fā)環(huán)境，是Office產(chǎn)品系列中的重要組成部分。 9.4.1 數(shù)據(jù)類型數(shù)據(jù)類型 在創(chuàng)建表對象的時候，我們已經(jīng)接觸過數(shù)據(jù)類型了。數(shù)據(jù)類型實際上就是指具有相同特征數(shù)據(jù)對象的集合，包括相同的取值集合和可對其實行的操作。VBA提供了豐富的數(shù)據(jù)類型，常用數(shù)據(jù)類型如表9-2所示。9.4.2 常量 VBA的常量包括數(shù)值常量、字符常量、符號常量、固有常量和系統(tǒng)定義常量五種。 1數(shù)值常量 數(shù)值常量即我們常說的常數(shù)，相當(dāng)于數(shù)據(jù)類型中的整型、小數(shù)型和浮點(diǎn)型。 2字符常量 字符常量是由字符串定界符雙引號（”）括起

15、來的一串字符。 3符號常量 對于程序中經(jīng)常出現(xiàn)以及難以記憶的數(shù)值，可以表示為符號常量，以便增加程序的可讀性和可維護(hù)性。一般使用Const語句來聲明一個符號常量，其格式如下： Const 常量名As 類型名表達(dá)式 4固有常量 固有常量是Access或引用庫的一部分，代表固定系統(tǒng)值所有固有常量均可在宏或VBA代碼中使用。 固有常量的類型有：操作常量、ADO常量、DAO常量、事件過程常量、鍵盤代碼常量、其他類型常量、RunCommand方法常量、安全性常量、VBA常量和VarType函數(shù)常量等。通常，固有常量通過前兩個字母來指明定義該常量的對象庫。來自Microsoft Access庫的常量以“ac

16、”開頭，來自ActiveX Data Objects（ADO）庫的常量以“ad”開頭，而來自VB庫的常量以“vb”開頭。 5系統(tǒng)常量 Access和VBA有3個系統(tǒng)常量：True、False和Null。True和False是系統(tǒng)定義的邏輯值，而Null用于指明字段中數(shù)據(jù)沒有或未知值。系統(tǒng)常量可以用在所有應(yīng)用程序中。 注意： 不能借用系統(tǒng)常量名稱作為其他對象的名稱，否則會出現(xiàn)如下錯誤：“編譯錯誤：缺少：標(biāo)志符”。9.4.3 變量 變量是指程序運(yùn)行過程中，其值可以發(fā)生變化的量。變量可以是任意VBA所支持的數(shù)據(jù)類型。 變量由變量名標(biāo)識，其命名規(guī)則是：以字母或字符開頭，不超過255個字符的字符串。使用

17、變量可以增加程序代碼的可讀性和可維護(hù)性。 1對簡單變量的聲明 對簡單變量的聲明可以使用類型說明符、Dim語句和DefType語句。 1）使用類型說明符 使用類型說明符聲明變量時，將其放在說明變量的最后。 2）使用Dim語句聲明 可以使用Dim語句聲明一個或多個變量，其格式如下： Dim 變量名 As 數(shù)據(jù)類型 3）使用DefType語句 DefType語句主要用于模塊級通用聲明部分，一般用來聲明變量或傳送給過程的參數(shù)的數(shù)據(jù)類型，或用來聲明指定字符開頭的Function或Property Get過程的返回值類型。 DefType語句格式如下： DefType 字母,字母范圍 2數(shù)組 數(shù)組是在有規(guī)

18、則的結(jié)構(gòu)中包含一種數(shù)據(jù)類型的一組數(shù)據(jù)，也稱數(shù)組元素變量。數(shù)組中的元素數(shù)據(jù)類型相同而且連續(xù)可索引，并且每個元素具有唯一的索引號，更改其中的一個元素不影響其他元素。數(shù)組元素變量由數(shù)組名和數(shù)組下標(biāo)組成，其中數(shù)組名標(biāo)志數(shù)組元素變量位于同一個數(shù)組，下標(biāo)為索引號，用于標(biāo)志同一數(shù)組中不同的數(shù)組元素。 9.4.4 表達(dá)式 表達(dá)式是由關(guān)鍵字、運(yùn)算符、常量、變量、函數(shù)、字段名、控件和屬性等組合而成的，用來執(zhí)行運(yùn)算、操作字符或測試數(shù)據(jù)。 在Access中，表達(dá)式無處不再，大體可分為5種形式：算術(shù)表達(dá)式、字符串表達(dá)式、關(guān)系表達(dá)式、布爾表達(dá)式和對象運(yùn)算表達(dá)式。 1算術(shù)表達(dá)式 算術(shù)表達(dá)式也稱數(shù)值表達(dá)式或數(shù)學(xué)表達(dá)式，是由算

19、術(shù)運(yùn)算符連接數(shù)值型常量、變量、函數(shù)以及各種對象屬性而形成的運(yùn)算式。 將Access種的算術(shù)運(yùn)算符按其優(yōu)先順序由高到低排列如表9-5所示。 2字符串表達(dá)式 字符串表達(dá)式由字符串運(yùn)算符連接而成，用于完成字符串的連接運(yùn)算。字符串運(yùn)算符又稱字符串連接運(yùn)算符，主要包括3種，如表9-6所示。 3關(guān)系表達(dá)式 關(guān)系表達(dá)式是由關(guān)系運(yùn)算符組成的表達(dá)式，其結(jié)果是一個邏輯值，即真（True）或假（False）。關(guān)系運(yùn)算符又稱比較運(yùn)算符或條件運(yùn)算符，可用于任意數(shù)據(jù)類型數(shù)據(jù)的比較（但運(yùn)算符兩邊的操作數(shù)據(jù)的數(shù)據(jù)類型必須一樣）。 比較運(yùn)算符如表9-7所示 4布爾表達(dá)式 布爾表達(dá)式又稱邏輯表達(dá)式，是由邏輯運(yùn)算符連接布爾邏輯類型

20、常量、變量、函數(shù)、表達(dá)式以及各種對象屬性組合而成的運(yùn)算式，根據(jù)邏輯運(yùn)算符兩邊的邏輯值進(jìn)行運(yùn)算。其返回值為邏輯值，主要用于條件判斷。 按優(yōu)先級由高到低的順序排列，邏輯運(yùn)算符如表9-8所示。 5對象表達(dá)式 對象表達(dá)式即引用對象或?qū)ο髮傩缘谋磉_(dá)式，其運(yùn)算符主要有兩種：“！”和“.”，其介紹如表9-10所示。9.5 VBA程序流程控制程序流程控制9.5.1 程序書寫規(guī)范 1語句書寫規(guī)則 （1）源程序不分大小寫，英文字母的大小寫是等價的（字符串除外）。但是為了提高程序的可讀性，VBA編譯器對不同的程序部分都有默認(rèn)的書寫規(guī)則，當(dāng)程序書寫不符合這些規(guī)則時，編譯器會自動進(jìn)行轉(zhuǎn)換。例如，關(guān)鍵字默認(rèn)首字母大寫，其

21、他字母小寫。 （2）通常一個語句寫在一行，但一行最多允許255個字符。當(dāng)語句較長，一行寫不下時，可以用續(xù)行符“_”將語句連續(xù)寫在下一行。 （3）如果一條語句輸入完成，按回車后該行代碼呈紅色，說明該行語句有錯誤，應(yīng)及時修改。 2添加注釋 注釋是為了提高程序的可讀性而在程序需要解釋的地方加入的標(biāo)志性說明語句。一個好的程序一般都有注釋語句。 在VBA中，注釋語句一般用單引號或Rem關(guān)鍵字作為起始符。單引號可以在VBA代碼行的任何位置，此時VBA編譯器會將單引號后面同一行的所有內(nèi)容看成注釋內(nèi)容。使用Rem關(guān)鍵字引導(dǎo)注釋語句時，Rem關(guān)鍵字必須是注釋語句的第一個詞，即注釋必須單獨(dú)成行。9.5.2 VBA

22、程序結(jié)構(gòu)類型程序結(jié)構(gòu)類型 1順序結(jié)構(gòu) 順序結(jié)構(gòu)是結(jié)構(gòu)化程序設(shè)計中最常見的程序結(jié)構(gòu)，它按代碼從上到下順序依次執(zhí)行關(guān)鍵字控制下的代碼。 另外，在順序結(jié)構(gòu)中可使用WithEnd With對同一對象執(zhí)行一系列語句，這些語句按順序執(zhí)行，并可省略對象名。該關(guān)鍵字的語法格式如下所示。 With 對象名 Commands End With 2選擇結(jié)構(gòu) 選擇結(jié)構(gòu)的程序根據(jù)條件式的值來選擇程序運(yùn)行的語句。主要有以下一些結(jié)構(gòu)： 1）If語句 If 條件表達(dá)式1 Then 條件表達(dá)式1為真時要執(zhí)行的語句 Else If 條件表達(dá)式2 Then 條件表達(dá)式1為假，并且條件表達(dá)式2為真時要執(zhí)行的語句 End If語句 2）Select Case語句 Select Case語句是多分支選擇語句，即可根據(jù)測試條件中表達(dá)式的值來決定執(zhí)行幾組語句中的依據(jù)。使用格式如下： Select Case 表達(dá)式 Case 表達(dá)式1 表達(dá)式的值與表達(dá)式1的值相等時執(zhí)行的語句 Case 表達(dá)式2 表達(dá)式的值介于表達(dá)式2和表達(dá)式3之間時執(zhí)行的語句 Case Else 上述情況均不符合時執(zhí)行的語句 End Select 3）函數(shù) 除了以上兩種方式外，VBA還提供了3個函數(shù)完成相應(yīng)的操作。 IIf函數(shù) IIf函數(shù)的調(diào)用格式如下： IIf（條件式，表達(dá)式1，表達(dá)式2） 它的跳轉(zhuǎn)由最左邊的“條件式”控制，當(dāng)條件式為真（True）時，