第8章_ACCESS2003實例教程(吳曉雨)

1、電子商務(wù)專業(yè)Access 2003 教程1，模塊的基本概念2，VBA程序設(shè)計基礎(chǔ)3，VBA函數(shù)的使用4，模塊的建立與使用5，過程與參數(shù)傳遞本章要點：本章要點：Access 2003 教程 8.1 8.1 認(rèn)識模塊對象認(rèn)識模塊對象 模塊是由聲明、語句和過程組成的集合，以VBA（Visual Basic for Application）語言編寫，作為一個已命名的單元存儲在一起。 模塊有2種類型：類模塊和標(biāo)準(zhǔn)模塊。使用模塊可以在實際開發(fā)中實現(xiàn)較為復(fù)雜的功能。Access 2003 教程（1）模塊 模塊由一個或多個過程組成，每個過程實現(xiàn)一個或幾個功能。模塊的執(zhí)行通過特定事件激發(fā)相應(yīng)的事件過程實現(xiàn)。（2

2、）事件過程 事件過程是一組代碼，用于響應(yīng)窗體事件或報表事件。（3）類模塊 類模塊是包含代碼和數(shù)據(jù)的集合，可以看作是沒有物理表示的控件，總是與某一特定的窗體或報表相關(guān)聯(lián)。窗體模塊和報表模塊都屬于類模塊。（4）標(biāo)準(zhǔn)模塊 標(biāo)準(zhǔn)模塊是代碼的集合，包含的過程不與任何其他對象相關(guān)聯(lián)，是數(shù)據(jù)庫對象使用的公共過程，保存在數(shù)據(jù)庫窗口中。8.1.1 模塊的基本概念 Access 2003 教程 8.1.2 啟動Access的編程界面 Access的編程界面稱為VBE（Visual Basic Editor），是Microsoft Office所有組件公用的程序編輯系統(tǒng)。方法1：在窗體或報表設(shè)計視圖中選控件單擊標(biāo)準(zhǔn)

3、工具欄的“生成器”按鈕在“選擇生成器”對話框中選擇“代碼生成器”。方法2：右擊窗體或報表設(shè)計視圖中控件快捷菜單中選“事件生成器”“選擇生成器”對話框中選擇代碼生成器”。 Access 2003 教程8.1.3 VBE窗口Access 2003 教程 編寫模塊對象的代碼在代碼窗口進(jìn)行。（1）窗口頂部有2個組合框，左邊對象框顯示所有對象名稱，右邊過程框顯示當(dāng)前對象能識別的所有事件名稱。選定一個對象，再選定一個事件，系統(tǒng)會自動生成相應(yīng)事件過程的起始行與結(jié)束行，只須在兩行中間添加過程代碼即可。 “通用” 過程可以被所有控件調(diào)用。某控件的過程只在關(guān)聯(lián)事件中有效。（2）窗口中央代碼區(qū)有聲明區(qū)和過程區(qū)，聲明

4、區(qū)中聲明模塊使用的變量，過程區(qū)顯示一個或多個過程，之間用一條灰線分隔。（3）窗口底部有2個按鈕，單擊“過程視圖”按鈕，只顯示當(dāng)前過程。單擊右邊“完整的模塊視圖”按鈕，窗口顯示全部過程。Access 2003 教程8.1.4 標(biāo)準(zhǔn)工具欄 例:一個類模塊 Access 2003 教程例:一個標(biāo)準(zhǔn)模塊 Access 2003 教程 8.1.7 使用提示與幫助 在代碼窗口輸入代碼時，系統(tǒng)會自動顯示提示信息，包括關(guān)鍵字列表、屬性列表、過程參數(shù)列表等，在列表中選取一項后雙擊鼠標(biāo)，所選值會自動添加到當(dāng)前光標(biāo)處。 Access 2003 教程8.2 VBA程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)8.2.1 面向?qū)ο蟮某绦蛟O(shè)計

5、的基本概念 （1）對象 在自然界中，一個對象就是一個實體，如一輛汽車就是一個對象。在面向?qū)ο蟮某绦蛟O(shè)計中，對象代表應(yīng)用程序中的元素，如表、窗體、按鈕等。（2）屬性 屬性是對象的特征。如汽車有顏色和型號屬性，按鈕有標(biāo)題和名稱屬性。對象的類別不同，屬性會有所不同。同類別對象的不同實例，屬性也有差異。例如，同是命令按鈕，名稱屬性不允許相同。 Access 2003 教程（3）事件 事件是對象能夠識別的動作。如按鈕可以識別單擊事件、雙擊事件等。在類模塊每一個過程的開始行，都顯示對象名和事件名。如：Private Sub c1_Click()。（4）方法 方法是對象能夠執(zhí)行的動作，決定了對象能完成什么事

6、。不同對象有不同的方法。如close方法能關(guān)閉一個窗體。（5）集合 集合由許多與對象有關(guān)的鍵和值組成，其中的鍵和值是配對的。如一本書是一個對象，書的頁碼是鍵，頁碼對應(yīng)的內(nèi)容是值。所有配對的頁碼和內(nèi)容組成了書對象的集合。Access 2003 教程（6）過程 過程是由代碼組成的單元，包含一系列計算語句和執(zhí)行語句。每一個過程都有名字，過程名不能與所在模塊的模塊名相同。過程有兩種類型：sub過程（無返回值），function過程（有返回值）。 例：動態(tài)設(shè)置控件屬性 （1）在窗體中建1個文本框名稱為t1。（2）在窗體中建1個標(biāo)簽名稱為b1標(biāo)題為“新年好！”。（3）在窗體中建3個命令按鈕名稱分別為c1、

