學(xué)習(xí)access-access2007循序漸進(jìn)教程第7章

第7章學(xué)習(xí)使用 “ 業(yè)”——VBA程序的調(diào)“超級(jí)貨架”——什么是VBA（VisualBasicforApplication）是在Access2007中，VBA的功能是通過模塊來實(shí)現(xiàn)的。事實(shí)上，在Access2007中，程序設(shè)計(jì)的工作就是編寫模塊和事件過程。如下圖所示為Access2007中VBA程序的編源代碼 7.2.1變量和常是用來數(shù)據(jù)的。變量的是經(jīng)常需要變動(dòng)的數(shù)據(jù)，常量的是不用改變的數(shù)據(jù)（或?qū)ο螅┳兞吭谥氨仨毐?，一個(gè)變量就是事先將變量的有關(guān)信息告訴程序，變量要使Dim[As類型以上語句中的“As類型”子句是可選的。如果DimStr1As 在VBA中 Const[As類型]＝在這個(gè)表達(dá)式中，“常量名”名規(guī)則同變量PublicConst 7.2.2流程控制語時(shí)要做出什么樣的動(dòng)作。就像一個(gè)交通指揮本節(jié)主要介紹If語句、SelectCase語句、Do...Loop語句、For...Next語句、GoTo語句以IfI們通常的語言 和思維 。如i（如）綠燈，he么）車可以，els（則）車輛要等待行人通過。if條件then該條件產(chǎn)生的結(jié)果（過程語句if條件endifif條件1endifSelectCase組，這就是SelectCase語句。它的語法如下：SelectCase[Case表達(dá)式列表1[Case表達(dá)式列表2[Case表達(dá)式列表nEnd下面的實(shí)例可以使我們進(jìn)一步了解SelectCaseDimScoreAsIntegerSelectCaseScoreCaseIs>=

匹配的條件，則執(zhí)行CaseElse語句，然后程序?qū)?zhí)行EndSelect語句后MsgBox"YougotanAonthetest."Case80To89MsgBox"YougotaBonthetest."Case60To79MsgBox"YougotaConthetest."CaseElseMsgBox"Youfailed."EndSelect[Exit[ExitDo]For...NextFor循環(huán)控制變量=ToStep步長其中，“Step步長”可以省略，省略時(shí)步長為1。在循環(huán)中可以通過ExitFor跳出循環(huán)體，下面的例子Fori=1To100Step2 With<對(duì)象 EndWithWith End7.2.3過程與函SubcmdSmallFont_Click()WithSelection.FontEndEnd 通常用 [Private|Public|Friend][Static]Subname（arglist）End [Public|Private|Friend][Static]Functionname[(arglist)][Astype][ExitFunction]EndFunction

7.2.4注釋語Dim

7.2.5語句的連寫和換DimMyNOAsStringDimMyNoAs_”，比如下面的例子。PublicConstDate=#1/1/2000#,Author="Nancy空格加下劃線（“_”）被稱為續(xù)行號(hào)，它可以把7.3.1模塊簡將VBA、表達(dá)式和程序作為一個(gè)單元進(jìn)行保模塊由一個(gè)通用部分以及一個(gè)或多個(gè)子程序或函數(shù)組成的。模塊的通用部分用來對(duì)要在據(jù)類型以及模塊級(jí)的Option語句進(jìn)行。其它部分7.3.2創(chuàng)建具 驗(yàn)證的主窗體模115523

將組合框的修改為“請選擇

單擊“數(shù)據(jù) ，447768

99

雙擊打開 窗體

7.3.3創(chuàng)建查詢窗體模134工：”的文4

66（Click）事件編寫“Text2.Value”PrimaryKey人事表“)5 7.3.4邊學(xué)邊練：使用VBA增加“計(jì)件

1123印個(gè)人”按 5

67作”函數(shù)，完成代 2另外需要定義兩個(gè)函數(shù)――“chaxun”和“chaxun2”（至于代碼請到書中

1 122 除的過程。以下我們從調(diào)試及功能、設(shè)置斷點(diǎn)、和設(shè)置監(jiān)視點(diǎn)等方面對(duì)VBA程序調(diào)試進(jìn)行