AccessVBA編程課件

1、AccessVBA編程,1,11.1 VBA概述 11.2 VBA編程基礎 11.3 程序的流程控制 11.4 模塊、函數(shù)與子過程 11.5 面向對象的程序設計 11.6 VBA的數(shù)據(jù)庫編程 11.7 調(diào)試過程,第11章 Access VBA編程,AccessVBA編程,2,本章要點,了解什么是標準模塊 了解VBA程序設計相關內(nèi)容 掌握程序基本結構，能夠利用VBA程序設計主窗體、查詢窗體、登錄窗體等。,AccessVBA編程,3,11.1 VBA概述,11.1.1 VBA簡介 Access提供了強大的交互操作功能，開發(fā)者通過創(chuàng)建表、查詢、窗體、報表、頁、宏等對象，可以將數(shù)據(jù)整合在一起，快速建立

2、和管理簡單的數(shù)據(jù)庫應用系統(tǒng)。 創(chuàng)建過程雖然簡單，但是所建系統(tǒng)會有一定的局限性，無法實現(xiàn)復雜的處理和必要的判斷控制。 Access提供了VBA編程技術，VBA在開發(fā)中的應用，大大加強了對數(shù)據(jù)管理應用功能的擴展，使開發(fā)出來的系統(tǒng)更具靈活性和自動性，更容易發(fā)揮開發(fā)者的想象力和創(chuàng)造力。,AccessVBA編程,4,11.1 VBA概述,11.1.2 VBA的編程環(huán)境 VBA的編程環(huán)境，稱為VBE（Microsoft Visual Basic Editor），是編寫和調(diào)試程序的重要環(huán)境。,AccessVBA編程,5,11.1 VBA概述,進入VBE （1）在窗體或報表中進入VBE （2）在窗體或報表外進

3、入VBE,AccessVBA編程,6,11.1 VBA概述,VBE界面 VBE界面主要由常用工具欄和多個子窗口組成 。,AccessVBA編程,7,11.1 VBA概述,VBE界面中的的窗口有代碼窗口、立即窗口、本地窗口、監(jiān)視窗口、對象瀏覽器、工程資源管理器、屬性窗口。不同的窗口顯示不同的對象，可以執(zhí)行【視圖】菜單中的相應命令來調(diào)出窗口。,AccessVBA編程,8,11.2 VBA編程基礎,在編寫代碼時，需要用到程序設計基礎知識，包括VBA的基本數(shù)據(jù)類型、常量與變量、運算符、表達式以及常用函數(shù)。,AccessVBA編程,9,11.2 VBA編程基礎,11.2.1 數(shù)據(jù)類型 數(shù)據(jù)是信息的物理表

4、示形式，是程序處理的對象。 在VBA中，對不同類型的數(shù)據(jù)有不同的操作方式和不同的取值范圍。 VBA的數(shù)據(jù)類型有系統(tǒng)定義和自定義兩種，系統(tǒng)定義的數(shù)據(jù)類型稱為標準類型。,AccessVBA編程,11,11.2 VBA編程基礎,11.2.2 常量和變量 計算機處理數(shù)據(jù)時，必須將其裝入內(nèi)存。在高級語言編寫的程序中，需要將存放數(shù)據(jù)的內(nèi)存單元命名，通過內(nèi)存單元名來訪問其中的數(shù)據(jù)。 命名的內(nèi)存單元，就是常量或變量。,AccessVBA編程,12,11.2 VBA編程基礎,1、常量 （1）直接常量 文字常量直接出現(xiàn)在代碼中，也稱為字面常量或直接常量，文字常量的表示形式?jīng)Q定它的類型和值。例如： 字符型：I am

5、 a student 放在一對引號當中。 數(shù)值型：3.14159、56、8.432E-15 日期型：#3 jan，98# 放在一對#當中。 邏輯型：True 、False,AccessVBA編程,13,11.2 VBA編程基礎,（2）符號常量 符號常量就是用標識符來表示一個常量，例如：我們把3.14定義為pi，在程序代碼中，我們就可以在使用圓周率的地方使用pi。使用符號常量的好處主要在于，當我們要修改該常量時，只需要修改定義該常量的一個語句即可。 定義常量的方法如下： const 常量名 as類型=表達式 說明：常量名的命名規(guī)則。 as類型用以說明常量的數(shù)據(jù)類型。,AccessVBA編程,14

