【正文】 來(lái)，例如， January 1, 2021 String（字符） 字符長(zhǎng)度 對(duì)應(yīng)表中文本數(shù)據(jù)類型，定界符為“ ”，如 123，wele Object（對(duì)象） 4字節(jié) 儲(chǔ)存對(duì)象地址來(lái)引用對(duì)象 Variant（變體） 根據(jù)需要 可以表示上述任何一種類型 變量 ? 聲明變量 格式： dim 變量名 [as數(shù)據(jù)類型 ] 說(shuō)明：如果有 as 數(shù)據(jù)類型選項(xiàng)，該變量只能儲(chǔ)存該類型的值，否則可以是任何類型。”，如 10amp。 換行 一條語(yǔ)句太長(zhǎng)，可以將該語(yǔ)句寫成幾行，在換行處加空白加下劃線 ( _ ) 。 注釋內(nèi)容 說(shuō)明：“ 39。 在數(shù)據(jù)庫(kù)窗口，單擊 【 模塊 】 對(duì)象，然后單擊 【 新建 】 按鈕。 ? 模塊分類 類模塊：和某窗體或報(bào)表相關(guān)聯(lián) 標(biāo)準(zhǔn)模塊：獨(dú)立于窗體和報(bào)表 類模塊 標(biāo)準(zhǔn)模塊 將宏轉(zhuǎn)化為模塊 宏的每個(gè)操作都有對(duì)應(yīng)的 VBA語(yǔ)句，因此可以將宏轉(zhuǎn)化為模塊，加快運(yùn)行速度。 （ 3）在數(shù)據(jù)庫(kù)窗口中，單擊菜單 【 工具 】 |【 宏 】 |【 Visual Basic編輯器 】命令。在窗體上添加一個(gè)命令按鈕 . （ 3）打開命令按鈕屬性窗口，切換到“事件”選項(xiàng)頁(yè)，單擊其單擊事件下拉框，在彈出的列表中選擇“退出系統(tǒng)”宏，如圖 初識(shí) VBA編 表 81 部分事件過(guò)程 對(duì)象 事件 說(shuō)明 格式 窗體 Onload 加載時(shí) Private Sub Form_Load() OnUnload 卸載時(shí) Private Sub Form_UnLoad() OnOpen 打開時(shí) Private Sub Form_Open () OnClose 關(guān)閉時(shí) Private Sub Form_Close () OnClick 單擊時(shí) Private Sub Form_Click() OnDblClick 雙擊時(shí) Private Sub Form_DblClick(Cancel As Integer) 報(bào)表 OnOpen 報(bào)表打開時(shí) Private Sub Report_Open(Cancel As Integer) OnClose 報(bào)表關(guān)閉時(shí) Private Sub Report_Close() 命令按鈕 OnClick 單擊按鈕時(shí) Private Sub Command1_Click() OnDblClick 雙擊按鈕時(shí) Private Sub 對(duì)象 _DblClick(Cancel As Integer) MouseUp 鼠標(biāo)釋放時(shí) Private Sub對(duì)象 _MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) MouseDown 鼠標(biāo)按下時(shí) Private Sub對(duì)象 _MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) MouseMove 鼠標(biāo)移動(dòng)時(shí) Private Sub對(duì)象 _MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 文本框 BeforeUpdate 內(nèi)容更新前 Private Sub 對(duì)象_BeforeUpdate(Cancel As Integer) AfterUpdate 內(nèi)容更新后 Private Sub 對(duì)象 _AfterUpdate() OnEnter 獲取焦點(diǎn)后 Private Sub 對(duì)象 _Enter() OnGetFoucs 獲取焦點(diǎn)時(shí) Private Sub 對(duì)象 _GotFocus() OnLostFoucs 失去焦點(diǎn)時(shí) Private Sub 對(duì)象 _LostFocus() OnChange 內(nèi)容更新時(shí) Private Sub 對(duì)象 _Change() VBA編程環(huán)境（ VBE） 進(jìn)入 VBE可以選擇以下幾種方式： （ 1）將某個(gè)對(duì)象的某個(gè)事件設(shè)為 [事件過(guò)程 ]，如圖，單擊右側(cè)的“ …” 。 初識(shí) VBA編 【 例 】 如果使用宏來(lái)響應(yīng)控件對(duì)象事件，比如同樣創(chuàng)建一個(gè)可退出 access程序的按鈕，可采用以下步驟： （ 1）創(chuàng)建一個(gè)宏，宏名為“退出系統(tǒng)”，操作選擇“ Quit”。 初識(shí) VBA編 窗體事件 事件 (event)：是發(fā)生在控件對(duì)象上且可以辨認(rèn)的動(dòng)作，如像單擊鼠標(biāo)或按下某鍵等，并且可以寫某些代碼來(lái)響應(yīng)此述動(dòng)作。 ②事件過(guò)程代碼 在 Private Sub Command7_Click()和 End Sub中間的幾行代碼為實(shí)現(xiàn)“退出”功能的 VBA代碼，實(shí)現(xiàn)退出的具體代碼為 ，其他代碼用于錯(cuò)誤處理。 Command7_Click()表示過(guò)程名稱，在 access中，過(guò)程名為：控件名稱 _事件名稱 ()，過(guò)程名后必須有一個(gè) ( )。Access程序設(shè)計(jì) 文科計(jì)算機(jī)小公共課規(guī)劃教材 總 目 錄 第 1章 數(shù)據(jù)庫(kù)基礎(chǔ) 第 2章 數(shù)據(jù)庫(kù)和表 第 3章 查詢 第 4章 窗體 第 5章 報(bào)表 第 6章 宏 第 7章 頁(yè) 第 8章 模塊與 VBA程序設(shè)計(jì) 第 9章 二級(jí)公共基礎(chǔ)知識(shí) 第 8章 模塊與 VBA程序設(shè)計(jì) 【 難重點(diǎn) 】 ? 類模塊及控件對(duì)象的代碼表示 ? 運(yùn)算符與表達(dá)式 ? 選擇結(jié)構(gòu)的程序設(shè)計(jì) ? 常用系統(tǒng)函數(shù) 知識(shí)網(wǎng)絡(luò)圖 【 例 】 用戶登錄窗體中“退出”按鈕 VBA代碼 (1)查看“退出”命令按鈕事件 (2)查看事件代碼 初識(shí) VBA編 單擊進(jìn)入代碼編寫 說(shuō)明 ①事件過(guò)程 Private Sub Command7_Click() ….. End Sub Sub表示定義一個(gè)過(guò)程。 End Sub表示該過(guò)程的結(jié)尾處。 Command7為“退出”按鈕的名稱， Click為單擊事件。這些代碼將在稍后詳細(xì)介紹其作用。 對(duì)事件的響應(yīng)一般有兩種方法，一種方法是使用宏來(lái)響應(yīng)控件對(duì)象事件，另一種方法是編寫 VBA代碼過(guò)程。 （ 2）創(chuàng)建一個(gè)窗體。 （ 2）在窗體或報(bào)表的 【 設(shè)計(jì)視圖 】 中單擊工具欄上的 【 代碼 】 按鈕。 （ 4）選擇數(shù)據(jù)庫(kù)模塊對(duì)象，單擊數(shù)據(jù)庫(kù)窗口中 【 新建 】或者雙擊其中一個(gè)已經(jīng)存在的模塊對(duì)象 VBE 模塊 ? 模塊是由 VBA語(yǔ)言編寫的程序的集合。 圖 “轉(zhuǎn)換宏”對(duì)話框 標(biāo)準(zhǔn)模塊名 創(chuàng)建模塊 類模塊： 對(duì)某個(gè)控件編寫事件代碼時(shí)就自動(dòng)建立了 標(biāo)準(zhǔn)模塊 ： 在數(shù)據(jù)庫(kù)窗口或 VBE窗口，執(zhí)行菜單 【 插入 】|【 模塊 】 命令。 VBA編程基礎(chǔ) 注釋 格式 1： rem 注釋內(nèi)容 格式 2： 39。 ”為英文符號(hào)單引號(hào) 連寫 如果要在同一行上書寫多條語(yǔ)句，需要使用“ :”號(hào)分隔不同的語(yǔ)句。 數(shù)據(jù)類型 數(shù)據(jù)類型 存儲(chǔ)空間 說(shuō)明 Boolean（布爾） 2字節(jié) True或 false Byte（字節(jié)） 1字節(jié) 用于存儲(chǔ)二進(jìn)制數(shù)，范圍： 0~255（ 0~28） Integer（整型） 2字節(jié) 整數(shù)，最高位是符號(hào)位，類型符“ %”，如 10% Long（長(zhǎng)整型） 4字節(jié) 整數(shù)，最高位是符號(hào)位，類型符“ amp。 123456amp。 如： Dim userid as string Dim x as integer , y as integer Dim i 說(shuō)明：第二條語(yǔ)句同時(shí)聲明了兩個(gè)變量； i為變體類型，可以儲(chǔ)存任何類型數(shù)據(jù)。 格式： [Public | Private] Const 常量名 [as 數(shù)據(jù)類型 ] = 值 說(shuō)明： public只能用在標(biāo)準(zhǔn)模塊中，表示該常量可以在所有模塊中使用。 如： Public Const fine = 說(shuō)明：在標(biāo)準(zhǔn)模塊中聲明后，所有模塊中都可以使用 pi常量。 舉例 Dim a(2 to 5) as integer 說(shuō)明：共有數(shù)組 a(2)、 a(3)、 a(4)、 a(5)四個(gè)元素 Dim b(5) as integer 說(shuō)明：共有數(shù)組 b(0)、 b(1)、 b(2)、 b(3)、 b(4)、 b(5)六個(gè)元素 賦值 a(2)=10 說(shuō)明：將 10賦值給 a(2)元素 二維數(shù)組 二維數(shù)組由行列兩維構(gòu)成的，若將每行看成一個(gè)一維數(shù)組，二維數(shù)組可看成多個(gè)一維數(shù)組構(gòu)成。 舉例 Dim Matrix(3, 4) As Integer （ 2）賦值 Matrix(0,4)=20 運(yùn)算符和表達(dá)式 （ 1）算術(shù)運(yùn)算：算術(shù)運(yùn)算符有： ^、 *、 /、 \、 mod、 +、 、 表 83 數(shù)字運(yùn)算符和字符運(yùn)算符 運(yùn)算符 功能 例子 結(jié)果 + 兩個(gè)數(shù)相加 5+10 15 兩個(gè)數(shù)相減 105 5 * 兩個(gè)數(shù)相乘 3*5 15 / 用一個(gè)數(shù)除以另一個(gè)數(shù) 10/4 \ 用一個(gè)整數(shù)數(shù)除以另一個(gè)數(shù) 10\4 2 ^ 指數(shù)運(yùn)算 2^3 8 mod 對(duì)兩個(gè)數(shù)作除法并且只返回余數(shù) 21 mod 2 1 amp。2021 北京 2021 運(yùn)算符和表達(dá)式 （ 2）關(guān)系運(yùn)算 常用的比較操作符有：大于 、小于 、大于等于 =、小于等于 = 或不等于 ， 表 84 比較運(yùn)算符 運(yùn)算符 功能 例子 結(jié)果 小于 12 32 True false = 小于等于 2=2 3=2 True false = 等于 2=2 3=2 true false = 大于等于 3=2 2=3 true false 大于 32 23 true false 不