第9章宏與模塊-商業(yè)策劃-

第九章宏與模塊*9.1宏的基本知識(shí)9.2宏的基本操作9.3認(rèn)識(shí)模塊9.4創(chuàng)建與調(diào)用模塊9.5

VBA程序設(shè)計(jì)基礎(chǔ)9.6調(diào)試過程9.1宏的基本知識(shí)*宏的具體功能如下：顯示和隱藏工具欄；打開和關(guān)閉表、查詢、窗體和報(bào)表；執(zhí)行報(bào)表的預(yù)覽和打印操作以及報(bào)表中數(shù)據(jù)的發(fā)送設(shè)置窗體或報(bào)表中控件的值；設(shè)置Access工作區(qū)中任意窗口的大小，并執(zhí)行窗口移動(dòng)、縮小、放大和保存等操作；執(zhí)行查詢操作，以及數(shù)據(jù)的過濾、查找；為數(shù)據(jù)庫設(shè)置一系列的操作，簡化工作。9.1宏的基本知識(shí)

在Access

2000中，一共提供了53種基本宏操作，這些基本宏操作還可以組合成很多其他的“宏組”操作。

使用宏的操作非常方便，用戶不需要記住各種語法命令，也不需要編程，只需利用幾個(gè)簡單宏操作就可以對數(shù)據(jù)庫完成一系列的控制，中間過程完全是自動(dòng)實(shí)現(xiàn)的。*9.1宏的基本知識(shí)在默認(rèn)設(shè)置下，宏的設(shè)計(jì)視圖分為操作、注釋、操作參數(shù)三個(gè)部分，如圖所示。*9.2

宏的基本操作*創(chuàng)建宏與宏組運(yùn)行宏在宏中使用條件設(shè)置操作參數(shù)常用的宏操作在窗體中添加宏調(diào)試宏9.2.1

創(chuàng)建宏與宏組創(chuàng)建宏下面以一個(gè)能夠自動(dòng)打開“學(xué)生成績表”表的宏為例，操作步驟如下所述：在“數(shù)據(jù)庫”窗口中，單擊“對象”下的“宏”。單擊“數(shù)據(jù)庫”窗口工具欄上的“新建”按鈕，彈出宏的設(shè)計(jì)視圖。*1.創(chuàng)建宏（3）單擊“操作”字段的第一個(gè)單元格，然后再單擊箭頭來顯示出操作列表，選擇“OpenTable”，如圖所示。*1.創(chuàng)建宏鍵入操作的備注。備注不是必選的，但可以使用戶更易于理解和維護(hù)該宏。如果需要，可在窗口的下半部指定操作的參數(shù)。如：將“表名稱”選為“學(xué)生成績表”，“視圖”方式選擇“數(shù)據(jù)表”

“數(shù)據(jù)模式”選擇“只讀”模式，即打開

“學(xué)生成績表”表后不允許修改表中的數(shù)據(jù)。*1.創(chuàng)建宏至此，新創(chuàng)建的宏基本定義完成了，最后的設(shè)計(jì)視圖如圖所示。*1.創(chuàng)建宏如果要在一個(gè)宏內(nèi)添加更多的操作，請移動(dòng)到下一個(gè)操作行，并重復(fù)執(zhí)行第（3）步到第（5）步。單擊工具欄中的“保存”按鈕，在“另存為”對話框的“宏名稱”文本框中輸入宏的名

稱，然后單擊“確定”按鈕。*1.創(chuàng)建宏*如果要快速創(chuàng)建一個(gè)在指定數(shù)據(jù)庫對象上執(zhí)行操作的宏，請從“數(shù)據(jù)庫”窗口中將對象拖拽到“宏”窗口的操作行。例如，將窗體拖拽到操作行，就

可以創(chuàng)建一個(gè)打開窗體的宏。其步驟如下：單擊“窗口”菜單上的“垂直平鋪”命令來放置“宏”窗口和“數(shù)據(jù)庫”窗口，以使得兩者并排顯示在屏幕上；在“數(shù)據(jù)庫”窗口的“對象”下單擊要選擇的對象類型，然后將其拖拽到某個(gè)操作行內(nèi)。如果拖拽的是某個(gè)宏或存儲(chǔ)過程，將添加執(zhí)行此宏或過程的操作，而拖拽其他數(shù)據(jù)庫對象將添加打開相應(yīng)對象的操作。2．創(chuàng)建宏組將幾個(gè)功能相關(guān)或相近的宏組織到一起，構(gòu)成宏組，并為宏組分配一個(gè)名字。宏組在一個(gè)宏窗口下包含有多個(gè)宏，而且每個(gè)宏擁有單獨(dú)的名稱，并且可以單獨(dú)運(yùn)行。宏組的創(chuàng)建和宏基本相同。不同點(diǎn)就在于宏組包含多個(gè)宏，各個(gè)宏必須相互能區(qū)分出來。各個(gè)宏是通過名稱來加以區(qū)分的。*2．創(chuàng)建宏組在“宏名”欄內(nèi)，鍵入宏組中的第一個(gè)宏的名字。添加完成相應(yīng)功能的宏操作。如果希望在宏組內(nèi)包含其他的宏，請重復(fù)第（4）步到第（5）步。單擊工具欄中的“保存”按鈕，在“另存為”對話框的“宏名稱”文本框中輸入宏的名稱，然后單擊“確定”按鈕。*2．創(chuàng)建宏組至此，新創(chuàng)建的宏組基本定義完成了，最后的設(shè)計(jì)視圖如圖所示。*9.2.2

運(yùn)行宏*直接運(yùn)行宏運(yùn)行宏組中的宏

從另一個(gè)宏中運(yùn)行宏或

Visual

Basic

過程中運(yùn)行宏1．直接運(yùn)行宏如果要直接運(yùn)行宏，請進(jìn)行下列操作之一：·

（1）如果要從“宏”窗口中運(yùn)行宏，請單擊工具欄上的“運(yùn)行”按鈕。（2）如果要從“數(shù)據(jù)庫”窗口中運(yùn)行宏，請單擊“宏”，然后雙擊相應(yīng)的宏名。*2．運(yùn)行宏組中的宏要運(yùn)行宏組中的宏，請進(jìn)行下列操作之一：·