6、,11.2 VBA編程基礎,（3） 固有常量 VBA還提供了許多固有常量，固有常量有兩個字母前綴指明了定義該常量的對象庫。 來自Microsoft Access庫的常量以“ac”開頭，來自ADO庫的常量以“ad”開頭，而來自Visual Basic庫的常量則以“vb”開頭，例如：acForm、adAddNew、vbCurrency。 可以用“對象瀏覽器”來查看所有可用對象庫中的固有常量列表。,AccessVBA編程,15,11.2 VBA編程基礎,（4） 系統(tǒng)定義常量 系統(tǒng)定義的常量有： True False Null,AccessVBA編程,16,11.2 VBA編程基礎,2、變量 在程序執(zhí)

7、行過程中，其值可以改變的量稱為變量。 在 VBA代碼中，變量名的命名有如下規(guī)定： 最長只能有 255 個字符。 必須用字母開頭。 可以包含字母、數(shù)字或下劃線字符 (_)。 不能包含標點符號或空格等。 不能是 Visual Basic 關鍵字。 關鍵字是那些在 Visual Basic 中用作語言的一部分的 詞，包括預定義語句（如 If 和 Loop）、函數(shù)（如 Len 和 Abs）和運算符（如 Or 和 Mod）。,AccessVBA編程,17,11.2 VBA編程基礎,使用變量前，應首先定義所用到的變量（包括變量名和類型），使系統(tǒng)分配相應的內(nèi)存空間，并確定該空間可存儲的數(shù)據(jù)類型。所有變量都具

8、有名字和類型。在VB中可以用類型說明語句或隱式說明來定義變量。 （1）類型說明語句 格式：說明符 變量名 As 類型 說明符是說明語句的關鍵字，它可以是Dim，Private，Public，Static。,AccessVBA編程,18,11.2 VBA編程基礎,（2）使用類型說明符聲明變量 VBA允許使用類型聲明符來聲明變量，類型聲明符放在變量的末尾。如：intX%表示是一個整型變量，douY#是一個雙精度變量，strZ$是個字符串變量。 例如： intX%=1243 douY#=45665.456 strZ$=Access,AccessVBA編程,19,11.2 VBA編程基礎,（3）隱式說

9、明 VB中使用未加說明的變量時，系統(tǒng)默認為可變類型（Variant），這種方式稱為隱式說明。建議初學者養(yǎng)成對變量顯示說明的習慣，以避免一些不必要的錯誤。,AccessVBA編程,20,11.2.3 運算符與表達式 表達式是由常量、變量和運算符按一定的規(guī)則組成的字符序列。,11.2 VBA編程基礎,AccessVBA編程,21,11.2 VBA編程基礎,1、算術運算符和算術表達式 算術運算符用來連接數(shù)值型數(shù)據(jù)進行算術運算。,AccessVBA編程,22,2、字符串運算符和字符串表達式 字符串只有連接運算，在VB中可以用“+”或“&”。建議盡量使用“&”，使程序看起來更明了。 注意“+”和“&”的

10、區(qū)別。當兩個被連接的數(shù)據(jù)都是字符型時，它們的作用相同。當數(shù)字型和字符型連接時，“&”把數(shù)據(jù)都轉化成字符型然后連接；“+”把數(shù)據(jù)都轉化成數(shù)字型然后連接。,11.2 VBA編程基礎,AccessVBA編程,23,11.2 VBA編程基礎,3、關系運算符和關系表達式 關系運算符用作兩個數(shù)值或字符串的比較，返回值是邏輯值True或False。表列出了VB中的關系運算符及使用示例。,AccessVBA編程,24,11.2 VBA編程基礎,4、邏輯運算符,AccessVBA編程,25,11.2 VBA編程基礎,5、對象運算符和對象運算符表達式 引用了對象或對象屬性的表達式稱為對象表達式。 對象運算符有兩種