7、c2、c3標(biāo)題 分別為“紅色”、“綠色”、“藍(lán)色”。Access 2003 教程（4）設(shè)置各按鈕的前景色，在屬性窗口可查看顏色值。（5）c1的click事件代碼： t1.BackColor = 255 b1.ForeColor = 255Access 2003 教程（6）c2的click事件代碼： t1.BackColor = 33792 b1.ForeColor = 33792（7）c3的click事件代碼： t1.BackColor = 16711680 b1.ForeColor = 16711680 執(zhí)行結(jié)果：Access 2003 教程 Docmd是Access的一個特殊對象，用來調(diào)用

8、內(nèi)置方法，在程序中實現(xiàn)對Access的操作，諸如打開窗口、關(guān)閉窗體、打開報表、關(guān)閉報表等。 DoCmd 對象的大多數(shù)方法都有參數(shù)，有些參數(shù)是必需的，有些則是可選的。若省略可選參數(shù)，參數(shù)將采用默認(rèn)值。 8.2.2 Docmd對象 （1）用DoCmd 對象打開窗體 格式：DoCmd.OpenForm 窗體名 功能：用默認(rèn)形式打開指定窗體。 例如：DoCmd.OpenForm 文本框練習(xí)Access 2003 教程（2）用DoCmd 對象關(guān)閉窗體 格式1：DoCmd.Close acForm, 窗體名 功能：關(guān)閉指定窗體。 例如：DoCmd.Close acForm, 文本框練習(xí) 格式2：DoCmd

9、.Close 功能：關(guān)閉當(dāng)前窗體。（3）用DoCmd 對象打開報表 格式：DoCmd.OpenReport 報表名,acViewPreview 功能：用預(yù)覽形式打開指定報表。 例如：DoCmd.OpenReport 工資報表,acViewPreviewAccess 2003 教程（4）用DoCmd 對象關(guān)閉報表 格式1：DoCmd.Close acReport, 報表名 功能：關(guān)閉指定報表。 例如：DoCmd.Close acReport, 工資報表 格式2：DoCmd.Close 功能：關(guān)閉當(dāng)前報表。（5）用DoCmd 對象運行宏 格式：DoCmd.RunMacro 宏名 功能：運行指定宏。

10、 例如：DoCmd.RunMacro 宏1（6）用DoCmd 對象退出Access。 格式：DoCmd.Quit 功能：關(guān)閉所有Access對象和Access本身。Access 2003 教程（1）在窗體中建立5個按鈕名稱分別為c1、c2、c3、c4、c5標(biāo)題分別為“打開文本框練習(xí)窗體”、“關(guān)閉文本框練習(xí)窗體”、“打開工資報表”、“關(guān)閉工資報表”、“退出Access” 。 例：使用DoCmd對象Access 2003 教程（2）c1代碼：DoCmd.OpenForm 文本框練習(xí)（3）c2代碼：DoCmd.Close acForm, 文本框練習(xí)（4）c3代碼：DoCmd.OpenReport 工

11、資報表,acViewPreview（5）c4代碼：DoCmd.Close acReport, 工資報表（6）c5代碼：DoCmd.QuitAccess 2003 教程（7）轉(zhuǎn)到窗體視圖單擊不同按鈕執(zhí)行不同操作。 Access 2003 教程8.2.3 數(shù)據(jù)類型與數(shù)據(jù)類型轉(zhuǎn)換 VBA類型符號字段類型取值范圍字節(jié)數(shù)Byte字節(jié)0255之間的整數(shù)1Integer%整型-3276832767之間的整數(shù)2Long&長整型-21474836482147483647之間的整數(shù)4Single!單精度負(fù)數(shù)：-3.402823E38-1.401298E-45正數(shù)：1.401298E-453.402823E

12、384Double#雙精度負(fù)數(shù)：-1.79769313486232E308 -4.94065645841247E-324正數(shù)：4.94065645841247E-324 1.79769313486232E3088Currency貨幣-922337203685477.5808922337203685477.58078String$文本065535個字符Boolean是/否true或false1Date日期/時間January 1,100到December 31,99998Variant無（1）標(biāo)準(zhǔn)數(shù)據(jù)類型Access 2003 教程（2）數(shù)據(jù)類型轉(zhuǎn)換函數(shù)函數(shù)轉(zhuǎn)換后類型說明CByte(x)Byte

13、x取值范圍同Byte，小數(shù)部分四舍五入，超出范圍顯示“溢出”CInt(x)Integerx取值范圍同Integer，小數(shù)部分四舍五入CLng(x)Longx取值范圍同Long，小數(shù)部分四舍五入CSng(x)Singlex取值范圍同SingleCDblDoublex取值范圍同DoubleCCurCurrencyx取值范圍同CurrencyCBool(x)Booleanx取值范圍是任何有效數(shù)字或字串CDate(x)Datex取值范圍是任何有效日期表達(dá)式CStr(x)String無CVar(x)Variantx如果是數(shù)值范圍同Double，否則，與String相同Access 2003 教程 例：在

14、立即窗口中計算函數(shù)值（1）在VBE界面“視圖”菜單“立即窗口”，顯示立即窗口。（2）輸入表達(dá)式x=“true”回車輸入表達(dá)式y(tǒng)=“false”回車輸入表達(dá)式 ?x+y回車，顯示結(jié)果為：truefalse。（3）輸入表達(dá)式 ?cbool(x)+cbool(y)回車，顯示結(jié)果為：-1。說明：每行寫完后必須回車才能生效。問號與print語句相同，在立 即窗口顯示計算結(jié)果。Access 2003 教程（3）用戶定義的數(shù)據(jù)類型定義格式：type 數(shù)據(jù)類型名 域名1 as 數(shù)據(jù)類型 域名2 as 數(shù)據(jù)類型 end type例如：type student xh as string*6 xm as strin