將鼠標(biāo)指向“工具”菜單中的“宏”，單擊“執(zhí)行宏”命令，然后選定“宏名”列表中的宏。當(dāng)宏名出現(xiàn)在列表中時(shí)，

MicrosoftAccess將包含每個(gè)宏組中的所有宏，顯示格式為“宏組.宏名”?！腣isual

Basic過程中運(yùn)行宏組中的宏，法是：使用DoCmd對象的RunMacro方法，并采用前面所示的引用宏的方法。*3．從另一個(gè)宏中運(yùn)行宏或Visual

Basic

過程中運(yùn)行宏如果要將RunMacro添加操作到宏中，在宏設(shè)計(jì)視圖下，請單擊空白操作行的操作列表中的“RunMacro”，并且將參數(shù)中的

“宏名”設(shè)置為要運(yùn)行的宏名。如果要將RunMacro操作添加到VisualBasic過程中，請?jiān)谶^程中添加DoCmd對象的RunMacro方法，然后指定要運(yùn)行的宏名；例如，下面的RunMacro方法將運(yùn)行宏“Openfile”：DoCmd.RunMacro"Openfile"。*9.2.3

在宏中使用條件

在某些情況下，可能希望僅當(dāng)特定條件為真時(shí)才在宏中執(zhí)行一個(gè)或多個(gè)操作。

可以將條件輸入到“宏”窗口的“條件”欄中。如果這個(gè)條件結(jié)果為真，則

MicrosoftAccess將執(zhí)行此行中的操作。*9.2.3

在宏中使用條件設(shè)計(jì)帶有條件的宏的操作步驟如下：在“數(shù)據(jù)庫”窗口中，單擊“對象”下的“宏”。單擊“數(shù)據(jù)庫”窗口工具欄上的“新建”按鈕，彈出宏的設(shè)計(jì)視圖窗口。單擊工具欄上的“條件”按鈕（如果沒有按下），宏的設(shè)計(jì)視圖會(huì)在“操作”列前增加“條件”列。*9.2.3

在宏中使用條件4）在“條件”列中輸入條件，其它項(xiàng)的操作和創(chuàng)建宏或宏組是相同的。一個(gè)條件后可以有多行宏操作，在緊跟此條件的操作的“條件”欄內(nèi)鍵入省略號(...)，就可以使Microsoft

Access在條件為真時(shí)可以執(zhí)行這些操作。創(chuàng)建好的條件宏如圖所示。*9.2.4

設(shè)置操作參數(shù)在宏中添加了某個(gè)操作之后，可以在“宏”窗口的下部設(shè)置這個(gè)操作的參數(shù)。這些參數(shù)可以向Microsoft

Access提供如何執(zhí)行操作的附加信息。關(guān)于設(shè)置操作參數(shù)的一些提示如下：·

（1）可以在參數(shù)框中鍵入數(shù)值，或者在很多情況下，可以從列表中選擇某個(gè)設(shè)置。（2）通常，按參數(shù)排列順序來設(shè)置操作參數(shù)是很好的方法；因?yàn)檫x擇某一參數(shù)將決定該參數(shù)后面的參數(shù)的選擇。*9.2.4

設(shè)置操作參數(shù)如果通過從“數(shù)據(jù)庫”窗口拖拽數(shù)據(jù)庫對象的方式來向宏中添加操作，

MicrosoftAccess將自動(dòng)為這個(gè)操作設(shè)置適當(dāng)?shù)膮?shù)。如果操作中有調(diào)用數(shù)據(jù)庫對象名的參數(shù)，則可以將對象從“數(shù)據(jù)庫”窗口中拖拽到參數(shù)框，從而設(shè)置參數(shù)及其對應(yīng)的對象類型參數(shù)?？梢杂们懊婕拥忍?=)的表達(dá)式來設(shè)置許多操作參數(shù)。*9.2.5

常用的宏操作在Access

2000中，一共提供了53種基本宏操作，常用的宏操作如下：AddMenu

、ApplyFilter

、Beep

、Close

、CancelEvent

、Echo

、FindRecord

、FindNext

、GoToControl

、GoToRecord

、MsgBox

、OpenForm

、OpenReport

、OpenTable

、OpenDataAccessPage

、QuitOpenQuery

、OutputTo

、RunMacro

、RunSQL

、SendKeys

、SetValue

、StopMacro

、TransferDatabase

、TransferSpreadsheet*9.2.6

在窗體中添加宏Access可以對窗體或窗體中的控件的多種類型事件做出響應(yīng)，包括鼠標(biāo)單擊、數(shù)據(jù)更改以及窗體打開或關(guān)閉等。例：利用創(chuàng)建一個(gè)窗體，窗體中顯示學(xué)生的姓名和各門課程的成績。分別完成下面要求雙擊窗體主體部分的空白處，窗體標(biāo)題欄上顯示該學(xué)生的總成績。在窗體上添加一個(gè)命令按鈕，當(dāng)點(diǎn)擊該命令按鈕時(shí)，窗體標(biāo)題欄上顯示該學(xué)生的總成績。*例題完成第一個(gè)要求的步驟為：（1）以“學(xué)生成績表”作為數(shù)據(jù)源創(chuàng)建一個(gè)窗體，如圖所示。*例題（2）在窗體主體部分的空白處擊右鍵，彈出快捷菜單，選擇“屬性”命令，打開

“屬性”對話框，如圖所示。*例題（3）選擇“事件”選項(xiàng)卡，然后單擊“雙擊”行后的（...），彈出“選擇生成器”對話框，如圖所示。*例題選擇“宏生成器”，單擊“確定”按鈕，保存宏彈出宏設(shè)計(jì)窗口。在操作欄列中選擇“SetValue”，設(shè)置參數(shù)，項(xiàng)目：[Forms]![窗體1].[Caption]，表達(dá)式："總成

