1、 由于宏的設(shè)計(jì)過程是一個(gè)人機(jī)對(duì)話的過程，它不要求設(shè)計(jì)者刻意地記憶命令、參數(shù)及其相關(guān)語法，因此是一種非常方便的編程工具。實(shí)際上，宏本身就是程序，只不過是一種控制(kngzh)方式簡單的程序而已。它由若干操作組成，一般情況下采用順序執(zhí)行的方式運(yùn)行，也可以通過設(shè)置操作執(zhí)行的條件來實(shí)現(xiàn)操作執(zhí)行順序的跳轉(zhuǎn)。 自然會(huì)考慮能否利用宏設(shè)計(jì)視圖以人機(jī)對(duì)話的方式設(shè)計(jì)宏，然后將其轉(zhuǎn)換為對(duì)應(yīng)的VBA程序 .8.6.1 8.6.1 利用利用(lyng)(lyng)宏生成宏生成VBAVBA程序代碼程序代碼 第1頁/共17頁第一頁，共18頁。 首先首先,在數(shù)據(jù)庫設(shè)計(jì)視圖宏對(duì)象選項(xiàng)卡上選中需要在數(shù)據(jù)庫設(shè)計(jì)視圖宏對(duì)象選項(xiàng)卡上選

2、中需要(xyo)轉(zhuǎn)換為轉(zhuǎn)換為VBA程序的宏對(duì)象，然后在窗口菜單欄上依次單擊【工具】程序的宏對(duì)象，然后在窗口菜單欄上依次單擊【工具】|【宏】【宏】|【將宏【將宏轉(zhuǎn)換為轉(zhuǎn)換為Visual Basic代碼】命令，隨即彈出代碼】命令，隨即彈出“轉(zhuǎn)換宏轉(zhuǎn)換宏”對(duì)話框，單擊其上對(duì)話框，單擊其上的的“轉(zhuǎn)換轉(zhuǎn)換”按鈕按鈕“ ”，即完成了將宏轉(zhuǎn)換為，即完成了將宏轉(zhuǎn)換為VBA程序的過程。程序的過程。 第2頁/共17頁第二頁，共18頁。 例如，可以將例如，可以將“零售商店管理信息系零售商店管理信息系統(tǒng)統(tǒng)”數(shù)據(jù)庫中的宏數(shù)據(jù)庫中的宏“銷售記錄銷售記錄”轉(zhuǎn)換為對(duì)應(yīng)的轉(zhuǎn)換為對(duì)應(yīng)的VBA程序。其操作過程為：在數(shù)據(jù)庫設(shè)計(jì)視圖程

3、序。其操作過程為：在數(shù)據(jù)庫設(shè)計(jì)視圖宏對(duì)象選項(xiàng)卡上選中宏宏對(duì)象選項(xiàng)卡上選中宏“銷售記錄銷售記錄”，在窗口，在窗口菜單欄上依次單擊【工具】菜單欄上依次單擊【工具】|【宏】【宏】|【將宏轉(zhuǎn)【將宏轉(zhuǎn)換為換為Visual Basic代碼】命令，隨即彈出的代碼】命令，隨即彈出的“轉(zhuǎn)換宏轉(zhuǎn)換宏”對(duì)話框如圖對(duì)話框如圖8-15所示。根據(jù)需要在所示。根據(jù)需要在這個(gè)對(duì)話框中完成兩個(gè)這個(gè)對(duì)話框中完成兩個(gè)(lin )選項(xiàng)的選定選項(xiàng)的選定操作后，單擊操作后，單擊“轉(zhuǎn)換轉(zhuǎn)換”按鈕按鈕“ ”，即可將宏對(duì)象即可將宏對(duì)象“銷售記錄銷售記錄”轉(zhuǎn)換成為一個(gè)名為轉(zhuǎn)換成為一個(gè)名為“被轉(zhuǎn)換的宏被轉(zhuǎn)換的宏銷售記錄銷售記錄”的模塊對(duì)象，其的模

4、塊對(duì)象，其間包含著與宏間包含著與宏“銷售記錄銷售記錄”的功能完全相同功的功能完全相同功能的能的VBA程序代碼。程序代碼。 第3頁/共17頁第三頁，共18頁。圖圖8-15 “8-15 “轉(zhuǎn)換轉(zhuǎn)換(zhunhun)(zhunhun)宏宏”對(duì)話框?qū)υ捒?第4頁/共17頁第四頁，共18頁。 在“轉(zhuǎn)換宏”對(duì)話框中有兩個(gè)選項(xiàng)，選中后依次表示：轉(zhuǎn)換形成(xngchng)的VBA程序中包含進(jìn)行出錯(cuò)處理的On Error子程序段；轉(zhuǎn)換形成(xngchng)的VBA程序中包含關(guān)于宏對(duì)象的注釋。 此處，讓我們來看看轉(zhuǎn)換成的VBA程序代碼，其間包含出錯(cuò)處理程序段和宏注釋。 第5頁/共17頁第五頁，共18頁。- 銷售記