15、g xb as string*1 nl as integer end typeAccess 2003 教程8.2.4 變量 變量是指程序運行時值會發(fā)生變化的數(shù)據(jù)。系統(tǒng)會按照變量的數(shù)據(jù)類型在內(nèi)存中為變量分配一定數(shù)量的存儲單元，程序中用變量名調(diào)用存儲的數(shù)據(jù)。所以，變量實際上是一個符號地址，代表了命名的存儲位置。（1）變量命名規(guī)則 由字母、數(shù)字、下劃線組成，用英文字母開頭。 不能包含空格以及除下劃線之外的標(biāo)點符號。 不能用VBA的關(guān)鍵字（如：dim）和保留字（如：str）。 字符個數(shù)不得多于255個。 變量名不區(qū)分大小寫。 Access 2003 教程格式： dim 變量名 as 類型說明： 如果不

16、用as定義類型，則變量為變體類型。變體類型變量 比其他類型變量占用更多的內(nèi)存資源。 可以用dim同時定義多個變量，變量之間用西文逗號分隔， 每一個變量都應(yīng)該用as聲明類型。 例如：dim a1 as integer，a2 as boolean 用dim定義的變量是局部變量，會按照數(shù)據(jù)類型自動設(shè)置默 認(rèn)值。 （2）用dim語句聲明變量 Access 2003 教程（3）用類型說明符聲明變量類型在變量名后加VBA的類型說明符，隱式的聲明了變量類型。例如：b1%=125 變量b1是整型，值是125。既沒有顯式聲明，也沒有加類型說明符，隱式聲明了變體型變量。例如：c1=125 變量c1是變體型，值是1

17、25。 Access 2003 教程（4）一個特殊的模塊變量 本地窗口打開時，自動生成一個名為“Me”的特殊模塊變量。對于類模塊，定義為Me。Me是對象的引用，引用當(dāng)前模塊中當(dāng)前類的實例。 Me變量不需要專門定義，直接使用即可。例如，用代碼定義“學(xué)生信息”窗體中“Lab”標(biāo)簽的標(biāo)題屬性，以下兩種方法效果是一樣的：標(biāo)準(zhǔn)方法：Forms! 學(xué)生信息!Lab.Caption=學(xué)生信息瀏覽常用方法：Me!Lab.Caption=學(xué)生信息瀏覽Access 2003 教程8.2.5 變量的作用域和生命周期 1變量的作用域 變量的作用域是變量在程序中起作用的范圍。分3個層次，從低到高依次為：局部、模塊、全局

18、。（1）局部變量 又稱為本地變量，僅在聲明變量的過程中有效。在過程和函數(shù)內(nèi)部用dim聲明或不用聲明接使用的變量，都是局部變量。局部變量在本地?fù)碛凶罡呒?，?dāng)存在同名的模塊級變量時，模塊級變量被屏蔽。（2）模塊變量 模塊變量在所聲明模塊的所有函數(shù)和所有過程都有效，變量定義在模塊所有過程之外的起始位置，通常是窗體變量或標(biāo)準(zhǔn)模塊變量。（3）全局變量 全局變量又稱為公共變量，定義在標(biāo)準(zhǔn)模塊所有過程之外，在所有模塊的所有過程和函數(shù)中都有效。 定義格式：public 變量名 as 數(shù)據(jù)類型Access 2003 教程 變量的生命周期是指變量從首次出現(xiàn)到變量消失的代碼執(zhí)行時間。變量首次出現(xiàn)是指聲明變量并為其分

19、配存儲空間，變量消失是指變量所在的程序執(zhí)行完畢。 局部變量的生命周期從過程或函數(shù)被調(diào)用到運行結(jié)束。全局變量的生命周期從聲明到Access應(yīng)用程序結(jié)束。 過程中用dim定義的變量，每次調(diào)用過程時都重新開始，過程結(jié)束時立即消失。用static代替dim定義變量，可以在過程實例間保留局部變量的值。用static定義的變量稱為靜態(tài)變量，作用范圍與dim相同，在整個模塊執(zhí)行時一直存在。2變量的生命周期Access 2003 教程例：用static和dim定義局部變量 （1）在窗體中建立2個文本框分別命名為t1和t2附加標(biāo)簽的標(biāo)題分別為“靜態(tài)變量”和“局部變量”。（2）在窗體中建立命令按鈕名稱為c1標(biāo)題為

20、“計算”。 Access 2003 教程（3）c1的click代碼： Static x As Integer Dim y As Integer x = x + 1：y = y + 1 t1 = x：t2 = y（4）執(zhí)行時不斷單擊命令按鈕，靜態(tài)變量文本框中的值每次增加1，而局部變量文本框中的值總是1。 Access 2003 教程8.2.6 常量 常量是在程序運行過程中其值不能改變的量，如數(shù)字常量123、字符串常量abc、日期常量#2008-8-8# 等。這樣的常量是直接常量，也稱為字面常量。 系統(tǒng)還提供3種常量：符號常量、系統(tǒng)常量、內(nèi)部常量。Access 2003 教程1符號常量 用符號常量

21、表示在編程中反復(fù)使用的相同值。符號常量名一般用大寫字母，以便與變量名區(qū)分。定義格式：Const 符號常量名=常量值說明：（1）如果符號常量定義在模塊聲明區(qū)，所有模塊的過程都能使用該變量，通常在前面加上Global或Public。 如：Public Const PI=3.14（2）如果符號常量定義在事件的過程中，該符號常量只在本過程中可用。（3）符號常量定義時不用指明數(shù)據(jù)類型。 Access 2003 教程2系統(tǒng)常量 系統(tǒng)常量是Access啟動時就建立的常量，可以在所有程序編碼時直接使用。 系統(tǒng)常量有：true、false、yes、no、on、off、null。3內(nèi)部常量 內(nèi)部常量又稱為固有常量

