【正文】 過程名 (參數(shù) 1，參數(shù) 2……) 說明： （）中的參數(shù)為形參，可以包含多個(gè)，多個(gè)參數(shù)之間使用逗號(hào)隔開。參數(shù)的定義格式主要包含如下： [ByVal | ByRef] 參數(shù)名 [as 類型 ] []：表示 []中部分為可選項(xiàng)。 ByVal：值傳遞，形參值的變化不影響實(shí)參的值。 ByRef：地址傳遞，默認(rèn)選項(xiàng)，形參值的變化影響實(shí)參的值。 2．調(diào)用： 過程調(diào)用： Call 過程名 (實(shí)參 1，實(shí)參 2……) 函數(shù)調(diào)用： 變量 =函數(shù)名 (實(shí)參 1，實(shí)參 2……) 比如： Call p(1,2) 1和 2均為實(shí)參 Call p(x,y) x和 y均為實(shí)參 【 例 】 不同參數(shù)的傳遞 在窗體上有一個(gè)命令按鈕 mand1，編寫如下代碼 Private sub mand1_click() Dim x as integer,y as integer X=1 Y=2 Call p(x,y) Msgbox x Msgbox y End sub Public sub p(n as integer, ByVal m as integer) n=3 m=4 End sub 結(jié)果： 單擊命令按鈕兩個(gè)消息框的內(nèi)容分別為： 3和 2 分析： p(n as integer, ByVal m as integer)中 n as integer的傳遞方式為默認(rèn)值即為 ByRef， m為值傳遞。 Call p(x,y)中第一個(gè)參數(shù)是地址傳遞， x將地址傳遞給 n，即 x和 n指向同一地址，在 p過程中 n的值發(fā)生了變化， x的值自然隨 n的變化。 Call p(x,y)中第二個(gè)參數(shù)是值傳遞，將 y的值賦值給 m， y和 m存放在不同的內(nèi)存區(qū)域，在過程 p中 m的變化不會(huì)影響到 y。 程序的調(diào)試與出錯(cuò)處理 程序錯(cuò)誤類型 ? 編譯錯(cuò)誤 一般是語(yǔ)法上的錯(cuò)誤，如 if沒有對(duì)應(yīng)的 endif， sub沒有對(duì)應(yīng)的end sub，將引號(hào)寫成中文的引號(hào)，調(diào)用函數(shù)時(shí)，參數(shù)不對(duì)應(yīng)等。 ? 運(yùn)行錯(cuò)誤 在運(yùn)行程序時(shí)發(fā)生的錯(cuò)誤，比如計(jì)算 3/0、要打開的表不存在等。 ? 邏輯錯(cuò)誤 沒有獲得預(yù)期結(jié)果，比如要計(jì)算 3的平方，而寫成的表達(dá)式2^3，結(jié)果是 8，不是需要的結(jié)果。 出錯(cuò)處理 ? On Error GoTo 標(biāo)號(hào) 如果發(fā)生一個(gè)運(yùn)行時(shí)錯(cuò)誤，則控件會(huì)跳到標(biāo)號(hào)處，激活錯(cuò)誤處理程序，該標(biāo)號(hào)應(yīng)該和 On Error語(yǔ)句在同一過程中。 ? On Error Resume Next 忽略錯(cuò)誤行，繼續(xù)執(zhí)行錯(cuò)誤行下一條命令。 ? On Error GoTo 0 不使用錯(cuò)誤處理程序。 說明： 如果不使用 On Error 語(yǔ)句，則任何運(yùn)行時(shí)錯(cuò)誤都是致命的；也就是說，結(jié)果會(huì)導(dǎo)致顯示錯(cuò)誤信息并中止運(yùn)行。 VBA程序調(diào)試 ? 調(diào)試是指在編寫程序時(shí)，查找并修改錯(cuò)誤的過程。 圖 調(diào)試工具欄 設(shè)置斷點(diǎn) 設(shè)置或取消斷點(diǎn)有以下幾種方法： ? 單擊要設(shè)置斷點(diǎn)處命令行左邊空白區(qū)域即斷點(diǎn)設(shè)置區(qū)，再次單擊可取消。 ? 定位命令行，執(zhí)行菜單 【 調(diào)試 】 |【 切換斷點(diǎn) 】命令，設(shè)置或取消斷點(diǎn)。 ? 定位命令行，執(zhí)行工具欄 【 調(diào)試 】 |【 切換斷點(diǎn) 】命令，設(shè)置或取消斷點(diǎn)。 ? 定位命令行，按下鍵 【 F9】 ，設(shè)置或取消斷點(diǎn) ? 單步跟蹤 當(dāng)運(yùn)行到某個(gè)斷點(diǎn)后，選擇 【 調(diào)試 】 |【 逐語(yǔ)句 】或按下鍵 【 F8】 ，就可以使程序運(yùn)行到下一行，這樣逐步檢查程序的運(yùn)行情況，直至找到問題所在。 ? 設(shè)置監(jiān)視點(diǎn) 案例 ——【 例 】 使用調(diào)試工具調(diào)試 【 例 】 功能說明：?jiǎn)尾秸{(diào)試每條語(yǔ)句，并監(jiān)視運(yùn)行過程中各變量的變化。設(shè)置 【 例 】中 For i = 1 To Int(money / 4)為斷點(diǎn)，使用單步執(zhí)行方式逐步運(yùn)行每條語(yǔ)句。 步驟： 1. 打開 【 例 】 窗體“求 1到 n整數(shù)的和”，進(jìn)入“ mand1”命令按鈕的“單擊事件”過程，進(jìn)入 VBE界面。 2. 設(shè)置斷點(diǎn)：?jiǎn)螕裘钚小?For i = 1 To Int(money / 4)”前斷點(diǎn)設(shè)置區(qū)域（即圖），設(shè)置此處為斷點(diǎn)。 3. 運(yùn)行程序：運(yùn)行窗體“買雞問題計(jì)算”，輸入一個(gè)值，單擊 【 計(jì)算 】 按鈕。程序進(jìn)入調(diào)試界面如圖 ，暫停在“ For i = 1 To Int(money / 4)”命令行上。 4. 單語(yǔ)句調(diào)試：繼續(xù)按 【 F8】 或執(zhí)行菜單 【 調(diào)試 】 |【 逐語(yǔ)句 】 進(jìn)行逐語(yǔ)句調(diào)試，程序運(yùn)行到到下一條語(yǔ)句上如圖 。 5. 添加監(jiān)視窗口：選定要監(jiān)視的變量，然后單擊鼠標(biāo)右鍵，執(zhí)行彈出菜單 【 添加監(jiān)視 】 命令，或執(zhí)行菜單 【 調(diào)試 】 |【 添加監(jiān)視 】 命令，會(huì)顯示監(jiān)視窗口，同時(shí)在監(jiān)視窗口中該變量或表達(dá)式的狀態(tài)。 6. 打開本地窗口可以監(jiān)視當(dāng)前過程中所有變量的狀態(tài)。 7. 立即窗口需要用戶輸入“ ?表達(dá)式”才能顯示當(dāng)前運(yùn)行到此處時(shí)，該表達(dá)式的值。 使用 VBA訪問數(shù)據(jù)庫(kù) 在 VBA程序中也能訪問數(shù)據(jù)庫(kù)，能更加有效、快捷的管理數(shù)據(jù)。 在 VBA程序中訪問數(shù)據(jù)庫(kù)接口主要包含三種： （ 1）開放數(shù)據(jù)庫(kù)編程接口 ODBC API。 （ 2）數(shù)據(jù)庫(kù)訪問對(duì)象 DAO（ Data Access Object）。 （ 3） Active數(shù)據(jù)對(duì)象 ADO（ ActiveX Data Objects）。 數(shù)據(jù)訪問對(duì)象 DAO的模型結(jié)構(gòu) 圖 DAO分層結(jié)構(gòu) ? DBEngine：是 DAO模型的最頂層的對(duì)象，包含并控制 DAO模型的全部對(duì)象。 ? Workspace：工作區(qū)。 ? Database：操作的數(shù)據(jù)庫(kù)對(duì)象。 ? QueryDef：數(shù)據(jù)庫(kù)的查詢對(duì)象。 ? Recordset：表示數(shù)據(jù)操作返回的記錄集合。 ? Field：表示記錄集中的字段信息。 在 vba中訪問數(shù)據(jù)庫(kù)的對(duì)象，要設(shè)置對(duì) DAO庫(kù)的引用，設(shè)置方法如下： （ 1）進(jìn)入 VBE環(huán)境。 （ 2）選擇菜單“工具” |“引用”，打開引用對(duì)話框，如圖 。 （ 3）從“可使用的引用”列表框中選擇“ Microsoft DAO Object Library”選項(xiàng)。 （ 4）單擊“確定”按鈕 設(shè)置 DAO庫(kù)的引用 圖 DAO庫(kù)引用設(shè)置 使用 DAO訪問數(shù)據(jù)庫(kù)的方法 使用 DAO訪問數(shù)據(jù)庫(kù)有以下幾個(gè)步驟： 在 VBA 中使用 DAO 可以分以下幾個(gè)步驟來操作 （ 1）首先創(chuàng)建 Workspace 工作區(qū)。 Dim ws as Workspace 39。聲明一個(gè)工作變量 Set ws=(0) 39。設(shè)置 ws為默認(rèn)工作區(qū) （ 2）然后打開 Database 數(shù)據(jù)庫(kù)。 Dim db as Database 39。設(shè)置數(shù)據(jù)庫(kù)對(duì)象 Set db=(數(shù)據(jù)庫(kù)文件名 ) 39。打開某個(gè)數(shù)據(jù)庫(kù) Set db = CurrentDb() 39。設(shè)置當(dāng)前數(shù)據(jù)庫(kù)為 db （ 3）再創(chuàng)建記錄集即 Recordset。 Dim rs As Recordset 39。聲明 rs為 Recordset對(duì)象 Set rs = (借書 ) 39。設(shè)置 rs為“借書”表的記錄集合 （ 4）最后可以通過這一記錄集的屬性和方法來訪問數(shù)據(jù)。 Dim fd As Field 39。聲明 fd為 Filed字段對(duì)象 Set fd = (罰款金額 ) 39。聲明 fd為 Recordset記錄集合中當(dāng)前記錄（行）字段“罰款金額”的值。 ? 【 例 】 編寫一個(gè)過程“ update_fine”，計(jì)算“借書”表中的罰款金額，要求：若圖書已還，判斷是否已經(jīng)還書，若未還以當(dāng)前日期作為還書日期，計(jì)算還書日期與應(yīng)還日期的時(shí)間差的天數(shù)，再計(jì)算應(yīng)繳罰金，更新“罰款金額”字段。 過程代碼如下： Sub update_fine () Dim ws As Workspace 39。聲明一個(gè)工作區(qū)變量 Dim db As Database 39。聲明一個(gè)數(shù)據(jù)庫(kù)變量 Dim rs As Recordset 39。聲明一個(gè)記錄集合變量 Dim fd1, fd2, fd3 As Field 39。聲明三個(gè)字段變量 Dim d As Integer 39。聲明一個(gè)整型變量 Set ws = (0) 39。設(shè)置工作區(qū)變量 ws Set db = CurrentDb() 39。設(shè)置當(dāng)前數(shù)據(jù)庫(kù) db Set rs = (借書 ) 39。設(shè)置“借書”表記錄集合 rs Set fd1 = (應(yīng)還日期 ) 39。設(shè)置字段“應(yīng)還日期”字段變量 fd1 Set fd2 = (還書日期 ) Set fd3 = (罰款金額 ) Do While Not 39。循環(huán)處理每條記錄，直到文件結(jié)尾 EOF 39。設(shè)置記錄集合為可更新 If IsNull(fd2) Then 39。如果“還書日期”字段為 NULL，即尚未還書 fd2 = Date 39。將 fd2設(shè)置為今天 End If d = fd2 fd1 39。計(jì)算還書日期與應(yīng)還日期之間的天數(shù) If d 0 Then fd3 = d * 39。計(jì)算罰金賦值給 fd3即“罰款金額”字段 39。更新數(shù)據(jù)庫(kù) End If 39。移到下一條記錄 Loop End Sub