11、：“！”和“.”。 “！”運算符的作用是指出隨后為用戶定義的內(nèi)容。使用它可以引用一個開啟的窗體、報表或開啟窗體或報表上的控件。 “.”運算符通常引用窗體、報表或控件等對象的屬性。,AccessVBA編程,26,11.2 VBA編程基礎,11.2.4 常用函數(shù) 函數(shù)實際上是系統(tǒng)事先定義好的內(nèi)部程序，用來完成特定的功能。VBA提供了大量的內(nèi)部函數(shù)，供用戶在編程時使用。 函數(shù)的一般形式是： 函數(shù)名（參數(shù)表）,AccessVBA編程,27,11.2 VBA編程基礎,11.2.5 數(shù)組 數(shù)組不是一種數(shù)據(jù)類型,而是一組相同類型的變量集合。 數(shù)組的優(yōu)點：用數(shù)組名代表邏輯上相關的一批數(shù)據(jù)。用下標表示數(shù)組中的各

12、個元素。,AccessVBA編程,28,11.2 VBA編程基礎,1、數(shù)組的聲明 數(shù)組在使用前，必須顯式聲明，可以用Dim語句來聲明數(shù)組。 一維數(shù)組的聲明 Dim 數(shù)組名（下標）As 類型 例如：Dim y（5）As Integer 定義了一個一維數(shù)組，該數(shù)組的名字為y，類型為Integer，占據(jù)6個（05）整型變量的空間。,AccessVBA編程,29,11.2 VBA編程基礎,說明： （1）定義數(shù)組后，數(shù)值數(shù)組中的全部元素都初始化為0，字符串數(shù)組中的全部元素都初始化為空字符串。 （2）“數(shù)組名”的命名遵守標識符規(guī)則。 （3）“下標”的一般形式為“下界 to 上界”。 下標的上界、下界為整數(shù)

13、，不得超過Long數(shù)據(jù)類型的范圍，并且下界應該小于上界。如果不指定下界，下界默認為0。,AccessVBA編程,30,11.2 VBA編程基礎,2、數(shù)組的使用 數(shù)組聲明后，數(shù)組中的每個元素都可以當作簡單變量來使用。 例如，S（2）是一個數(shù)組元素，其中的S稱為數(shù)組名，2是下標。在使用數(shù)組元素時，必須把下標放在一對緊跟在數(shù)組名之后的括號中。S（2）是一個數(shù)組變量，而S2則是一個簡單變量。,AccessVBA編程,31,11.3 程序的流程控制,11.3.1 順序結構 簡單程序可以只用順序結構來編寫，即程序從左至右、自頂向下執(zhí)行語句。,AccessVBA編程,32,11.3 程序的流程控制,11.3

14、.2 分支結構 在程序設計中經(jīng)常遇到這類問題，它需要根據(jù)不同的情況采用不同的處理方法。 例如，一元二次方程的求根問題，要根據(jù)判別式小于零或大于等于零的情況，采用不同的數(shù)學表達式進行計算。 對于這類問題，如果用順序結構編程，顯然力不從心，必須借助選擇結構。,AccessVBA編程,33,11.3 程序的流程控制,1.單行If語句 格式： If 條件表達式 Then 語句塊 End If,AccessVBA編程,34,11.3 程序的流程控制,語句說明： 條件表達式：一般為關系或邏輯表達式。表達式成立，結果為True，否則為False。 語句塊：可以是一條或多條語句。 IfThen 、End If

15、 是VBA的保留字。 語句執(zhí)行過程：當條件表達式的結果為真時，執(zhí)行Then后面的語句塊，否則執(zhí)行End If后面的語句。,AccessVBA編程,35,11.3 程序的流程控制,2.多行If語句 格式： If 條件 then 語句塊1 Else 語句塊2 End If,AccessVBA編程,36,11.3 程序的流程控制,功能： 塊If首先判斷“條件”，其值為真時，執(zhí)行語句塊1；為假時執(zhí)行語句塊2。當缺省Else中的內(nèi)容時，該選擇結構只對條件滿足的情況進行處理。執(zhí)行過程如圖所示。,AccessVBA編程,37,3.IfThenElseIf語句 格式： If 條件1 then 語句塊1 Els

16、eIf 條件2 then 語句塊2 Else 語句塊n+1 End If,11.3 程序的流程控制,AccessVBA編程,38,11.3 程序的流程控制,功能： （1）依次判斷條件，如果找到一個滿足的條件，則執(zhí)行其下面的語句塊，然后跳過End If，執(zhí)行后面的程序。 （2）如果所列出的條件都不滿足，則執(zhí)行Else語句后面的語句塊；如果所列出的條件都不滿足，又沒有Else子句，則直接跳過End If，不執(zhí)行任何語句塊。,AccessVBA編程,39,4.IIf函數(shù) IIf函數(shù)是If語句的一種特殊格式，它的使用語法如下：IIf(條件，表達式1，表達式2) 作用是，先判斷條件，如果條件為真，返回表