22、，是VBA提供的一些預(yù)定義的內(nèi)部符號常量，主要用來作為DoCmd對象的參數(shù)。 內(nèi)部常量用前兩個字母指明該常量的對象庫：以ac開頭的是Access的庫常量，以vb開頭的是VBA的庫常量，以db開頭的是DAO的庫常量，以ad開頭的ADO的庫常量。 這些內(nèi)部常量名不能作為用戶自定義的變量名或符號常量名。Access 2003 教程1數(shù)組的概念 VBA中的數(shù)組是一組具有相同數(shù)據(jù)類型、同一名字、不同下標(biāo)的變量集合。數(shù)組變量由變量名和數(shù)據(jù)下標(biāo)組成，數(shù)組下標(biāo)用圓括號括起來。說明：（1）數(shù)組要先定義后使用，VBA不允許隱式聲明數(shù)組。（2）同一過程中數(shù)組名不能與其他變量重名。 8.2.7 數(shù)組Access 20

23、03 教程2聲明一維數(shù)組格式1：dim 數(shù)組名(下標(biāo)上限) as 數(shù)據(jù)類型格式2：dim 數(shù)組名(下標(biāo)下限 to 下標(biāo)上限) as 數(shù)據(jù)類型例如：dim a(6) as integer功能：聲明了有7個元素的數(shù)組a，元素下標(biāo)從0到6，默認(rèn)值均為0。例如：dim b(1 to 6) as string功能：聲明了有6個元素的數(shù)組b，下標(biāo)從1到6，默認(rèn)值均為空串。說明：（1）如果不定義數(shù)組下標(biāo)的下限，默認(rèn)下標(biāo)下限為0。（2）數(shù)組定義中的參數(shù)必須是常數(shù)。（3）如果使用as語句定義數(shù)組類型，同一數(shù)組只能存放相同類型數(shù)據(jù)。Access 2003 教程3聲明多維數(shù)組格式：dim 數(shù)組名(下標(biāo)上限1，下標(biāo)上

24、限2，) as 數(shù)據(jù)類型例如：dim c(3，4) as integer功能：聲明有20個元素的數(shù)組c，行下標(biāo)從0到3，列下標(biāo)從0到4。例如：dim d(1 to 3，2 to 4) as integer功能：聲明有9個元素的數(shù)組d，行下標(biāo)從1到3，列下標(biāo)從2到4。4使用數(shù)組聲明數(shù)組后，每個數(shù)組元素都被當(dāng)作單個變量使用。一維數(shù)組元素的引用格式：數(shù)組名（下標(biāo)）二維數(shù)組元素的引用格式：數(shù)組名（下標(biāo)1，下標(biāo)2）Access 2003 教程例：使用符號常量和數(shù)組例：使用符號常量和數(shù)組 （1）在窗體建文本框名稱為t1。（2）在窗體建命令按鈕名稱為c1標(biāo)題為“確定”。（3） c1的代碼：const AA

25、= “歡迎你!” 定義符號常量 dim b(1) As String 定義數(shù)組 b(0) = AA b(1) = t1 MsgBox b(0) & Chr(13) & Chr(13) & b(1), vbInformation, 消息框說明：Chr(13)生成一個回車，用單引號開始的字符串為注釋語句。Access 2003 教程（4）轉(zhuǎn)到窗體視圖在文本框中輸入“張三”單擊“確定”按鈕。 Access 2003 教程8.2.8 用戶定義數(shù)據(jù)類型 用戶定義數(shù)據(jù)類型包含幾個分量，先用dim、public或static將變量聲明為用戶定義數(shù)據(jù)類型，然后給每個分量賦值。給分量賦值

26、的格式為：變量名.分量名=值。 給用戶定義數(shù)據(jù)類型的變量賦值，就是給變量的每個分量賦值。例如，用戶定義數(shù)據(jù)類型為student，使用該變量代碼如下： dim stu as student stu.xh=080101 stu.xm=李四 stu.xb=女 stu.nl=19Access 2003 教程 用with語句簡化變量的賦值，每個分量從點開始寫，省略變量名。如： dim stu as student with stu .xh=080101 .xm=李四 .xb=女 .nl=19 end withAccess 2003 教程8.2.9 VBA運算符VBA的運算符有4種：算術(shù)運算符、關(guān)系運算符

27、、邏輯運算符、連接運算符。1算術(shù)運算符：乘冪（）、乘法（*）、除法（/）、 整數(shù)除法（）、求模（mod）、加法（+）、減法（-）。2關(guān)系運算符：相等=、不相等、大于、大于等于=、小于、 小于等于算術(shù)運算符連接運算符關(guān)系運算符邏輯運算符。優(yōu)先級相同時，運算順序從左到右。5對象運算符對象運算符用來指示隨后出現(xiàn)的項目類型，有嘆號運算符（!）和點運算符（.）。（1）嘆號運算符 !，引用一個窗體、報表或控件。 例如：forms!學(xué)生信息窗體!t1（2）點運算符 . ，引用對象的屬性。 例如：Me!t1.forecolor=255Access 2003 教程8.3 VBA內(nèi)置函數(shù)內(nèi)置函數(shù) 1算術(shù)函數(shù)（1）