"&([數(shù)學(xué)]+[C語言]+[數(shù)據(jù)結(jié)構(gòu)]+[電子線路])，如所示。*例題運(yùn)行窗體，雙擊窗體空白處，在窗體的標(biāo)題欄上會(huì)顯示該學(xué)生的總成績，如圖所示。*例題完成第二個(gè)要求的步驟為：（1）以“學(xué)生成績表”作為數(shù)據(jù)源創(chuàng)建一個(gè)窗體，在窗體上新建一個(gè)命令按鈕，按鈕的標(biāo)題為“總成績”，如圖所示。*例題2）在命令按鈕上擊右鍵，在快捷菜單上選擇“事件生成器”，彈出“選擇生成器”對話框，如圖所示。*例題（3）參照第一個(gè)要求的步驟（4）－（6）。運(yùn)行窗體，單擊命令按鈕，在窗體的標(biāo)題欄上會(huì)顯示該學(xué)生的總成績，如圖所示。*9.2.7

調(diào)試宏*使用單步執(zhí)行宏，就可以觀察宏的流程和每一個(gè)操作的結(jié)果，并且可以排除導(dǎo)致錯(cuò)誤或產(chǎn)生非預(yù)期結(jié)果的操作。打開相應(yīng)的宏。在工具欄上單擊“單步”按鈕

。在工具欄上單擊“運(yùn)行”按鈕，系統(tǒng)彈出如圖所示的“單步執(zhí)行宏”對話框。9.2.7

調(diào)試宏*9.2.7

調(diào)試宏*4）單擊“單步”按鈕，以執(zhí)行顯示在“單步執(zhí)行宏”對話框中的操作。同時(shí)可以看到對話框中顯示的當(dāng)前操作的條件、操作名稱、參數(shù)等信息。單擊“暫停”按鈕，以停止宏的運(yùn)行并關(guān)閉對話框。單擊“繼續(xù)”以關(guān)閉單步執(zhí)行，并執(zhí)行宏的未完成部分。9.3

認(rèn)識(shí)模塊模塊是Access數(shù)據(jù)庫中的一個(gè)重要對象，是將Visual

Basic

for

Applications（VBA聲明和過程作為一個(gè)單元進(jìn)行保存的集合。模塊有兩個(gè)基本類型：類模塊標(biāo)準(zhǔn)模塊。*1．類模塊窗體和報(bào)表模塊都是類模塊，而且它們各自與某一窗體或報(bào)表相關(guān)聯(lián)。窗體和報(bào)表模塊通常都含有事件過程，該過程用于響應(yīng)窗體或報(bào)表中的事件。為窗體或報(bào)表創(chuàng)建第一個(gè)事件過程時(shí)，

MicrosoftAccess將自動(dòng)創(chuàng)建與之關(guān)聯(lián)的窗體或報(bào)表模塊。如果要查看窗體或報(bào)表的模塊，請單擊窗體或報(bào)表“設(shè)計(jì)”視圖中工具欄上的“代碼”命令。*2．標(biāo)準(zhǔn)模塊標(biāo)準(zhǔn)模塊包含的是通用過程和常用過程，通用過程不與任何對象相關(guān)聯(lián)，常用過程可

以在數(shù)據(jù)庫中的任何位置運(yùn)行，如圖所示。*2．標(biāo)準(zhǔn)模塊單擊“數(shù)據(jù)庫”窗口中“對象”下的“模塊”可以查看數(shù)據(jù)庫中標(biāo)準(zhǔn)模塊的列表。模塊

中的每一個(gè)過程都可以是一個(gè)Function過程或一個(gè)Sub過程。窗體或報(bào)表模塊中的過程可以調(diào)用已經(jīng)添加到標(biāo)準(zhǔn)模塊中的過程。*9.3.2

宏與模塊的關(guān)系對于簡單的細(xì)節(jié)工作，譬如打開和關(guān)閉窗體、顯示和隱藏工具欄或運(yùn)行報(bào)表等，使用宏

是一種很方便的方法。它可以簡捷迅速地

將已經(jīng)創(chuàng)建的數(shù)據(jù)庫對象聯(lián)系在一起，因

為不需要記住各種語法，并且每個(gè)操作的

參數(shù)都顯示在“宏”窗口的下半部分。因?yàn)槟K是基于語言創(chuàng)建的，所以它具有比

Access數(shù)據(jù)庫中其它對象更大的功能。利用模塊，可以建立自定義函數(shù)，完成更復(fù)雜的計(jì)算，替代標(biāo)準(zhǔn)宏所不能執(zhí)行的功能等。*9.3.2

宏與模塊的關(guān)系對于以下的情況，應(yīng)該使用VBA而不要使用宏：使數(shù)據(jù)庫易于維護(hù)創(chuàng)建自己的函數(shù)顯示錯(cuò)誤消息創(chuàng)建或操作對象執(zhí)行系統(tǒng)級別的操作一次操作多個(gè)記錄將參數(shù)傳送給

VBA

過程*將宏轉(zhuǎn)化為模塊的操作步驟在“數(shù)據(jù)庫”窗口中，單擊“對象”下的“宏”。選中要轉(zhuǎn)化為模塊的宏。執(zhí)行菜單欄中的“文件”

“另存為”命令，打開另存為對話框，如圖所示。*將宏轉(zhuǎn)化為模塊的操作步驟在“保存類型”的下拉列表中有“宏”和“模塊”兩個(gè)選項(xiàng)，然后單擊“確定”

按鈕，打開“轉(zhuǎn)換宏”對話框，如圖所示。單擊“轉(zhuǎn)換”按鈕，彈出“轉(zhuǎn)換完畢”的消息框，單擊“確定”按鈕，完成轉(zhuǎn)換。*9.4

創(chuàng)建與調(diào)用模塊模塊是由過程組成的，模塊中的每一個(gè)過程都可以由一個(gè)函數(shù)過程或一個(gè)子程序組成。所謂過程就是包含一系列VBA代碼的單位，它包含許多語句和方法，以執(zhí)行特定的操