17、達式l的值；否則返回表達式2的值。 例如：c = IIf(a b, a, b) 語句執(zhí)行后， 如果ab,則c的值為a，否則c的值為b。,11.3 程序的流程控制,AccessVBA編程,40,11.3 程序的流程控制,5.Select Case語句 當對一個表達式的不同取值情況作不同處理時，用ElseIf語句程序結構顯得較為雜亂，而用Select Case語句將使程序的結構更清晰，Select Case語句又稱為情況語句。,AccessVBA編程,41,11.3 程序的流程控制,格式： Select Case 測試表達式 Case 表達式列表1 語句塊1 Case 表達式列表2 語句塊2 Ca

18、se 表達式列表n 語句塊n Case Else 語句塊n+1 End Select,AccessVBA編程,42,功能：根據(jù)“測試表達式”的值，選擇第一個符合條件的語句塊執(zhí)行。 執(zhí)行過程是： 先求“測試表達式”的值，然后順序測試該值符合哪一個Case子句中情況，如果找到了，則執(zhí)行該Case子句下面的語句塊，然后執(zhí)行End Select下面的語句；如果沒找到，則執(zhí)行Case Else下面的語句塊，然后執(zhí)行End Select下面的語句。,11.3 程序的流程控制,AccessVBA編程,43,11.3 程序的流程控制,說明： “測試表達式”可以是數(shù)值型或字符串型表達式； Case表達式可以有多

19、種形式： 1、單個值或一列值，相鄰兩個值之間用逗號隔 開。 2、用關鍵字To指定值的范圍，其中第一個值不 應大于第二個值，對字符串將比較它的第一 個字符的ASCII碼大小。,AccessVBA編程,44,11.3 程序的流程控制,3、使用關鍵字is指定條件。is后緊接關系操作符（如、=和等）和一個變量或 值。 4、前面的三種條件形式混用，多個條件之間用逗號隔開。 Case語句按先后順序進行比較，執(zhí)行與第一個case條件相匹配的代碼。若不存在匹配的條件，則執(zhí)行Case Else語句。然后程序將從End Selecct語句后的代碼行繼續(xù)執(zhí)行。,AccessVBA編程,45,11.3.3 循環(huán)結構

20、循環(huán)結構非常適合于解決處理的過程相同、處理的數(shù)據(jù)相關，但處理的具體值不同的問題。 我們把能夠處理這類問題的語句稱為循環(huán)語句。,11.3 程序的流程控制,AccessVBA編程,46,1While循環(huán) 對于只知道控制條件，但不能預先確定需要 執(zhí)行多少次循環(huán)體的情況，我們可以使用While 循環(huán)。While語句格式如下： While 條件 循環(huán)體 Wend,11.3 程序的流程控制,AccessVBA編程,47,“條件”可以是關系表達式或邏輯表達式。While循環(huán)就是當給定的“條件”為True時，執(zhí)行循環(huán)體，為False時不執(zhí)行循環(huán)體。因此While循環(huán)也叫當型循環(huán)。 執(zhí)行過程： （1）執(zhí)行Whi

21、le語句，判斷條件是否成立。 （2）如果條件成立，就執(zhí)行循環(huán)體；否則，轉到 （4）執(zhí)行。 （3）執(zhí)行Wend語句，轉到（1）執(zhí)行。 （4）執(zhí)行Wend語句下面的語句。,11.3 程序的流程控制,AccessVBA編程,48,11.3 程序的流程控制,While循環(huán)的幾點說明： （1）While 循環(huán)語句本身不能修改循環(huán)條件，所以必須在WhileWend語句的循環(huán)體內(nèi)設置相應語句，使得整個循環(huán)趨于結束，以避免死循環(huán)。 （2）While循環(huán)語句先對條件進行判斷，然后才決定是否執(zhí)行循環(huán)體。如果開始條件就不成立，則循環(huán)體一次也不執(zhí)行。 （3）凡是用ForNext循環(huán)編寫的程序，我們都可以用WhileW