28、abs(x)，返回x的絕對值。（2）int(x)，返回x的整數(shù)部分，x0時，返回值小于等于x。 fix(x)，返回x的整數(shù)部分，x0，每次產(chǎn)生不同隨機數(shù)；若x=0，產(chǎn)生最近生成的隨 機數(shù)；若x0時可直接寫 rnd，省略括號和參數(shù)。8.3.1 VBA常用函數(shù)第3章中介紹過的函數(shù)在此不作詳細(xì)介紹。 Access 2003 教程例如：int (100*rnd)，產(chǎn)生099之間的隨機整數(shù)。int (101*rnd)，產(chǎn)生0100之間的隨機整數(shù)。int (100*rnd+1)，產(chǎn)生1100之間的隨機整數(shù)。int (100*rnd+100)，產(chǎn)生100199之間的隨機整數(shù)。int (101*rnd+100

29、)，產(chǎn)生100200之間的隨機整數(shù)。（5）round(x,n)，n是小數(shù)位數(shù)， 對x的小數(shù)做四舍五入，返回有n位小數(shù)的x值。例如：round(12.735,2)，返回12.74。Access 2003 教程2字符串函數(shù)（1）len(x)，返回x的長度，即字符個數(shù)。要求x為字符串類型。（2）space(n)，返回由n個空格組成的字符串，n為數(shù)字。（3）ucase(x)，將x中的小寫字母轉(zhuǎn)大寫。 lcase(x)，將x中的大寫字母轉(zhuǎn)小寫。（4）trim(x)，去掉x的首部和尾部空格。 ltrim(x)，去掉x的首部空格。 rtrim(x)，去掉x的尾部空格。（5）instr(起始位置，字串1，字串

30、2，比較方式)，返回字串2在字串1中 最早出現(xiàn)的位置，返回值是一個整數(shù)。Access 2003 教程 3日期時間函數(shù)（1）weekday(x,n)，返回17的整數(shù)，表示星期幾。 說明：n為可選項，默認(rèn)值1。當(dāng)n取值為1時，星期天返回1，星期一返回2，依次類推。若n取值為2，則星期一返回1，星期二返回2，星期天返回7。（2）hour(x)，返回x的小時數(shù)。（3）minute(x)，返回x的分鐘數(shù)。（4）second(x)，返回x的秒數(shù)。Access 2003 教程4類型轉(zhuǎn)換函數(shù)（1）asc(x)，返回首字符的ASCII碼，其中，x是字符串或字符串變量名。說明：ASCII碼是美國標(biāo)準(zhǔn)信息轉(zhuǎn)換碼，共

31、128個字符，對應(yīng)十進(jìn)制數(shù)0127。（2）chr(n)，將數(shù)字n轉(zhuǎn)換成相應(yīng)字符，n的取值范圍0127。（3）str(n)，將數(shù)字轉(zhuǎn)換為字符串，n是數(shù)字或數(shù)字表達(dá)式。說明：當(dāng)數(shù)字轉(zhuǎn)換為字符串時，總會在前頭留一個符號位，如果是正數(shù)，符號位顯示空格。（4）val(x)，將數(shù)字型字符串轉(zhuǎn)換為數(shù)字，x是數(shù)字型字符串。說明：轉(zhuǎn)換時自動將空格、制表符、換行符去掉，當(dāng)遇到第一個不能識別為數(shù)字的字符時即停止讀入。 Access 2003 教程8.3.2 輸入輸出函數(shù)1輸出函數(shù)MsgBox 格式：msgbox（顯示信息，按鈕數(shù)目+圖標(biāo)類型，標(biāo)題欄字符串）功是：在對話框中顯示消息，等待用戶單擊按鈕，返回一個整數(shù)，該

32、值代表用戶單擊了哪個按鈕。返回值單擊的按鈕1確定2取消3放棄4重試5忽略6是7否Access 2003 教程2輸入函數(shù)inputbox格式：inputbox（提示信息，標(biāo)題欄字符串，默認(rèn)值）功能：提示用戶輸入一個字符串或數(shù)值。說明：（1）“提示信息”是必選項，是一個字符串，顯示在輸入框中。（2）“標(biāo)題欄字符串”是可選項，省略此項，標(biāo)題欄將顯示應(yīng)用程序名。（3）默認(rèn)值是可選項，是字串或數(shù)字，省略此項，系統(tǒng)會自動匹配數(shù)據(jù)類型。（4）函數(shù)返回值是在輸入框中輸入的數(shù)字或字符串。Access 2003 教程8.3.3 計算外部數(shù)據(jù)源數(shù)據(jù)的函數(shù)1Davg函數(shù)格式：Davg（字段名，表名，條件表達(dá)式）功能：

33、對指定字段求平均值。說明：若省略條件表達(dá)式，對全體字段求平均值。例如：Davg（獎金，工資，基本工資=2000）2Dsum函數(shù)格式：Dsum（字段名，表名，條件表達(dá)式）功能：對指定字段求和。說明：若省略條件表達(dá)式，對全體字段求和。例如：Dsum（獎金，工資） 除了在報表中介紹過的Dlookup函數(shù),還有以下函數(shù): Access 2003 教程 3Dcount函數(shù)格式：Dcount（字段名，表名，條件表達(dá)式）功能：對指定字段統(tǒng)計個數(shù)。說明：若省略條件表達(dá)式，對全體字段統(tǒng)計個數(shù)。例如：Dcount（教師編號，教師，性別=女 ）Access 2003 教程例:統(tǒng)計外部表數(shù)據(jù) 外部數(shù)據(jù):(1)在窗體建

34、3個文本框名稱為t1、t2、t3附加標(biāo)簽的標(biāo)題分別為“人數(shù)總計”、“工資合計”、“平均獎金”。(2)在窗體建立命令按鈕標(biāo)題為“計算”名稱為c1。Access 2003 教程（3）c1的click事件代碼： t1 = DCount(教師編號, 工資) t2 = DSum(基本工資, 工資) t3 = DAvg(獎金, 工資)(4) 轉(zhuǎn)到窗體視圖單擊命令按鈕各數(shù)據(jù)顯示在文本框中。 Access 2003 教程8.3.4 處理空值的函數(shù) Nz Nz函數(shù)可以將Null值轉(zhuǎn)換為數(shù)字0、空字串或自定義的返回值。 格式：Nz（變量/表達(dá)式/字段屬性名，指定值） 說明：指定值是可選項。若給出指定值，Nz函數(shù)返