5、錄(jl)_銷售記錄(jl)-Function 銷售記錄(jl)_銷售記錄(jl)()On Error GoTo 銷售記錄( jl)_銷售記錄(jl)_Err 打開“銷售數(shù)據(jù)錄入”窗體 D o C m d . O p e n F o r m 銷 售 數(shù) 據(jù) 錄 入 , acNormal, , , , acNormal If (Weekday(Date, 2) = 7) Then 若逢周日，給出提示 Beep MsgBox 今天周日，客流量較大，辛苦了！, vbOKOnly, 注意： End If第6頁/共17頁第六頁，共18頁。銷售記錄_銷售記錄_Exit: Exit Function銷售記錄

6、_銷售記錄_Err: MsgBox Error$ Resume 銷售記錄_銷售記錄_ExitEnd Function注意，由宏轉(zhuǎn)換成的VBA程序段是一個(gè)VBA函數(shù)(hnsh)“Function”，其調(diào)用方式不同于VBA子程序“Private Sub”。第7頁/共17頁第七頁，共18頁。 如果在一個(gè)Access數(shù)據(jù)庫中創(chuàng)建一個(gè)命名為“AutoExec”的宏對(duì)象，將得到這樣一種效果：一旦這個(gè)數(shù)據(jù)庫被打開，AutoExec宏對(duì)象中的第一個(gè)宏將得到執(zhí)行。這是因?yàn)椋灰狝ccess得到打開一個(gè)數(shù)據(jù)庫的操作(cozu)指令，它將在打開這個(gè)數(shù)據(jù)庫后立即去尋找其中是否存在一個(gè)命名為“AutoExec”的宏對(duì)象

7、，如果找到，則運(yùn)行它。 8.6.2 8.6.2 啟動(dòng)時(shí)自動(dòng)啟動(dòng)時(shí)自動(dòng)(zdng)(zdng)運(yùn)行的宏運(yùn)行的宏AutoExec AutoExec 第8頁/共17頁第八頁，共18頁。合理地使用這個(gè)命名為AutoExec的特殊宏，可在首次打開數(shù)據(jù)庫時(shí)執(zhí)行一個(gè)或一系列的操作，包括某些應(yīng)用系統(tǒng)初始參量的設(shè)定、打開應(yīng)用系統(tǒng)操作主窗口等等。在實(shí)例(shl)“零售商店管理信息系統(tǒng)”數(shù)據(jù)庫中，設(shè)計(jì)有一個(gè)名為“AutoExec”的宏對(duì)象，其間包含一個(gè)操作：OpenForm 零售商店管理信息系統(tǒng), acNormal, , , , acNormal 這就使得當(dāng)打開“零售商店管理信息系統(tǒng)”數(shù)據(jù)庫時(shí)，即會(huì)自動(dòng)打開數(shù)據(jù)庫窗

8、體“零售商店管理信息系統(tǒng)”，而這個(gè)窗體是整個(gè)數(shù)據(jù)庫應(yīng)用系統(tǒng)的主控窗體。對(duì)于一個(gè)可以發(fā)布的數(shù)據(jù)庫應(yīng)用系統(tǒng)，這一項(xiàng)功能是非常必要的。 第9頁/共17頁第九頁，共18頁。 對(duì)于一個(gè)包含“AutoExec”宏的Access數(shù)據(jù)庫，如果想在打開(d ki)數(shù)據(jù)庫時(shí)阻止自動(dòng)運(yùn)行“AutoExec”宏，可在打開(d ki)數(shù)據(jù)庫時(shí)按住SHIFT鍵不放開，以此來阻止Access自動(dòng)運(yùn)行“AutoExec”宏。 除了可以利用“AutoExec”宏實(shí)現(xiàn)打開(d ki)數(shù)據(jù)庫時(shí)自動(dòng)運(yùn)行一個(gè)應(yīng)用程序以外，Access還提供另外一種實(shí)施方案：通過設(shè)置數(shù)據(jù)庫設(shè)計(jì)視圖窗口菜單欄上的【工具】|【啟動(dòng)】命令，在隨即彈出的“啟動(dòng)

9、”對(duì)話框中進(jìn)行合適的選項(xiàng)設(shè)置，也可以控制如何啟動(dòng)數(shù)據(jù)庫或應(yīng)用程序。“啟動(dòng)”對(duì)話框如圖8-16所示，其中，我們?cè)O(shè)置啟動(dòng)顯示窗體為“零售商店管理信息系統(tǒng)”。 第10頁/共17頁第十頁，共18頁。圖圖8-16 8-16 用于設(shè)置用于設(shè)置(shzh)(shzh)啟動(dòng)程序的啟動(dòng)程序的“啟動(dòng)啟動(dòng)”對(duì)話框?qū)υ捒?第11頁/共17頁第十一頁，共18頁。 在一般Windows應(yīng)用程序中，為了使用剪貼板進(jìn)行對(duì)象的復(fù)制粘貼操作，除了可以利用菜單選項(xiàng)或工具按鈕實(shí)現(xiàn)以外，可能很多人都知道“C”是復(fù)制操作的組合式快捷鍵、“V”是粘貼操作的組合式快捷鍵，且非常習(xí)慣于使用它們。那么(n me)，在一個(gè)Access數(shù)據(jù)庫應(yīng)用系

