【正文】 ”按鈕的名稱， Click為單擊事件。Access程序設計 文科計算機小公共課規(guī)劃教材 總 目 錄 第 1章 數(shù)據(jù)庫基礎 第 2章 數(shù)據(jù)庫和表 第 3章 查詢 第 4章 窗體 第 5章 報表 第 6章 宏 第 7章 頁 第 8章 模塊與 VBA程序設計 第 9章 二級公共基礎知識 第 8章 模塊與 VBA程序設計 【 難重點 】 ? 類模塊及控件對象的代碼表示 ? 運算符與表達式 ? 選擇結(jié)構(gòu)的程序設計 ? 常用系統(tǒng)函數(shù) 知識網(wǎng)絡圖 【 例 】 用戶登錄窗體中“退出”按鈕 VBA代碼 (1)查看“退出”命令按鈕事件 (2)查看事件代碼 初識 VBA編 單擊進入代碼編寫 說明 ①事件過程 Private Sub Command7_Click() ….. End Sub Sub表示定義一個過程。 ②事件過程代碼 在 Private Sub Command7_Click()和 End Sub中間的幾行代碼為實現(xiàn)“退出”功能的 VBA代碼，實現(xiàn)退出的具體代碼為 ，其他代碼用于錯誤處理。 初識 VBA編 【 例 】 如果使用宏來響應控件對象事件，比如同樣創(chuàng)建一個可退出 access程序的按鈕，可采用以下步驟： （ 1）創(chuàng)建一個宏，宏名為“退出系統(tǒng)”，操作選擇“ Quit”。 （ 3）在數(shù)據(jù)庫窗口中，單擊菜單 【 工具 】 |【 宏 】 |【 Visual Basic編輯器 】命令。 在數(shù)據(jù)庫窗口，單擊 【 模塊 】 對象，然后單擊 【 新建 】 按鈕。 換行 一條語句太長，可以將該語句寫成幾行，在換行處加空白加下劃線 ( _ ) 。 Single（單精度） 4字節(jié) 浮點數(shù)，精確度 7位，類型符“ !”，如 !、 Double（雙精度） 8字節(jié) 浮點數(shù)，精確度 16位，類型符“ ”，如 Currency（貨幣） 8字節(jié) 定點數(shù)或整數(shù)，用于貨幣計算，類型符“ ”，如 Decimal（小數(shù)） 14字節(jié) 存儲從 10^281 到 10^281 范圍的數(shù)字 Date（日期） 8字節(jié) 日期文字須以數(shù)字符號“ ”擴起來，例如， January 1, 2021 String（字符） 字符長度 對應表中文本數(shù)據(jù)類型，定界符為“ ”，如 123，wele Object（對象） 4字節(jié) 儲存對象地址來引用對象 Variant（變體） 根據(jù)需要 可以表示上述任何一種類型 變量 ? 聲明變量 格式： dim 變量名 [as數(shù)據(jù)類型 ] 說明：如果有 as 數(shù)據(jù)類型選項，該變量只能儲存該類型的值，否則可以是任何類型。 Private該常量只能聲明它的模塊中使用。 （ 1）聲明 格式： Dim 數(shù)組名 ([m1 to ]n1,[m2 to] n2) as 數(shù)據(jù)類型 n m1第一維下標上下界， n m2是第二維下標上下界，m m2都可以省略，如省略表示 0。 優(yōu)先級關(guān)系： notandorxor 表 8 5 邏輯運算符 運算符 功能 例子 結(jié)果 And 邏輯與 True And True True And False False And False True False False Or 邏輯或 True or True True or False False or False True True False Not 邏輯非 Not True Not False False True 表達式案例 【 例 】 判斷表達式的結(jié)果 在 VBE窗口，運行菜單 【 視圖 】 |【 立即窗口 】 命令，彈出如圖 ，輸入“ ?”號，在問號后輸入表達式，回車后即可顯示表達式結(jié)果。 函數(shù)包含三個要素：函數(shù)名、參數(shù)、返回值。 系統(tǒng)提供了大量系統(tǒng)函數(shù)，可以在 VBE的立即窗口驗證。 Len(wele to Beijing) 結(jié)果： 18 說明：包含 2個空格。 （ 10）字符串查找 格式： instr([N]， str1， str2) 功能：在 str1中從 N位置開始查找 str2，返回首次出現(xiàn)的位置， N可以省略，省略表示總第一個字符開始查找。 格式： InputBox(prompt[, 標題 ] [, 默認值 ] [, xpos] [, ypos]) 例：在圖 ： ?inputbox(請輸入姓名 ) 彈出圖 ，輸入“王小風”，單擊“確定”按鈕，返回值為輸入的值 （ 2） MsgBox 在對話框中顯示消息，等待用戶單擊按鈕，并返回一個 Integer類型的數(shù)值告訴用戶單擊哪一個按鈕。它既可以是用于標識表或查詢中字段的字符串表達式，也可以是以該字段上的數(shù)據(jù)進行計算的表達式。 例：在立即窗口中輸入： ?DLookup([密碼 ], 用戶 , [用戶號 ]= 39。用來判斷真?zhèn)蔚谋磉_式。如果 expr 為 False，則返回這部分的值或表達式。如果 index是 2，則會返回列表中的第 2個選擇項，以此類推。 例：打開窗體 主體導航 主體導航 , acNormal 例：打開表“圖書” OpenTable 圖書 , acViewNormal, acEdit 程序流程控制 順序、選擇（分支）、循環(huán)（重復） 順序結(jié)構(gòu)：按照語句的先后順序依次執(zhí)行。 （ 2）如果出現(xiàn)運行錯誤，執(zhí)行 On Error GoTo Err_Command7_Click，從該處直接跳轉(zhuǎn)到Err_Command7_Click處，而 運行。 （ 2）運行界面見第四章圖 。 userid amp。設置密碼框的焦點 39。 “”“”)， 函數(shù)中 [密碼 ]、 [用戶號 ]是“用戶”表中字段， “用戶”指表名， userid指文本框中輸入的值。 ，光標定位在密碼文本框里。 （ 3） is 關(guān)系運算符（如 is =100）。 案例 ——【 例 】 建立窗體“體重標準計算”。 表 87健康指數(shù)計算控件屬性 控件名稱 標題 說明 title 健康指數(shù)計算 字體：楷體 _GB2312，字號： 24 high 文本框，輸入身高 weight 文本框，輸入體重 result 結(jié)果 圖中“輕度肥胖，注意節(jié)食”標簽，設計初始化時為“結(jié)果” Command1 計算 采用非向?qū)Х绞缴? 在 【 計算 】 按鈕的 【 單擊 】 （ Click）事件。 循環(huán) ——for……next 語句 格式： For 循環(huán)變量 =初值 To 末值 [Step 步長 ] [語句序列 1] [Exit For] [語句序列 2] Next 循環(huán)變量 說明： 執(zhí)行過程如圖 。 案例 ——【 例 】 創(chuàng)建窗體“數(shù)學問題描述” （ 1）功能說明：已知公雞 4文錢，母雞 3文錢，如果給定總錢數(shù)和要買的雞的總數(shù)量，錢正好用完，請計算所買的公雞和母雞分別有幾只？ （ 2）程序界面如圖 （ 3）控件屬性：主要的控件及屬性如下，其他控件自行設定。 i * 4 + (num i) * 3 = Val(money) 該條件成立，表示滿足雞總數(shù)量和錢總數(shù)量的要求。 ? 如果沒有滿足條件的組合，循環(huán)結(jié)束后 i的值為 Int(money / 4)+1，所以，如果 i的值大于 Int(money / 4)，即表示沒有滿足條件的組合。 案例 ——【 例 】 建立窗體“桃子計算” （ 1）功能說明：猴子第一天摘下若干個桃子，當即吃了一半，還不過癮又多吃了一個；以后每天早上都吃了前一天的一半又多一個，到第 N天早上想再吃時，見只剩下一個桃子，若給定天數(shù) N，求第一天共摘了多少桃子？。 過程 過程就是 VBA代碼單元，一個過程包含一系列 VBA語句和方法。 調(diào)用格式： 調(diào)用過程方法： call 過程名（參數(shù)） 在 VBA中， sub過程有兩類： 通用過程 和 模塊過程。 （ 4）在生成的過程框架里輸入代碼即可完成。 ? （ 3）控件屬性見表 810。 事件過程 ? 事件過程只能出用戶動作或系統(tǒng)觸發(fā) ，是和某個窗體或報表關(guān)聯(lián) ? 一個控件的事件過由該控件的實際名字、一個下劃線和事件名組成的。 3）選擇 【 事件 】 選項，單擊相應事件后的“ …” ，進入事件過程的代碼編寫。 （ 3）控件屬性參見表 810。 Private Sub Command1_Click() Dim fine As Double fine = getFine(n) MsgBox 罰金 : + CStr(fine) + 元 End Sub 說明： n為窗體上文本框名稱，表示文本框中輸入的值。 ByVal：值傳遞，形參值的變化不影響實參的值。 Call p(x,y)中第二個參數(shù)是值傳遞，將 y的值賦值給 m， y和 m存放在不同的內(nèi)存區(qū)域，在過程 p中 m的變化不會影響到 y。 出錯處理 ? On Error GoTo 標號 如果發(fā)生一個運行時錯誤，則控件會跳到標號處，激活錯誤處理程序，該標號應該和 On Error語句在同一過程中。 VBA程序調(diào)試 ? 調(diào)試是指在編寫程序時，查找并修改錯誤的過程。 ? 定位命令行，按下鍵 【 F9】 ，設置或取消斷點 ? 單步跟蹤 當運行到某個斷點后，選擇 【 調(diào)試 】 |【 逐語句 】或按下鍵 【 F8】 ，就可以使程序運行到下一行，這樣逐步檢查程序的運行情況，直至找到問題所在。 2. 設置斷點：單擊命令行“ For i = 1 To Int(money / 4)”前斷點設置區(qū)域（即圖），設置此處為斷點。 5. 添加監(jiān)視窗口：選定要監(jiān)視的變量，然后單擊鼠標右鍵，執(zhí)行彈出菜單 【 添加監(jiān)視 】 命令