作或計(jì)算數(shù)值。創(chuàng)建模塊的操作步驟如下：（1）在工程菜單中單擊“模塊”對象按鈕，單擊“新建”按鈕。*創(chuàng)建模塊的操作步驟（2）在模塊窗口中打開一個(gè)名為“模塊N”的新模塊，如圖所示。*在模塊中加入過程的常用方法有兩種：一是在模塊編輯窗口直接編寫過程；

二是通過菜單欄插入。通過菜單欄插入過程的步驟如下：（1）在模塊編輯窗口執(zhí)行菜單欄中的“插入”

“過程”命令，打開添加過程對話框，如圖所示。*通過菜單欄插入過程的步驟*通過菜單欄插入過程的步驟在該對話框中，在“名稱”文本框中輸入新建的過程名，在“類型”欄中選擇過程的類型。在“范圍”欄中設(shè)定過程的作用范圍，可以選擇“公共的”或“私有的”選項(xiàng)?！肮驳摹北硎驹撨^程在數(shù)據(jù)庫中的任何地方都可以使用，“私有的”表示該過程只有在本模塊中使用。單擊“確定”按鈕，可以看到生成的過程框架，當(dāng)然只是個(gè)空框架。*9.4.2

編寫事件過程事件過程是為響應(yīng)由用戶或程序代碼引發(fā)的事件或由系統(tǒng)觸發(fā)的事件而運(yùn)行的過程。事件是一種特定的操作，在某個(gè)對象上發(fā)生或?qū)δ硞€(gè)對象發(fā)生。MicrosoftAccess可以響應(yīng)多種類型的事件：鼠標(biāo)單擊、數(shù)據(jù)更改、窗體打開或關(guān)閉及許多其他類型的事件。*添加自定義的事件響應(yīng)，可以通過以下三種方法實(shí)現(xiàn)：法一：（1）選中要編寫事件過程的窗體或報(bào)表，單擊工具欄上的“代碼”按鈕，進(jìn)入模塊編輯窗口，如圖所示。*（2）在模塊編輯窗口的代碼窗口部分的“通用”下拉列表中選擇要響應(yīng)事件的對象，在“聲明”下拉列表中選擇對象要響應(yīng)的事件。這時(shí)系統(tǒng)會(huì)自動(dòng)產(chǎn)生事件響應(yīng)的過程的框架，用戶可以在此編寫代碼。*添加自定義的事件響應(yīng)，可以通過以下三種方法實(shí)現(xiàn)(法一)添加自定義的事件響應(yīng)，可以通過以下三種方法實(shí)現(xiàn)(法二)（1）在窗體、報(bào)表的設(shè)計(jì)視圖或控件上擊右鍵，在快捷菜單中選擇“屬性”，彈出屬性窗口，選擇“事件”選項(xiàng)卡，如圖所示。*添加自定義的事件響應(yīng)，可以通過以下三種方法實(shí)現(xiàn)(法二)（2）選擇某個(gè)事件，單擊右側(cè)的【…】按鈕，打開“選擇生成器”對話框，選擇

“代碼生成器”，單擊“確定”即進(jìn)入模塊編輯窗口，系統(tǒng)會(huì)自動(dòng)產(chǎn)生事件響應(yīng)的過程的框架，用戶可以在此編寫代碼。*添加自定義的事件響應(yīng)，可以通過以下三種方法實(shí)現(xiàn)(法三)*在窗體或報(bào)表的控件上單擊右鍵，在快捷菜單中選擇“選擇生成器”，打開“選擇生成器”對話框，選擇“代碼生成器”，單擊“確定”即進(jìn)入模塊編輯窗口，系統(tǒng)會(huì)自動(dòng)產(chǎn)生事件響應(yīng)的過程的框架，用戶可以在此編寫代碼。常見的事件過程常用的鍵盤事件有：鍵按下（KeyDown）事件鍵釋放（KeyUp）事件

擊鍵（KeyPress）事件鼠標(biāo)事件單擊（Click）事件雙擊（DblClick）事件鼠標(biāo)按下（MouseDown）事件鼠標(biāo)釋放（MouseUp）事件

鼠標(biāo)移動(dòng)（MouseMove）事件*常見的事件過程*窗口事件打開（Open）事件關(guān)閉（Close）事件調(diào)整大?。≧esize）事件激活（Activate）事件

停用（Deactivate）事件加載（Load）事件卸載（Unload）事件常見的事件過程*對象事件獲得焦點(diǎn)（GotFocus）事件

失去焦點(diǎn)（LostFocus）事件更新前（BeforeUpdate）事件更新后（AfterUpdate）事件更改（Change）事件其它事件

Timer事件9.5

VBA程序設(shè)計(jì)基礎(chǔ)面向?qū)ο蟮幕靖拍?/p>

1.類（Class）類是定義對象特征以及對象外觀和行為的模板，是對象的藍(lán)圖和框架，類包含了同類對象的特征和行為信息，對象是類的一個(gè)實(shí)例。例如，人是一個(gè)“類”，人應(yīng)該有性別、身高、體重等特征，有哭、笑、走等行為。張三是人“類”的一個(gè)實(shí)例，即一個(gè)具體的對象。*面向?qū)ο蟮幕靖拍?．對象（Object）對象是面向?qū)ο蟪绦蛟O(shè)計(jì)的核心。對象的概念源于日常生活所用的東西、物品，如一臺(tái)電腦、一本書均是對象。對象是數(shù)據(jù)及對數(shù)據(jù)地操作的封裝體。對象一般具有各自的名字、外觀形態(tài)、用途，以及使用方法。*面向?qū)ο蟮幕靖拍?．屬性（Property）屬性是對象具體特性的總稱，它是指對象的名稱及其外觀狀態(tài)（如大小、位置、顏色等）諸項(xiàng)內(nèi)容。引用對象屬性的語法格式為：對象名稱.屬性名稱

