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