22、end語句實現(xiàn)。反之，則不然。,AccessVBA編程,49,2.DoLoop語句 與前面介紹的While循環(huán)相比，Do循環(huán)具有更強的靈活性，它可以根據(jù)需要決定是條件滿足時執(zhí) 行循環(huán)體，還是一直執(zhí)行循環(huán)體直到條件滿足。 Do while|until Loop,11.3 程序的流程控制,AccessVBA編程,50,11.3 程序的流程控制,3.For循環(huán) For循環(huán)的一般格式如下： For 循環(huán)變量=初值 To 終值 Step 步長 循環(huán)體 Next 循環(huán)變量,AccessVBA編程,51,11.3 程序的流程控制,格式中各項的說明： 循環(huán)變量：亦稱為循環(huán)控制變量，必須為數(shù)值型。 初值、終值：

23、都是數(shù)值型，可以是數(shù)值表達式。 步長：循環(huán)變量的增量，是一個數(shù)值表達式。一般來說，其值為正，初值應小于終值；若為負，初值應大于終值。但步長不能是0。如果步長是1，Step 1可略去不寫。 循環(huán)體：在For語句和Next語句之間的語句序列。 Next后面的循環(huán)變量與For語句中的循環(huán)變量必須相同。,AccessVBA編程,52,11.3 程序的流程控制,執(zhí)行過程： （1）系統(tǒng)將初值賦給循環(huán)變量，并自動記下終值和步長。 （2）檢查循環(huán)變量的值是否超過終值。如果超過就結束循環(huán)，執(zhí)行Next后面的語句；否則，執(zhí)行一次循環(huán)體。 （3）執(zhí)行Next語句，將循環(huán)變量增加一個步長值再賦給循環(huán)變量，轉到（2）繼

24、續(xù)執(zhí)行。,AccessVBA編程,53,11.3 程序的流程控制,4.For EachNext語句 For each 變量 in 集合 循環(huán)體 Next For Each語句用于對一個數(shù)組或集合中的每個元素重復執(zhí)行一組語句。,AccessVBA編程,54,11.4 模塊、函數(shù)與子過程,11.4.1 模塊 模塊起著存放用戶編寫的VBA代碼的作用，模塊也是作為容器使用的。具體地說，模塊就是由VBA通用聲明和一個或多個過程組成的集合 。,AccessVBA編程,56,通用聲明部分主要包括：Option語句聲明、變量或常量或自定義數(shù)據(jù)類型的聲明。 可以使用的Option語句包括： Option Bas

25、e 1 聲明模塊中數(shù)組下標的默認下界為l，不聲明則為0。 Option Compare Database 聲明模塊中需要字符串比較時，將根據(jù)數(shù)據(jù)庫的區(qū)域ID確定的排序級別進行比較；不聲明則按字符ASClI碼進行比較。 Option Explicit語句 強制模塊中用到的變量必須先進行聲明。,11.4 模塊、函數(shù)與子過程,AccessVBA編程,58,11.4 模塊、函數(shù)與子過程,11.4.2 函數(shù)與子過程 無論是哪一種模塊，都是由一個通用聲明部分以及一個或多個過程組成。一個過程是一個VBA代碼單元，包含一系列的語句和方法。 過程通常有兩種：Sub 過程和Function 過程。Sub過程沒有返

26、回值，而Function過程將返回一個值。,Function 函數(shù)過程名(參數(shù)列表)As類型 局部變量或常數(shù)定義 語句序列 Exit Function 語句序列 函數(shù)名=表達式 End Function,1、函數(shù) 函數(shù)過程的定義形式：,Sub 子過程名(參數(shù)列表) 局部變量或常數(shù)定義 語句序列 Exit Sub 語句序列 End Sub,2.子過程的定義形式,AccessVBA編程,61,11.4 模塊、函數(shù)與子過程,2.創(chuàng)建子程序和函數(shù) 在VBE的“工程資源管理器”窗口中，雙擊需要創(chuàng)建過程的窗體模塊或報表模塊或標準模塊，然后單擊【插入】菜單中的【過程】命令，打開“添加過程”對話框。,Acce