如：Label1.Caption在程序設(shè)計(jì)時(shí)，可通過賦值語句設(shè)置對象的屬性值，格式如下：對象名稱.屬性名稱＝屬性值如：Label1.Caption＝“姓名：”*面向?qū)ο蟮幕靖拍?．方法（Method）方法就是對象能夠執(zhí)行的行為或動(dòng)作，如在窗體中打印輸出文本、移動(dòng)某對象等。使用對象的方法必須通過程序代碼實(shí)現(xiàn)，其語句格式如下：對象名.方法[參數(shù)]例如在窗體中打印輸出文本：Form1.Print在窗體上顯示“歡迎使用本軟件！”：Form1.Print″歡迎使用本軟件！″*9.5.3

VBA編程基礎(chǔ)當(dāng)在Visual

Basic的模塊中為過程、常數(shù)、變量和參數(shù)命名時(shí)，一般滿足以下規(guī)則：

第一個(gè)字符必須使用英文字母，后面地可以包含字母、數(shù)字或下劃線字符(_)。

不能在名稱中使用空格、句點(diǎn)（。）、驚嘆號（?。?、@、&、#等字符。名稱的長度不能超過255個(gè)字符。

使用的名稱不能與VBA本身的過程、語句、方法等關(guān)鍵字的名稱相同。*1.常量字面值和常量都是固定不變的數(shù)據(jù)，但有所區(qū)別。字面值是指用戶設(shè)定的值，如數(shù)字，字符串、日期/時(shí)間等的一個(gè)確定的值。而常量是用符號來代替那些固定不變量的數(shù)字或字符串，可以提高代碼的可讀性和可維護(hù)性。Access支持3種類型的常量：符號常量固有常量系統(tǒng)定義常量*1.常量符號常量：通過聲明語句使符號來替代常數(shù)的是符號常量。用Const語句來聲明，格式為：[Public|Private]

Const

常量名[As

類型]

＝表式例如：Const

pi

=

3.1415926Public

Const

codename

=

″English″Const

pt

=

pi

*

2*1.常量*

固有常量：是Access或引用對象庫的一部分。

Access中主要有以下幾種類型的固有常量：操作常量、事件過程常量、關(guān)鍵字常量、VBA常量和Var

Type函數(shù)常量。例如：vbRed

代表紅色

，vbMonday2

代表

星期一

，vbKeyRButton

代表

鼠標(biāo)右鍵

系統(tǒng)定義常量：True（yes、on或-1）、False（no、

off或0）、Null。Null表示丟失或未知的數(shù)據(jù)。2.變量程序中的變量為臨時(shí)在座單元，可存放文字、數(shù)值、日期和對象屬性。每個(gè)變量都有一

個(gè)名字，程序通過變量名對變量進(jìn)行存取

操作。VBA變量聲明有兩種方法：隱性聲明。如果沒有指定變量的類型而使用變量，則此變量默認(rèn)為Variant類型。這種聲明方式不但增加了程序運(yùn)行的負(fù)擔(dān)，而且極容易出現(xiàn)數(shù)據(jù)運(yùn)算問題，造成程序出錯(cuò)。顯性聲明。語法：Dim

變量名

[As

類型]*2.變量*如：Dim

XDim

W

As

IntegerDim

A

As

String

，

B

As

Currency

，C

As

Integer也可以用類型聲明符直接聲明變量，形式為：變量名類型符例如：

total！strname$ˊ聲明單精度型變量ˊ聲明字符型變量2.變量*變量有三個(gè)范圍級別：過程級別私有模塊級別公共模塊級別私有模塊級別在程序中，公共模塊中的變量對于所有模塊的所有過程均可用，而私有模塊中的變量只對所屬模塊過程可用。用戶可以在窗體、報(bào)表和標(biāo)準(zhǔn)模塊頂部的聲明部分用Dim或Private定義模塊級的變量。由Dim語句在聲明部分所聲明的變量，其范圍默認(rèn)為私有的。*公共模塊級別

如果將一個(gè)變量聲明為公共模塊級變量，那么它就可以被工程所有過程調(diào)用。它通過Public來聲明。

在給變量聲明了應(yīng)用范圍后，變量就有了一個(gè)生存周期，即變量保留數(shù)值的時(shí)間。具體地說，就是變量第一次（聲明時(shí)）出現(xiàn)到消失所持續(xù)的時(shí)間。*3．?dāng)?shù)據(jù)類型數(shù)據(jù)類型存儲(chǔ)字節(jié)類型聲明符Byte(節(jié)型)1無Integer(整型)2%Long(長整型)4&Single(單精度型)4!Double(雙精度型)8#Currency(貨幣型)8@Boolean(布爾型)2無String(變長字符串)10+串長$String(定長字符串)串長$Date(日期型)8無Object(對象型)Variant(變體型)4無無自定義類型元素所需數(shù)目無*3．?dāng)?shù)據(jù)類型字節(jié)、整型、長整型、單精度、雙精度、貨幣等數(shù)據(jù)類型都屬于數(shù)值數(shù)據(jù)類型，可以進(jìn)行各種數(shù)學(xué)運(yùn)算。字符型數(shù)據(jù)類型用來聲明字符串。布爾型數(shù)據(jù)類型用來表示一個(gè)邏輯值，為真時(shí)顯示True，為假時(shí)顯示

Flase。日期型數(shù)據(jù)類型用來表示日期，日期常量必須用#括起來，如#2001/3/26#。*3．?dāng)?shù)據(jù)類型變體型數(shù)據(jù)類型（Variant）可以存放系統(tǒng)定義的任何數(shù)據(jù)類型，如數(shù)值、字符串、布爾及日期等，其數(shù)據(jù)類型由最近放入的值決定。Variant數(shù)據(jù)類型是所有沒被顯式聲明（用如Dim、Private、Public或Static等語為其它類型變量的數(shù)據(jù)類型。*3．?dāng)?shù)據(jù)類型*用戶自定義類型使用Type語句定義的數(shù)據(jù)類型，可以包含一個(gè)或多個(gè)某種數(shù)據(jù)類型的數(shù)據(jù)元素、數(shù)組或一個(gè)先前定義的用戶自定義類型。例如：Type

MyrecordName

As

StringAge

As

IntegerMajor

As

StringBrith

As

DateEnd