10、統(tǒng)中，是否也可能出現(xiàn)對(duì)這種組合式快捷鍵的應(yīng)用需求呢？如果確實(shí)有這樣的需求，又該如何滿足它呢？ 8.6.3 8.6.3 響應(yīng)響應(yīng)(xingyng)(xingyng)組合鍵的宏組組合鍵的宏組AutoKeys AutoKeys 第12頁/共17頁第十二頁，共18頁。 為了滿足這種對(duì)于組合式快捷鍵的應(yīng)用需求，Access提供了另一個(gè)特殊(tsh)的宏對(duì)象名“AutoKeys”。在命名為“AutoKeys”的宏對(duì)象中，我們可以采用宏組的形式定義某些組合鍵按下后應(yīng)該進(jìn)行的操作，從而為Access數(shù)據(jù)庫應(yīng)用系統(tǒng)提供一整套組合式快捷鍵功能。 第13頁/共17頁第十三頁，共18頁。 例如例如(lr):在實(shí)例在實(shí)

11、例“零售商店管理信息零售商店管理信息系統(tǒng)系統(tǒng) ”數(shù)據(jù)庫中，設(shè)計(jì)有一個(gè)名為數(shù)據(jù)庫中，設(shè)計(jì)有一個(gè)名為“AutoKeys”的宏對(duì)象，其間包含五個(gè)宏，每的宏對(duì)象，其間包含五個(gè)宏，每個(gè)宏包含一個(gè)個(gè)宏包含一個(gè)“RunMacro”操作，分別定義操作，分別定義了：了：“g”組合鍵執(zhí)行宏組合鍵執(zhí)行宏“柜存信息柜存信息”，“j”組合鍵執(zhí)行宏組合鍵執(zhí)行宏“進(jìn)貨數(shù)據(jù)進(jìn)貨數(shù)據(jù)”，“k”組合鍵執(zhí)組合鍵執(zhí)行宏行宏“庫存數(shù)據(jù)庫存數(shù)據(jù)”，“s”組合鍵執(zhí)行宏組合鍵執(zhí)行宏“上上柜數(shù)據(jù)柜數(shù)據(jù)”，“x”組合鍵執(zhí)行宏組合鍵執(zhí)行宏“銷售數(shù)據(jù)銷售數(shù)據(jù)”。在這個(gè)宏對(duì)象的支持下，按下上述任一組合鍵即在這個(gè)宏對(duì)象的支持下，按下上述任一組合鍵即可運(yùn)

12、行相應(yīng)的宏，而這些宏又都分別包含打開某可運(yùn)行相應(yīng)的宏，而這些宏又都分別包含打開某一個(gè)窗體對(duì)象的操作，因此使得打開相應(yīng)窗體對(duì)一個(gè)窗體對(duì)象的操作，因此使得打開相應(yīng)窗體對(duì)象的操作可以采用上述快捷鍵的方式進(jìn)行，從而象的操作可以采用上述快捷鍵的方式進(jìn)行，從而方便了操作者的操作過程。方便了操作者的操作過程。 實(shí)例實(shí)例“零售商店管理信息系統(tǒng)零售商店管理信息系統(tǒng) ”數(shù)據(jù)庫中的宏數(shù)據(jù)庫中的宏對(duì)象對(duì)象“AutoKeys”設(shè)計(jì)視圖及其對(duì)應(yīng)操作參數(shù)設(shè)計(jì)視圖及其對(duì)應(yīng)操作參數(shù)設(shè)置如圖設(shè)置如圖8-17所示。所示。 第14頁/共17頁第十四頁，共18頁。圖圖8-17 “AutoKeys”8-17 “AutoKeys”設(shè)計(jì)視圖

13、及其對(duì)設(shè)計(jì)視圖及其對(duì)應(yīng)應(yīng)(duyng)(duyng)操作參數(shù)設(shè)置操作參數(shù)設(shè)置 第15頁/共17頁第十五頁，共18頁。 注意注意:Access:Access本身已經(jīng)具有一些默認(rèn)的組合式快捷鍵功能，如果本身已經(jīng)具有一些默認(rèn)的組合式快捷鍵功能，如果(rgu)(rgu)利用利用AutoKeysAutoKeys宏對(duì)象定義的組合式快捷鍵與某一些宏對(duì)象定義的組合式快捷鍵與某一些AccessAccess默認(rèn)默認(rèn)的組合式快捷鍵功能沖突，則利用的組合式快捷鍵功能沖突，則利用AutoKeysAutoKeys宏對(duì)象定義的組合式快捷鍵功宏對(duì)象定義的組合式快捷鍵功能有效，而那些能有效，而那些AccessAccess默認(rèn)的組合式快捷鍵功能無效。默認(rèn)的組合式快捷鍵功能無效。 第16頁/共17頁第十六頁，共18頁。感謝您的觀看(gunkn)！第17頁/共17頁第十七頁