學習access-access2007循序漸進教程第7章

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

匹配的條件，則執(zhí)行CaseElse語句，然后程序將執(zhí)行EndSelect語句后MsgBox"YougotanAonthetest."Case80To89MsgBox"YougotaBonthetest."Case60To79MsgBox"YougotaConthetest."CaseElseMsgBox"Youfailed."EndSelect[Exit[ExitDo]For...NextFor循環(huán)控制變量=ToStep步長其中，“Step步長”可以省略，省略時步長為1。在循環(huán)中可以通過ExitFor跳出循環(huán)體，下面的例子Fori=1To100Step2 With<對象 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ù)行號，它可以把7.3.1模塊簡將VBA、表達式和程序作為一個單元進行保模塊由一個通用部分以及一個或多個子程序或函數(shù)組成的。模塊的通用部分用來對要在據(jù)類型以及模塊級的Option語句進行。其它部分7.3.2創(chuàng)建具 驗證的主窗體模115523

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

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

99

雙擊打開 窗體

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

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

1123印個人”按 5

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

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