Type類型轉(zhuǎn)換函數(shù)轉(zhuǎn)換函數(shù)轉(zhuǎn)換的結(jié)果轉(zhuǎn)換函數(shù)轉(zhuǎn)換的結(jié)果CboolBooleanClngLongCbyteByteCsngSingleCcurCurrencyCstrStringCdateDateCvarVariantCdblCintDoubleIntegerCVErrError*4．?dāng)?shù)組用戶在編程中，常常用到一組具有相同數(shù)據(jù)類型的變量，這時(shí)就可以聲明一個(gè)數(shù)組代表變量，數(shù)組中所有元素都屬于同一個(gè)數(shù)據(jù)類型。但是，如果數(shù)據(jù)類型為Variant則數(shù)組元素的數(shù)據(jù)類型可以為各種類型。數(shù)組根據(jù)其大小可變性分為兩種類型：固定大小的數(shù)組動(dòng)態(tài)數(shù)組*固定大小數(shù)組的聲明*（1）一維數(shù)組格式：Public|Private|Static|Dim

數(shù)組名（上界）

[As

數(shù)據(jù)類型]或者：Public|Private|Static|Dim

數(shù)組名（下界

To

上界）[As

數(shù)據(jù)類例如：Public

Workers(8)

As

IntegerDim

Workers(1

To

8)AsInteger常用處理方式：用FOR循環(huán)Static

Numbers(1

To

15)

As

IntegerDim

I

As

IntegerFor

I=1

To

15Numbers(I)=I＋1Next

I固定大小數(shù)組的聲明*（2）二維數(shù)組和多維數(shù)組可以如下定義二維數(shù)組和多維數(shù)組：格式：Dim數(shù)組名（上界，上界[,上界，……]）

[As數(shù)據(jù)類型]Dim數(shù)組名（下界To上界，下界To上界[,下界

To上界，……]）[As數(shù)據(jù)類型]例如：dim

Aa(19,19)

As

Integerdim

Ab(1

To

20,1

To

20)

As

Integer動(dòng)態(tài)數(shù)組*如果在程序運(yùn)行之前不能肯定數(shù)組的大小，可以使用動(dòng)態(tài)數(shù)組，建立動(dòng)態(tài)數(shù)組的步驟如下：先聲明空維表：Dim

數(shù)組名(

)

[As

數(shù)據(jù)類型]然后用ReDim語句配置數(shù)組個(gè)數(shù)。ReDim語句聲明只能用在過程中，它是可執(zhí)行語句，可以改變數(shù)組中元素的個(gè)數(shù)，但不能改變數(shù)組的維數(shù)。動(dòng)態(tài)數(shù)組舉例：DimAa()

As

IntegerDim

I

As

Integer,J

As

IntegerReDim

Aa(7,5)For

I=0

To

7For

J=0

To

5Aa(I,J)=I*JNext

JNext

IReDim

Aa(9,2)For

I=0

To

9For

J=0

To

2Aa(I,J)=2*(I*J)Next

JNext

I*5．表達(dá)式VBA的表達(dá)式是由運(yùn)算符將變量、常量、函數(shù)及各種對象的屬性等有機(jī)地結(jié)合起來的算式。表達(dá)式的類型是由數(shù)據(jù)與運(yùn)算符決定的，即表達(dá)式的類型為各種運(yùn)算符運(yùn)算結(jié)果的類型。在VBA中常用的有四種類型的運(yùn)算符：算術(shù)運(yùn)算符字符串運(yùn)算符比較運(yùn)算符邏輯運(yùn)算符*運(yùn)算符*⑴算術(shù)表達(dá)式由算術(shù)運(yùn)算符和數(shù)值型變量、常量、函數(shù)及各種對象的屬性等構(gòu)成，常用的算術(shù)運(yùn)算符如下：+（加）-（減）

*（乘）/（除）\（整除）

^（乘方）

Mod

（求余）⑵字符串運(yùn)算符字符串表達(dá)式由字符串運(yùn)算符和字符串構(gòu)成，用于完成字符串的連接運(yùn)算。“+”和“&”都能完成這個(gè)工作。“&”還可以將數(shù)字與字符串連接。運(yùn)算符⑶

比較運(yùn)算符比較運(yùn)算符用來描述簡單的條件，運(yùn)算的結(jié)果是邏輯值是“真（True）”或“假（False）”。數(shù)字型數(shù)據(jù)按數(shù)值大小進(jìn)行比較；日期型數(shù)據(jù)按年、月、日的先后進(jìn)行比較；字符型數(shù)據(jù)按相應(yīng)位置上兩個(gè)字符ASCII碼值的大小進(jìn)行比較。常用的比較運(yùn)算符如下：>（大于）

<（小于）

>=（大于等于）<=（小于等于）

=

（等于）

<>（不等于）*運(yùn)算符⑷邏輯運(yùn)算符邏輯表達(dá)式由邏輯運(yùn)算符和邏輯型變量、常數(shù)、函數(shù)及各種對象的屬性等構(gòu)成，常見的邏輯運(yùn)算符如下：Not（非）Xor（異或）And（與）

Or（或）Eqv（同或）AB

Not

AA

Or

BA

And

B

A

Xor

BA

Eqv

B0010001011101010010101101101*運(yùn)算符的優(yōu)先級*在表達(dá)式中，當(dāng)運(yùn)算符不止一種時(shí)，運(yùn)算符的優(yōu)先級順序?yàn)椋核阈g(shù)運(yùn)算、連接運(yùn)算、比較運(yùn)算、邏輯運(yùn)算。邏輯運(yùn)算符優(yōu)先級由高至低是：

Not，And，Or，Xor，Eqv可以用括號改變優(yōu)先順序，括號內(nèi)的運(yùn)算總是優(yōu)先于括號外的運(yùn)算。但是，在同一括號之內(nèi)，運(yùn)算符的優(yōu)先順序不變。6．內(nèi)置函數(shù)*其它高級語言一樣，Access也支持使用函數(shù)，

Access本身提供了大量的內(nèi)置函數(shù)，包括

算術(shù)函數(shù)，文本（字符處理）函數(shù)，“日