35、回指定值。若省略指定值，當(dāng)類型為數(shù)值型且值為Null，Nz函數(shù)返回數(shù)字0。當(dāng)類型為字符型且值為Null，Nz函數(shù)返回空字串。例:如果文本框為空，顯示提示信息。 (1)在窗體建文本框名稱為t1附加標(biāo)簽標(biāo)題為“輸入數(shù)值”。(2)在窗體建標(biāo)簽名稱為b1標(biāo)題為“輸入的內(nèi)容為：”(3)在窗體建命令按鈕標(biāo)題為“驗證”名稱為c1。Access 2003 教程（4）c1的click事件代碼: Dim aa As String aa = Nz(t1.Value, 文本框不能為空!) MsgBox aa b1.Caption = 輸入內(nèi)容為: & Nz(t1.Value)（5）轉(zhuǎn)到窗體視圖，文本框為空時單

36、擊命令按鈕，顯示消息。 Access 2003 教程（6）在文本框中輸入字串“abc123”，單擊命令按鈕，顯示結(jié)果 Access 2003 教程8.4 VBA程序結(jié)構(gòu)程序結(jié)構(gòu) VBA程序是語句的集合，語句是一條能夠完成某項操作的命令，可以包含關(guān)鍵字、運算符、變量、常數(shù)和表達(dá)式，程序用來告訴計算機完成指定任務(wù)。 8.4.1 程序構(gòu)成1語句分類 語句按功能分為兩大類：聲明語句和執(zhí)行語句。 聲明語句用來定義變量、常量、過程，并指定數(shù)據(jù)類型。 執(zhí)行語句進(jìn)行賦值操作、調(diào)用過程、實現(xiàn)各種流程控制。Access 2003 教程2程序的三種結(jié)構(gòu)程序有三種基本結(jié)構(gòu)：順序結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)。順序結(jié)構(gòu)，按語

37、句排列順序依次執(zhí)行。選擇結(jié)構(gòu)，又稱為條件結(jié)構(gòu)，根據(jù)不同條件選擇執(zhí)行不同操作。循環(huán)結(jié)構(gòu)，重復(fù)執(zhí)行某段程序代碼。3程序書寫規(guī)則（1）一條語句一行寫不下時，用續(xù)行符“_”作為第一行結(jié)尾， 將剩余語句寫在下一行。（2）語句較短時可以幾條語句寫在一行，語句之間用冒號分隔。（3）如果一行語句輸入完成后顯示為紅色，表示該語句存在錯誤。（4）盡量使用提示信息。（5）代碼不區(qū)分大小寫。Access 2003 教程4注釋語句 注釋語句是非執(zhí)行語句，用來提高程序的可讀性，不被解釋和編譯。注釋語句顯示為綠色。 格式1：rem 注釋內(nèi)容 說明：用rem引導(dǎo)的注釋語句，如果放在其他語句后面，之間用冒號分隔。 格式2： 注

38、釋內(nèi)容 說明：用單引號引導(dǎo)的注釋語句，放在其他語句后面時無需使用冒號分隔。例：dim a1 as integer,a2 as integer : rem 定義兩個整型變量 a1=12 給兩個變量賦值 a2=34 a1=a1+a2 將兩個變量的和賦給變量a1 rem 用消息框顯示結(jié)果 msgbox a1+a2= & a1 , vbInformation, 消息框Access 2003 教程5聲明語句 聲明語句是用來定義常量、變量、數(shù)組和過程。定義這些的同時，也定義了初始值、生命周期、作用域等內(nèi)容。 初始值由數(shù)據(jù)類型決定， 如：integer，string。 生命周期由定義的位置決定， 如

39、：局部、模塊、全局。 作用域由定義時所使用的關(guān)鍵字決定。 如：dim、public。 Access 2003 教程6賦值語句賦值語句用來為變量指定一個值。格式：變量名=值或表達(dá)式說明：（1）格式中的等號（=）稱為賦值號，與數(shù)學(xué)中等號意義不同。如表達(dá)式a=a+1在數(shù)學(xué)中不能用，在賦值語句中常用。（2）賦值號左邊只能是變量名，不能是常量和表達(dá)式。（3）賦值語句有計算和賦值雙重功能，將賦值號右邊的計算結(jié)果賦給賦值號左邊的變量。（4）賦值號兩邊要類型匹配。例如，表達(dá)式a%=abc會返回錯誤提示，因為該操作把字符串賦給整型變量，類型不匹配。Access 2003 教程8.4.2 條件語句1if end

40、if 語句格式：if 條件 then 語句序列 end if功能：若條件成立，執(zhí)行語句序列，否則，什么也不做。說明： 如果語句序列只有一條語句，可簡寫在一行，并省略end if語句。例：dim a as integer,b as integer a=12：b=8 if ab then a=b msgbox 最大值為： & a, vbInformation, 消息框Access 2003 教程2if else end if 語句格式：if 條件 then 語句序列1 else 語句序列2 end if 功能：若條件成立，執(zhí)行語句序列1，否則，執(zhí)行語句序列2。例：dim a as inte

41、ger, b as integer, c as integer a=12：b=8 if a10。不允許復(fù)雜條件式。Access 2003 教程例：select case練習(xí)（1）建立文本框名稱為t1建立命令按鈕名稱分別為c1。（2）c1的click事件代碼： Dim aa As String, bb As String aa = t1 Select Case aa Case a To z: bb = 英文字母 Case 0 To 9: bb = 數(shù)字 Case !, ?, :, ., , ;: bb = 標(biāo)點符號 Case Else: bb = 特殊字符 End Select MsgBox b

42、b Access 2003 教程（3）轉(zhuǎn)到窗體視圖文本框中輸入字母單擊按鈕顯示消息框 。 Access 2003 教程8.4.4 選擇函數(shù)與計時器事件1iif函數(shù)格式：iif(條件，表達(dá)式1，表達(dá)式2)功能：如果條件為真，函數(shù)值為表達(dá)式1的值，否則，函數(shù)值為表達(dá)式2的值。例：y=iif(ab，a大，b大)2switch函數(shù)格式：switch(條件1，表達(dá)式1，條件2，表達(dá)式，條件n，表達(dá)式n)功能：從左到右依次判斷，遇到第一個條件為真時返回對應(yīng)表達(dá)式的值。說明：條件與表達(dá)式成對，當(dāng)多個條件為真時，只取第一個條件的對應(yīng)表達(dá)式。例：y=switch(x0，1)Access 2003 教程3choo