27、ssVBA編程,63,11.4 模塊、函數(shù)與子過程,3.事件過程與函數(shù)的調(diào)用 事件過程的調(diào)用方法 格式1：Call 過程名（參數(shù)列表） 格式2：過程名 參數(shù)列表,AccessVBA編程,64,11.4 模塊、函數(shù)與子過程, 過程的參數(shù)傳遞和返回值 調(diào)用Function過程的方法和調(diào)用任何內(nèi)部函數(shù)的方法是一樣的，就是在賦值語句中調(diào)用函數(shù)過程，調(diào)用形式為： 變量名 = 函數(shù)過程名（參數(shù)列表）,AccessVBA編程,65,11.5 面向對象的程序設計,11.5.1 面向對象程序設計的基本概念 “面向對象”概念是相對于“面向過程”的一次革命?！懊嫦驅ο蟆辈粌H僅作為一種語言，更作為一種方法論貫穿于軟件

28、設計的各個階段。面向對象的技術在系統(tǒng)程序設計、數(shù)據(jù)庫及多媒體應用等諸多領域得到廣泛應用。 Visual Basic、Visual FoxPro、Visual C+都是面向對象的程序設計語言。,AccessVBA編程,66,11.5 面向對象的程序設計,1對象和對象名稱 對象好比是積木塊，它是VBA應用程序的基礎構件。在開發(fā)一個應用程序時，必須先建立各種對象，然后圍繞對象進行程序設計。 表、查詢、窗體、報表等是對象，字段、窗體和報表中的控件也是對象。 為便于識別，每個對象均有名稱，稱為對象名稱。,AccessVBA編程,67,11.5 面向對象的程序設計,有效的名稱須符合Access的標準命名規(guī)

29、則，窗體、報表、字段等對象的名稱不能超過64個字符，而對于控件，對象名稱長度不能超過255個字符。 對于未綁定控件，默認名稱是控件的類型加上一個唯一的整數(shù)。 對于綁定控件，如果通過從字段列表中拖放字段來創(chuàng)建控件，則對象的默認名稱是記錄源中字段的名稱 。,AccessVBA編程,68,11.5 面向對象的程序設計,2對象的屬性 屬性是指對象的特征。每一種對象都有一組特定的屬性，這在屬性窗口中可以看到。 每個屬性都有一個缺省值，如果不改變該值，應用程序就使用該缺省值，如果缺省值不能滿足要求，就要對它重新設置。,AccessVBA編程,69,11.5 面向對象的程序設計,3對象的方法 如果說，對象的

30、屬性是靜態(tài)規(guī)格，那么對象的方法便是動態(tài)操作，目的是改變對象的當前狀態(tài)。 例如，如果將光標插入點移入某個文本框內(nèi)，在程序中就需要使用SetFocus方法。 注意：對象的方法不會顯示在屬性表中，只可顯示在程序中。,AccessVBA編程,70,11.5 面向對象的程序設計,4對象的事件 事件是對象對外部操作的響應，如在程序執(zhí)行時，單擊命令按鈕會產(chǎn)生一個Click事件。事件的發(fā)生通常是用戶操作的結果。 每個對象都有一系列預先定義的事件集。例如，命令按鈕能響應單擊、獲取焦點、失去焦點等事件，可以通過屬性表的“事件”選項卡查看。,AccessVBA編程,72,11.5 面向對象的程序設計,5事件過程 盡

31、管系統(tǒng)對每個對象都預先定義了一系列的事件集，但要判定它們是否響應某個具體事件以及如何響應事件，就是編程的事情了。例如，需要命令按鈕響應Click事件，就把完成Click事件功能的代碼寫到Click事件的事件過程中。 事件過程的形式如下： Private Sub 對象名_事件名（） （VB程序代碼） End Sub,AccessVBA編程,73,11.5 面向對象的程序設計,11.5.2 面向對象程序設計示例 創(chuàng)建一個簡單應用程序，該應用程序由一個文本框和一個命令按鈕組成。單擊命令按鈕，文本框中會出現(xiàn) Hello , world! 消息。,AccessVBA編程,74,11.5 面向對象的程序設計,Private Sub cmd1_Click() txt1.Value = Hello World! End Sub Private Sub Form_Load() txt1.Value = txt1.FontSize = 20 txt1.FontItalic = True txt1.FontBold = True txt1.BackColor = vbBl