期/時(shí)間”函數(shù)等。函數(shù)有函數(shù)名、參數(shù)和函數(shù)值三個(gè)要素，他們的作用如下：函數(shù)名起標(biāo)識(shí)作用。參數(shù)為自變量，一般是寫在括號內(nèi)的一至多個(gè)表達(dá)式。函數(shù)運(yùn)算后會(huì)返回一個(gè)值，稱為函數(shù)值。9.5.4

VBA程序流程控制VBA編寫程序的一些編寫習(xí)慣：添加適當(dāng)?shù)淖⑨?，提高程序的可讀性。

適當(dāng)?shù)膶﹂L語句分行或盡量少使用長語句，分行后的各語句之間用一個(gè)下劃線（_）連接。

常量和變量命名要規(guī)范，盡量不要使用無意義地名字。程序結(jié)構(gòu)最好按一定地縮進(jìn)格式編寫。*1．賦值語句*賦值語句用于聲明常數(shù)值和在程序運(yùn)行中改變對象的屬性和變量的值。其格式如下：常量賦值Const常量名＝表達(dá)式例如：Const

pi＝3.1415926給變量賦值變量名＝表達(dá)式例如：x=12給對象的屬性賦值對象名.屬性＝屬性值例如：為窗體Form1的Caption屬性設(shè)置：Form1.Caption＝″VB學(xué)習(xí)系統(tǒng)″2．分支結(jié)構(gòu)分支結(jié)構(gòu)的作用是使程序根據(jù)條件而執(zhí)行不同的語句。VBA支持以下3種條件判斷

語句：If…Then

語句；If…Then…Else

語句；Select

Case

語句。*⑴

If…Then

語句用此結(jié)構(gòu)可以有條件地執(zhí)行結(jié)構(gòu)內(nèi)地一條或多條語句。其語法結(jié)構(gòu)是：If

<條件>Then<語句>例如：If

I<5Then

Print″$″又如：If

(I<5

And

I>0)

Then

Print

″$″*⑵

If…Then…Else

語句*可以用If…Then…Else

語句建立多個(gè)分支流程，并根據(jù)條件選擇其中一個(gè)分支。其語法結(jié)構(gòu)是：If<條件1>Then<程序代碼1>[Else

If<條件2>Then<程序代碼2>]…[Else<程序代碼N+1>]End

If⑵

If…Then…Else

語句執(zhí)行過程是：首先測試<條件1>，如果它為False，則測試<條件2>，依次類推，直到找到一個(gè)為

True的條件為止，然后執(zhí)行相應(yīng)的程序代碼。舉例：見教材。*⑶

Select

Case*當(dāng)條件表達(dá)式僅有一個(gè)測試變量時(shí)，使用SelectCase結(jié)構(gòu)更有效，其語法如下：Select

Case<測試條件>Case<結(jié)果值1><程序代碼1>[Case<結(jié)果值2><程序代碼2>]…[Case

Else<程序代碼N>]End

Select⑶

Select

Case*執(zhí)行過程是：先計(jì)算<測試條件>的值，然后將該值與結(jié)構(gòu)中的每個(gè)Case后的表達(dá)式進(jìn)行比較，如

果相等，就執(zhí)行與該Case相關(guān)聯(lián)的程序

代碼。舉例：見教材。3．循環(huán)語句循環(huán)的作用是使某個(gè)程序段被重復(fù)執(zhí)行，被重復(fù)執(zhí)行的程序段稱為循環(huán)體。VBA支持的循環(huán)結(jié)構(gòu)有：Do…Loop；For…Next；While…Wend。*⑴

Do…Loop通過Do來執(zhí)行循環(huán)，有四種格式。其中

While是條件為真時(shí)循環(huán)，Until是條件為假時(shí)循環(huán)。使用此類循環(huán)時(shí)，循環(huán)體中必須有能改變循環(huán)條件值的語句，讓循環(huán)條件最終能變?yōu)镕alse，從而結(jié)束循環(huán)，否則可能造成死循環(huán)。*Do

While…loopDo

While<條件表達(dá)式><循環(huán)體>Loop只要條件表達(dá)式為True就執(zhí)行循環(huán)體內(nèi)的語句段。而如果條件表達(dá)式的值一開始就為

False，則將不會(huì)進(jìn)入循環(huán)體。*Do

…Loop

WhileDo<循環(huán)體>Loop

While<條件表達(dá)式>該形式的特點(diǎn)是保證循環(huán)體內(nèi)的語句至少被執(zhí)行一次。然后若判斷條件表達(dá)式為True就繼續(xù)執(zhí)行循環(huán)體內(nèi)的語句段。如果條件表達(dá)式的值一開始就為False，循環(huán)體中的語句也會(huì)被執(zhí)行一次，然后退出循環(huán)。*Do

until…loopDo

Until<條件表達(dá)式><循環(huán)體>Loop只要條件表達(dá)式為False就執(zhí)行循環(huán)體內(nèi)的語句段。而如果條件表達(dá)式的值一開始就為True，則將不會(huì)進(jìn)入循環(huán)體。*Do…

Loop

UntilDo<循環(huán)體>Loop

Until<條件表達(dá)式>該形式的特點(diǎn)是保證循環(huán)體內(nèi)的語句至少被執(zhí)行一次。然后若判斷條件表達(dá)式為

False則繼續(xù)執(zhí)行循環(huán)體內(nèi)的語句段。*⑵

For…Next在知道循環(huán)體要執(zhí)行多少次時(shí)，最好使用

For…Next循環(huán)。與DO循環(huán)不同，F(xiàn)or循環(huán)使用一個(gè)叫循環(huán)計(jì)數(shù)器的變量，每重復(fù)一次循環(huán)之后，循環(huán)計(jì)數(shù)器變量的值就會(huì)增加或者減少。For循環(huán)的語法格式：For

計(jì)數(shù)器變量=初值

To

終值[Step

步長]<循環(huán)體>Next

[計(jì)數(shù)器變量]其中，計(jì)數(shù)器、初值、終值和步長都必須是數(shù)值型的變量。步長是可正可負(fù)的。*⑶

While…Wend*While<條件表達(dá)式><循環(huán)體>