43、se函數(shù)格式：choose(索引式，值1，值2，值n)功能：根據(jù)索引項的值，返回對應(yīng)的值。說明：索引項通常是整型變量名，取值范圍1n，超出范圍時返回NULL。例如：y=choose(x，優(yōu)秀，良好，中等，及格，不及格)4計時器事件 VBA沒有直接提供時間控件，通過timer事件實現(xiàn)定時功能。 方法：首先設(shè)置窗體的計時器間隔屬性TimerInterval，然后給timer事件寫過程代碼。打開窗體時，每隔一個時間間隔激發(fā)一次timer事件，事件的過程就被執(zhí)行一次，從而實現(xiàn)“定時”處理功能。 計時器間隔的時間單位為毫秒，1000毫秒=1秒。Access 2003 教程例:顯示電子表（1）建立2個標(biāo)簽

44、名稱為b1和b2標(biāo)題都為數(shù)字1。（2）打開窗體的屬性窗口單擊“事件”選項卡設(shè)置計時器 間隔屬性為1000。（3）在VBE窗口“通用-聲明”寫代碼： Public a As Boolean a為邏輯型，默認(rèn)false（4）Form的Timer事件代碼： a = Not a b1.Caption = Time() b2.Caption = CInt(b2.Caption) + 1 b2.ForeColor = IIf(a = True, 255, 16711680) Access 2003 教程（5）轉(zhuǎn)到窗體視圖。b1中顯示系統(tǒng)當(dāng)前時間，b2中的數(shù)字每秒增加1，數(shù)字的顏色紅、藍(lán)交替，每秒換一次。

45、Access 2003 教程8.4.5 驗證函數(shù)函數(shù)名功能IsNumeric(x)驗證x是否為數(shù)值，若返回true， 是數(shù)值IsDate(x)驗證x是否為日期值，若返回true， 是日期或可識別的有效日期IsNull(x)驗證x是否為無效值，若返回true，是無效值IsEmpty(x)驗證x是否已被初始化，若返回true，未被初始化IsArray(x)驗證x是否為數(shù)組，若返回true，是數(shù)組IsError(x)驗證x是否為一個錯誤值，若返回true，有錯誤IsObject(x)驗證x是否為對象變量，若返回true，是對象VBA的常用驗證函數(shù) Access 2003 教程例:檢驗字符串類型 （1

46、）建文本框名稱為t1附加標(biāo)簽標(biāo)題為“輸入年齡：”。（2）建命令按鈕名稱分別為c1標(biāo)題為“驗證”。（3）c1的click事件代碼： If t1 = Or IsNull(t1) Then MsgBox 不能為空!, vbCritical, 提示 ElseIf IsNumeric(t1) = False Then MsgBox 必須是數(shù)字!, vbCritical, 提示 ElseIf t1 = 150 Then MsgBox 超出范圍!, vbCritical, 提示 Else MsgBox 驗證通過!, vbInformation, 提示 End If Access 2003 教程（4）轉(zhuǎn)到窗體

47、視圖在文本框中輸入一個字母單擊“驗證”按鈕消息框顯示消息“必須是數(shù)字！”。 Access 2003 教程8.4.6 循環(huán)語句 當(dāng)某一程序段需要反復(fù)執(zhí)行，用循環(huán)結(jié)構(gòu)實現(xiàn)。循環(huán)結(jié)構(gòu)對應(yīng)兩類循環(huán)語句： 先判斷后執(zhí)行的循環(huán)語句（當(dāng)型循環(huán)結(jié)構(gòu)） 先執(zhí)行后判斷的循環(huán)語句（直到型循環(huán)結(jié)構(gòu)）Access 2003 教程1for- -next循環(huán) for- -next循環(huán)能使語句序列運行指定次數(shù)，循環(huán)中有一個計數(shù)器變量，變量的值隨每一次循環(huán)增加或減少。 for- -next是當(dāng)型循環(huán)結(jié)構(gòu)，先判斷后執(zhí)行。（1）格式：for 循環(huán)變量=初值 to 終值 step 步長 語句序列 next（2）功能 先將初值賦給循環(huán)

48、變量，再將循環(huán)變量的當(dāng)前值與終值做比較，如果比較結(jié)果為真執(zhí)行語句序列，增加一個步長，再進(jìn)行比較，如果比較結(jié)果仍為真，繼續(xù)循環(huán)。如果比較結(jié)果為假，結(jié)束循環(huán)。 Access 2003 教程（3）說明步長大于0時判斷循環(huán)變量的當(dāng)前值是否大于終值，步長小于 0判斷循環(huán)變量的當(dāng)前值是否小于終值。步長為0時導(dǎo)致循環(huán) 無法結(jié)束，所以步長不要設(shè)置為0。步長可以是整數(shù)或小數(shù)，步長為1時可以省略。除第一次循環(huán)以外，其他循環(huán)增加一個步長后與終值比較。for循環(huán)可以嵌套。在for循環(huán)中可以用exit for語句強行中止循環(huán)。Access 2003 教程練習(xí)：閱讀下面程序段，循環(huán)結(jié)束后，各變量的值是多少？ dim s

49、as integer, i as integer s=0 for i=1 to 10 step 2 s=s+i i=i+2 next結(jié)論：循環(huán)結(jié)束后，變量i的值是13，變量 s 的值是15。Access 2003 教程例：顯示Fibonacci數(shù)列的第15個元素 （Fibonacci數(shù)列的前兩個數(shù)都是1，從第3個數(shù)開始，每個數(shù)都是前兩個數(shù)之和。） （1）建立文本框名稱為t1建立命令按鈕名稱為c1。（2）c1的click事件代碼： Dim f(15) As Integer f(1) = 1：f(2) = 1 For i = 3 To 15 f(i) = f(i - 1) + f(i - 2) N

