【正文】 的平均值。可以在 VBA 代碼、宏、查詢表達式或計算控件中使用。 語法格式為： DAvg(表達式 , 記錄集 [, 條件式 ]) 參數(shù)說明： (同 Dcount() 函數(shù)參數(shù) )。 使用說明： ● 包含 Null 值的記錄不能在平均值的計算中使用。 ● 在查詢的“準(zhǔn)則”行中可以使用 DAvg 函數(shù)來指定準(zhǔn)則。 (9) DSum()函數(shù) DSum 函數(shù)用于計算指定記錄集中某個字段列數(shù)據(jù)的總和。 語法格式為： DSum(表達式 , 記錄集 [, 條件式 ]) 參數(shù)說明： (同 Dcount() 函數(shù)參數(shù) )。 使用說明： ● 如果沒有記錄滿足“條件式”參數(shù)或者記錄集中不包含任何記錄， DSum 函數(shù)將返回 Null。 ● 在查詢的“準(zhǔn)則”行、查詢中的計算字段表達式中或更新查詢的“更新到”行中均可以使用 DSum 函數(shù)指定準(zhǔn)則。 ● 可以在總計查詢的計算字段表達式中使用 DSum 或 Sum函數(shù)。 (10) DLookup()函數(shù) DLookup 函數(shù)用于從指定記錄集檢索特定字段的值。 語法格式為： DLookup(表達式 , 記錄集 [, 條件式 ]) 參數(shù)說明： (同 Dcount() 函數(shù)參數(shù) )。 使用說明： ● DLookup 函數(shù)將基于表達式中指定的信息返回單個字段的值。 ● 如果沒有滿足條件的記錄，或者記錄集中沒有記錄， DLookup 函數(shù)將返回 Null。 ● 如果有多個字段滿足條件式， DLookup 函數(shù)將返回第一個匹配字段所對應(yīng)的檢索字段值。 程序語句 VBA中的語句是能夠完成某項操作的一條完整命令，程序由大量的命令語句構(gòu)成。命令語句可以包含關(guān)鍵字、函數(shù)、運算符、變量、常數(shù)以及表達式。 VBA語句一般分為 3種類型： (1) 聲明語句：用來為變量、常量、程序或過程命名，指定數(shù)據(jù)類型。 (2) 賦值語句：用來為變量指定一個值或表達式。 (3) 執(zhí)行語句：用來調(diào)用過程、執(zhí)行一個方法或函數(shù)，可以循環(huán)或從代碼塊中分支執(zhí)行，實現(xiàn)各種流程控制。 (1) 不區(qū)分字母的大小 (2) 語句書寫規(guī)定 (3) 注釋語句 2. 聲明語句 通過聲明語句可以命名和定義過程、變量、數(shù)組或常量。當(dāng)聲明一個過程、變量或數(shù)組時，也同時定義了它們的作用范圍，此范圍取決于聲明位置 (子過程、模塊或全局 )和使用什么關(guān)鍵字 (Dim、 Public、 Static或 Global等 )來聲明它。 3. 賦值語句 賦值語句用于指定一個值或表達式給變量或常量。使用格式為： [Let] 變量名 = 值或表達式 其中： Let為可選項，在使用賦值語句時，一般省略。 關(guān)于使用賦值語句的說明： (1) 當(dāng)數(shù)值表達式與變量精度不同時，系統(tǒng)強制轉(zhuǎn)換成變量的精度。 (2) 當(dāng)表達式是數(shù)字字符串，變量為數(shù)值型，系統(tǒng)自動轉(zhuǎn)換成數(shù)值類型再賦值，若表達式含有非數(shù)字字符或空串時，賦值出錯。 (3) 不能在一個賦值語句中，同時給多個變量賦值。 (4) 實現(xiàn)累加作用的賦值語句。 4. 標(biāo)號和 GoTo語句 GoTo語句用于在程序執(zhí)行過程中實現(xiàn)無條件轉(zhuǎn)移。 格式為： GoTo 標(biāo)號 5. 執(zhí)行語句 執(zhí)行語句是程序的主體，程序功能靠執(zhí)行語句來實現(xiàn)。語句的執(zhí)行方式按流程可以分為順序結(jié)構(gòu)、條件判斷結(jié)構(gòu)和循環(huán)結(jié)構(gòu)三種。 (1) If條件語句 在 VBA代碼中使用 If條件語句，可根據(jù)條件表達式的值來選擇程序執(zhí)行哪些語句。 If條件語句的主要格式有：單分支、雙分支和多分支等。 ● 單分支結(jié)構(gòu)語句格式為： If 條件表達式 Then 語句塊 End If 或 If 條件表達式 Then 語句 End If 功能：當(dāng)條件表達式為真時，執(zhí)行 Then后面的語句塊或語句，否則不做任何操作。 說明：語句塊可以是一條或多條語句。在使用右邊的單行簡單格式時， Then 后只能是一條語句，或者是多條語句用冒號分隔，但必須與 If 語句在一行上。 ● 雙分支結(jié)構(gòu)語句格式為： If 條件表達式 Then 語句塊 1 Else 語句塊 2 End If 或 If 條件表達式 Then 語句 1 Else語句 2 End If 功能：當(dāng)條件表達式為真時，執(zhí)行 Then后面的語句塊 1或語句 1，否則執(zhí)行 Else后面的語句塊 2或語句 2。 (2)多分支 Select Case語句 當(dāng)條件選項較多時，使用 If語句嵌套來實現(xiàn)，程序的結(jié)構(gòu)會變得很復(fù)雜，不利于程序的閱讀與調(diào)試，此時，用 Select Case語句會使程序結(jié)構(gòu)更清晰。 Select Case語句格式為： Select Case 變量或表達式 Case 表達式 1 語句塊 1 Case 表達式 2 語句塊 2 … [Case Else 語句塊 n+1] End Select (3) 循環(huán)語句 循環(huán)結(jié)構(gòu)可以重復(fù)執(zhí)行一個或多個語句。也可以定義一個條件，使得循環(huán)語句的執(zhí)行變得有條件。 ● Do…Loop 循環(huán)語句語法格式為： Do While 條件表達式 語句塊 [Exit Do ] 語句塊 Loop 或 Do Until 條件表達式 語句塊 [Exit Do ] 語句塊 Loop 功能： Do While循環(huán)語句：當(dāng)條件表達式結(jié)果為真時，執(zhí)行循環(huán)體，直到條件表達式結(jié)果為假或執(zhí)行到 Exit Do語句而退出循環(huán)體。 Do Until循環(huán)語句：當(dāng)條件表達式結(jié)果為假時，執(zhí)行循環(huán)體，直到條件表達式結(jié)果為真或執(zhí)行到 Exit Do語句而退出循環(huán)體。 ● For…Next 循環(huán)語句 用于循環(huán)次數(shù)已知的循環(huán)操作。 語句格式為： For 循環(huán)變量 =初值 To 終值 [step 步長值 ] 語句塊 [Exit For ] 語句塊 Next 循環(huán)變量 功能： 判斷循環(huán)變量是否在終值內(nèi)，如果是，執(zhí)行循環(huán)體，然后循環(huán)變量加步長值繼續(xù)；如果否，結(jié)束循環(huán)，執(zhí)行Next后的語句。 過程調(diào)用與參數(shù)傳遞 1. 函數(shù)過程的調(diào)用 函數(shù)過程的調(diào)用同標(biāo)準(zhǔn)函數(shù)的調(diào)用相同，語句格式如下： 函數(shù)過程名 ([實參列表 ]) 說明： (1) 多個實參之間用逗號分隔?！皩崊⒘斜怼北仨毰c形參保持個數(shù)相同，位置與類型一一對應(yīng) (在 VB中允許兩者個數(shù)不同 )，實參可以是常數(shù)、變量或表達式。 (2) 調(diào)用函數(shù)過程時，把實參的值傳遞給形參，稱為參數(shù)傳遞。參數(shù)傳遞有 2種方式，分別是傳值 (ByVal選項 )和傳址 (ByRef選項 )。 2. 子過程的調(diào)用 子過程的調(diào)用有兩種方法。 語句格式為： Call 子過程名 [(實參列表 )] 和 子過程名 [實參列表 ] 說明： ● 用 Call 關(guān)鍵字調(diào)用子過程時，若有實參，則必須把實參用圓括號括起，無實參時可省略圓括號；不使用 Call 關(guān)鍵字，若有實參，也不需用圓括號括起。 ● 若實參要獲得子過程的返回值，則實參只能是變量，不能是常量、表達式或控 件名。 3. 參數(shù)傳遞 在調(diào)用過程中，一般主調(diào)過程和被調(diào)過程之間有數(shù)據(jù)傳遞，也就是主調(diào)過程的實參傳遞給被調(diào)過程的形參，然后執(zhí)行被調(diào)過程。 在 VBA中，實參向形參的數(shù)據(jù)傳遞有 2種方式： 傳值 (ByVal選項 ) 傳址 (ByRef選項 ) 傳址調(diào)用是系統(tǒng)默認方式。區(qū)分兩種方式的標(biāo)志是：要使用傳值的形參，在定義時前面加有“ ByVal”關(guān)鍵字，有“ ByVal”關(guān)鍵字，為傳值方式，否則為傳址方式。 (1) 傳值調(diào)用的處理方式 (2) 傳址調(diào)用的處理方式 VBA程序的運行錯誤處理與調(diào)試 程序的運行錯誤處理 常見的錯誤主要發(fā)生在以下 3個方面： ● 語法錯誤：如變量定義錯誤，語句前后不匹配等。 ● 運行錯誤：如數(shù)據(jù)傳遞時類型不匹配，數(shù)據(jù)發(fā)生異常和動作發(fā)生異常等。 ● 邏輯錯誤：應(yīng)用程序沒有按照希望的結(jié)果執(zhí)行，運算結(jié)果不符合邏輯。 在 VBA中，一般通過設(shè)置錯誤陷阱來糾正運行錯誤。即在代碼中設(shè)置一個捕捉錯誤的轉(zhuǎn)移機制，一旦出現(xiàn)錯誤，便無條件轉(zhuǎn)移到指定位置執(zhí)行。 Access 2022提供了以下幾個語句來構(gòu)造錯誤陷阱： (1) On Error GoTo語句：在遇到錯誤發(fā)生時，控制程序的處理。 語句的使用格式有如下幾種： On Error GoTo 標(biāo)號 On Error Resume Next On Error GoTo 0 (2) Err對象：返回錯誤代碼。 在程序運行發(fā)生錯誤后， Err對象的 number屬性返回錯誤代碼。 (3) Error() 函數(shù)：該函數(shù)返回出錯代碼所在的位置或根據(jù)錯誤代碼返回錯誤名稱。 (4) Error 語句：該語句用于錯誤模擬，以檢查錯誤處理語句的正確性。 程序的調(diào)試 VBA提供的調(diào)試技術(shù)有：設(shè)置斷點、單步跟蹤和設(shè)置監(jiān)視窗口。 (1) 設(shè)置斷點 (2) 調(diào)試工具欄 本章總結(jié) 作業(yè)： 1. Access VBA中的數(shù)據(jù)類型有哪些？ 2. 在 VBA中如何定義變量？ 3. 變量的作用域有哪些？ 4. Access VBA有哪些程序控制語句？ 5. 模塊的類型有哪些，它們之間的區(qū)別是什么？ 6. 什么是事件？ 7. 什么是事件過程？ 8. 什么是函數(shù)？ 9. 在實際應(yīng)用中如何確定使用宏還是 VBA？ 10. 函數(shù)過程與子過程的作用與特點是什么？ 11. 參數(shù)傳遞的類型與特點有哪些？ 第十一章 創(chuàng)建 VBA模塊 本章要點 變量與過程的作用域 模塊程序的結(jié)構(gòu)設(shè)計與常用命令的使用 用 VBA設(shè)計事件過程 網(wǎng)絡(luò)數(shù)據(jù)庫編程方法 模塊創(chuàng)建 編程環(huán)境的模塊代碼設(shè)計窗口由兩部分區(qū)域組成： 聲明區(qū)域 過程實現(xiàn)區(qū)域。 ● 聲明區(qū)域位于模塊的開始部分，主要用于聲明比較規(guī)則，變量、常量或數(shù)組等的定義等。 ● 過程實現(xiàn)區(qū)域用于設(shè)計每個具體的子過程或函數(shù)過程，在子過程或函數(shù)過程內(nèi)部編寫 VBA代碼，用以執(zhí)行操作或計算數(shù)值。 過程與變量的作用域 變量或過程可被訪問的范圍稱為變量或過程的作用域。 1. 過程的作用域 過程的作用域分為：模塊 (窗體模塊或標(biāo)準(zhǔn)模塊 )級和全局級。 ● 模塊 (窗體模塊或標(biāo)準(zhǔn)模塊 )級： 過程定義在某個窗體模塊或標(biāo)準(zhǔn)模塊內(nèi)部，子過程或函數(shù)過程前加 Private關(guān)鍵字，這類過程只能被本窗體模塊或標(biāo)準(zhǔn)模塊內(nèi)部的其他過程調(diào)用。 ● 全局級： 過程定義在某個標(biāo)準(zhǔn)模塊內(nèi)部，子過程或函數(shù)過程前加 Public關(guān)鍵字，這類過程可以被應(yīng)用程序的所有窗體模塊或標(biāo)準(zhǔn)模塊中的過程調(diào)用。 調(diào)用方式： 在標(biāo)準(zhǔn)模塊中定義的全局過程，外部過程均可調(diào)用，如果過程名在整個應(yīng)用程序中不惟一，需在被調(diào)過程名前加該過程所在的標(biāo)準(zhǔn)模塊名。 例： Call 標(biāo)準(zhǔn)模塊名 .被調(diào)過程名 (實參表 ) 2. 變量的作用域 變量定義的位置與方式不同，變量的作用范圍也有所不同，變量的作用范圍分為：局部范圍、模塊范圍和全局范圍。 根據(jù)變量的作用范圍，可把變量分為 3種類型：局部變量、模塊變量和全局變量。 (1) 模塊聲明區(qū)域 此區(qū)域在每一模塊的最上方，第一個過程之上，行數(shù)可多可少。在模塊聲明區(qū)域可以聲明比較規(guī)則、聲明變量等。 Option Compare Database語句用于聲明比較規(guī)則， 關(guān)于 Option的使用語法有： ● Option Compare：定義模塊字符串比較規(guī)則 ● Option Base：設(shè)置該模