WendWhile…Wend與Do

While…Loop循環(huán)的用法相同，當(dāng)條件表達(dá)式為True時(shí)，執(zhí)行循環(huán)體的語句，反之，跳出循環(huán)，執(zhí)行Wend語句的下一條語句。（4）中途退出循環(huán)在循環(huán)過程中有時(shí)需要中途退出，

Do…Loop型循環(huán)與For…Next型循環(huán)都可以中途退出。從Do…Loop型循環(huán)中退出的語句是：

Exit

Do從For…Next型循環(huán)中退出的語句是：

Exit

For一般情況下和IF語句配合使用。注意：在VBA中，While…Wend沒有退出語句，執(zhí)行過程中不能中途退出循環(huán)。*9.5.5

過程調(diào)用和參數(shù)傳遞在編寫程序時(shí)，通常把一個(gè)較大的程序分為若干小的程序單元，每個(gè)程序單元完成相應(yīng)獨(dú)立的功能。這樣可以達(dá)到簡化程序的目的。這些小的程序單元就是過程。過程是VBA代碼的容器，有兩種類型的過程，

Sub過程和Function過程。盡管在一些情

況下它們的功能會(huì)重合，但是每種過程都有它獨(dú)特的、惟一的用途。*1．Sub過程Sub過程也稱為子過程，可以執(zhí)行動(dòng)作、計(jì)算數(shù)值及更新并修改內(nèi)置的屬性設(shè)置。

Sub過程以Sub語句開頭，以End

Sub語句

結(jié)尾，中間是完成某些功能的語句。在

Sub過程中沒有返回值，但常常帶有參數(shù)，如表達(dá)式、變量或常量等，如果在Sub過程中沒有參數(shù)，則在Sub語句必須包含一

個(gè)空的圓括號“（）”。*1．Sub過程Sub過程的定義格式如下：[Private

|

Public][Static]Sub子過程名

([ByVal

|

ByRef][參數(shù)名[As類型]，…])[語句段]

[Exit

Sub][語句段]

End

Sub*1．Sub過程使用Public關(guān)鍵字可以使該子過程適用于所有模塊中的所有其它過程；使用Private關(guān)鍵字可以使該子過程只適用于本模塊中的其它過程；使用Static關(guān)鍵字表示該過程為靜態(tài)過程，所有該過程定義的局部變量都是靜態(tài)變量。過程定義時(shí)可以設(shè)置一個(gè)或多個(gè)參數(shù)，參數(shù)之間用逗號分隔。*1．Sub過程ByVal關(guān)鍵字指定的參數(shù)是按值來傳遞的；按值傳遞方式傳遞的只是變量的副本，如果程序改變了這個(gè)值，所做的變動(dòng)只影響副本而不會(huì)影響變量本身。ByRef關(guān)鍵字指定的參數(shù)是按地址來傳遞的，如果用戶不指定，則為系統(tǒng)默認(rèn)選項(xiàng)。按地址傳遞方式使過程調(diào)用變量的實(shí)際內(nèi)

存地址去訪問實(shí)際變量的內(nèi)容，而不是產(chǎn)

生一個(gè)變量的內(nèi)存副本。過程可以通過對

變量內(nèi)存地址單元的改變，永遠(yuǎn)改變變量

的值。*過程調(diào)用可以從其它過程調(diào)用一個(gè)Sub過程，調(diào)用需要一個(gè)獨(dú)立的語句，調(diào)用Sub過程有兩種形式：Call子過程名（[實(shí)參]）或者子過程名[實(shí)參]*過程調(diào)用舉例*編寫一個(gè)過程，計(jì)算1＋2＋…＋N的和。

Public

Sub

sum(N)S

=

0For

I

=

1

To

NS

=

S

+

INext

IMsgBox

("1+2+3+...+"

&

Str(N)

&

"="&

S)End

Sub過程調(diào)用舉例在窗體上添加一個(gè)命令按鈕，在此命令按鈕上編寫一個(gè)過程，當(dāng)點(diǎn)擊此按鈕時(shí)，要求輸入一個(gè)正整數(shù)M，然后調(diào)用上面的Sum

過程來計(jì)算1＋2＋…＋M的和。Private

Sub

Command0_Click()M=InputBox("輸入一個(gè)正整數(shù)：")

M=Val(M)Sum

M

"或者Call

Sum(M)End

Sub*2．Function過程Function過程也稱為函數(shù)。在前面我們學(xué)習(xí)了許多內(nèi)置函數(shù)，除了這些內(nèi)置函數(shù)，我們可以創(chuàng)建自定義函數(shù)。Function過程以Function語句開頭，以

End

Function語句結(jié)尾，中間是完成某些功能的語句。Function過程與Sub過程很類似，但在Function過程一般有返回值。如果在Function過程中沒有參數(shù)，則在

Function語句必須包含一個(gè)空的圓括號

“（）”。*2．Function過程Function過程的定義格式如下：[Private

|

Public][Static]

Function函數(shù)

([ByVal

|

ByRef][參數(shù)名[As類型]，…])[語句][函數(shù)名＝表達(dá)式]

[Exit

Function]End

Function*2．Function過程Function過程定義語句中的關(guān)鍵字的含義與

Sub過程的相同。Function過程一般有返回值，在格式中“函數(shù)名＝表達(dá)式”表示將表達(dá)式的值賦給函數(shù)名，并由此產(chǎn)生函數(shù)值。函數(shù)的調(diào)用是以表達(dá)式的形式調(diào)用，由于函數(shù)會(huì)返回一個(gè)值，因此可以將函數(shù)的返回值作為賦值賦予某個(gè)變量，其形式為：變量＝函數(shù)名([實(shí)參])。*Function過程舉例*用函數(shù)解決上例的問題。PublicFunction

Sum(N)S=0For

I

=

1

To

N

S

=

S

+

INext

ISum=S

"將計(jì)算結(jié)果返回End

FunctionPrivate

Sub

Command0_Click(

)M=InputBox("輸入一個(gè)正整數(shù)：")M=Val(M)S=

sum(M)MsgBox