50、ext t1 = f(15) Access 2003 教程2do- -while-loop循環(huán) do- -while-loop循環(huán)是當(dāng)型循環(huán)結(jié)構(gòu)，先判斷后執(zhí)行。（1）格式 do while 循環(huán)條件 語句序列 loop（2）功能 先檢查循環(huán)條件是否成立，若條件為真，執(zhí)行語句序列。遇到loop語句時返回循環(huán)開始處重新判斷，若條件仍然為真，再次執(zhí)行語句序列。當(dāng)條件為假時退出循環(huán)。Access 2003 教程（3）說明可以用exit do強行中止循環(huán)。要考慮循環(huán)變量賦初值和給循環(huán)變量增加步長的問題。如果將while換成until，當(dāng)條件為真時循環(huán)結(jié)束。練習(xí)：閱讀下面的程序（注：大寫字母A的ASCII

51、碼是65。）dim a(26) as string, b(26) as integer,dim i as integeri=1 給循環(huán)變量賦初值do while i=26a(i)=chr(i+64) 將ASCII碼變?yōu)樽帜竍(i)=Lcase(a(i) 將大寫字母變?yōu)樾懽帜竔=i+1 使循環(huán)變量增加1loopAccess 2003 教程3do-loop- -while循環(huán) 是直到型循環(huán)結(jié)構(gòu)，先執(zhí)行后判斷。（1）格式 do 語句序列 Loop while 循環(huán)條件（2）功能 先執(zhí)行語句序列，遇到loop語句時判斷循環(huán)條件，若條件為真，再次執(zhí)行語句序列。當(dāng)條件為假時退出循環(huán)。（3）說明可以用ex

52、it do強行中止循環(huán)。要考慮給循環(huán)變量賦初值和給循環(huán)變量增加步長的問題。如果將while換成until，當(dāng)條件為真時循環(huán)結(jié)束。 Access 2003 教程4for-each 循環(huán)語句 for each循環(huán)用來遍歷數(shù)組或?qū)ο蠹现忻恳粋€元素，不需要指定循環(huán)次數(shù)，每個元素只遍歷一次。如果不知道一個集合有多少個元素，用for each循環(huán)非常方便。（1）格式 for each 循環(huán)變量 in 集合或數(shù)組 語句序列 next（2）功能 用循環(huán)變量依次遍歷數(shù)組或?qū)ο蠹现忻恳粋€元素，直到遍歷結(jié)束。Access 2003 教程練習(xí)：閱讀下面程序。dim a(50) as integer, i as i

53、nteger, s as integerfor i=1 to 50 給數(shù)組賦值 a(i)=inexts=0for each i in a 遍歷a中元素 if i mod 20 then s=s+i 計算奇數(shù)之和next Access 2003 教程8.5 過程調(diào)用與參數(shù)傳遞過程調(diào)用與參數(shù)傳遞8.5.1 認(rèn)識過程和參數(shù)1過程 過程是用來執(zhí)行特定任務(wù)的一段獨立的程序代碼，這段代碼能被反復(fù)調(diào)用。VBA的模塊以過程為單元組成。 VBA的過程根據(jù)是否返回值分為兩類：Sub過程和Function過程。Sub過程只執(zhí)行操作不返回值，不能用在表達(dá)式中，調(diào)用時就象使用基本語句一樣。Function過程又稱為用戶

54、自定義函數(shù)，執(zhí)行操作后返回結(jié)果，常用在表達(dá)式中，調(diào)用時就象使用基本函數(shù)一樣。 過程名是標(biāo)識符，不要與模塊名重名，否則調(diào)用時會出現(xiàn)混亂。同一模塊中，Sub過程也不要與Function過程重名。 過程不能嵌套定義，但可以嵌套調(diào)用。Access 2003 教程2參數(shù) 如果在調(diào)用過程中，主調(diào)方（調(diào)用過程的語句）與被調(diào)方（過程）存在數(shù)據(jù)傳遞關(guān)系，表現(xiàn)這種傳遞關(guān)系的數(shù)據(jù)就是參數(shù)。 參數(shù)分為形參（形式參數(shù)）和實參（實際參數(shù)）。形參用在被調(diào)方，只能是變量名或數(shù)組名。實參用在主調(diào)方，可以是常量、已賦值的變量、有計算結(jié)果的表達(dá)式。 當(dāng)形參和實參都是變量時，存在兩種參數(shù)傳遞方式：值傳遞與地址傳遞。值傳遞只能把實參的

55、值傳給形參，是“單向傳遞”。地址傳遞能在實參與形參之間實現(xiàn)參數(shù)的“雙向傳遞”，不但將實參的值傳給形參，形參的值也可以傳給實參。Access 2003 教程8.5.2 sub過程 sub 過程是包含在 sub 和 end sub 之間的一組代碼，調(diào)用sub過程時只執(zhí)行其中的操作，不返回值。1定義sub過程的格式sub過程名（形參1 as 數(shù)據(jù)類型，形參2 as 數(shù)據(jù)類型，） 語句序列end sub2調(diào)用sub過程格式1：call 過程名（實參1 ，實參2，）格式2：過程名 實參1，實參2，Access 2003 教程3說明（1）參數(shù)之間用逗號分隔，對應(yīng)的形參與實參之間要類型匹配。（2）用格式1調(diào)用sub過程必須加括號，用格式2調(diào)用sub過程不加括號。（3）用 exit sub 語句立即從 sub 過程中退出。（4）定義sub過程時即使無任何參數(shù)，也必須包含空括號（）。（5）