Access宏對象的其他應(yīng)用

會計(jì)學(xué)1Access宏對象的其他應(yīng)用首先,在數(shù)據(jù)庫設(shè)計(jì)視圖宏對象選項(xiàng)卡上選中需要轉(zhuǎn)換為VBA程序的宏對象，然后在窗口菜單欄上依次單擊【工具】|【宏】|【將宏轉(zhuǎn)換為VisualBasic代碼】命令，隨即彈出“轉(zhuǎn)換宏”對話框，單擊其上的“轉(zhuǎn)換”按鈕“”，即完成了將宏轉(zhuǎn)換為VBA程序的過程。第1頁/共16頁例如，可以將“零售商店管理信息系統(tǒng)”數(shù)據(jù)庫中的宏“銷售記錄”轉(zhuǎn)換為對應(yīng)的VBA程序。其操作過程為：在數(shù)據(jù)庫設(shè)計(jì)視圖宏對象選項(xiàng)卡上選中宏“銷售記錄”，在窗口菜單欄上依次單擊【工具】|【宏】|【將宏轉(zhuǎn)換為VisualBasic代碼】命令，隨即彈出的“轉(zhuǎn)換宏”對話框如圖8-15所示。根據(jù)需要在這個(gè)對話框中完成兩個(gè)選項(xiàng)的選定操作后，單擊“轉(zhuǎn)換”按鈕“”，即可將宏對象“銷售記錄”轉(zhuǎn)換成為一個(gè)名為“被轉(zhuǎn)換的宏——銷售記錄”的模塊對象，其間包含著與宏“銷售記錄”的功能完全相同功能的VBA程序代碼。第2頁/共16頁圖8-15“轉(zhuǎn)換宏”對話框

第3頁/共16頁在“轉(zhuǎn)換宏”對話框中有兩個(gè)選項(xiàng)，選中后依次表示：轉(zhuǎn)換形成的VBA程序中包含進(jìn)行出錯(cuò)處理的OnError子程序段；轉(zhuǎn)換形成的VBA程序中包含關(guān)于宏對象的注釋。此處，讓我們來看看轉(zhuǎn)換成的VBA程序代碼，其間包含出錯(cuò)處理程序段和宏注釋。第4頁/共16頁'------------------------------------------------------------'銷售記錄_銷售記錄'------------------------------------------------------------Function銷售記錄_銷售記錄()OnErrorGoTo銷售記錄_銷售記錄_Err'打開“銷售數(shù)據(jù)錄入”窗體

DoCmd.OpenForm"銷售數(shù)據(jù)錄入",acNormal,"","",,acNormalIf(Weekday(Date,2)=7)Then'若逢周日，給出提示

BeepMsgBox"今天周日，客流量較大，辛苦了！",vbOKOnly,"注意："

EndIf第5頁/共16頁銷售記錄_銷售記錄_Exit:ExitFunction銷售記錄_銷售記錄_Err:MsgBoxError$Resume銷售記錄_銷售記錄_ExitEndFunction注意，由宏轉(zhuǎn)換成的VBA程序段是一個(gè)VBA函數(shù)“Function”，其調(diào)用方式不同于VBA子程序“PrivateSub”。第6頁/共16頁如果在一個(gè)Access數(shù)據(jù)庫中創(chuàng)建一個(gè)命名為“AutoExec”的宏對象，將得到這樣一種效果：一旦這個(gè)數(shù)據(jù)庫被打開，AutoExec宏對象中的第一個(gè)宏將得到執(zhí)行。這是因?yàn)?，只要Access得到打開一個(gè)數(shù)據(jù)庫的操作指令，它將在打開這個(gè)數(shù)據(jù)庫后立即去尋找其中是否存在一個(gè)命名為“AutoExec”的宏對象，如果找到，則運(yùn)行它。8.6.2啟動(dòng)時(shí)自動(dòng)運(yùn)行的宏AutoExec第7頁/共16頁合理地使用這個(gè)命名為AutoExec的特殊宏，可在首次打開數(shù)據(jù)庫時(shí)執(zhí)行一個(gè)或一系列的操作，包括某些應(yīng)用系統(tǒng)初始參量的設(shè)定、打開應(yīng)用系統(tǒng)操作主窗口等等。在實(shí)例“零售商店管理信息系統(tǒng)”數(shù)據(jù)庫中，設(shè)計(jì)有一個(gè)名為“AutoExec”的宏對象，其間包含一個(gè)操作：OpenForm"零售商店管理信息系統(tǒng)",acNormal,"","",,acNormal這就使得當(dāng)打開“零售商店管理信息系統(tǒng)”數(shù)據(jù)庫時(shí)，即會自動(dòng)打開數(shù)據(jù)庫窗體“零售商店管理信息系統(tǒng)”，而這個(gè)窗體是整個(gè)數(shù)據(jù)庫應(yīng)用系統(tǒng)的主控窗體。對于一個(gè)可以發(fā)布的數(shù)據(jù)庫應(yīng)用系統(tǒng)，這一項(xiàng)功能是非常必要的。第8頁/共16頁對于一個(gè)包含“AutoExec”宏的Access數(shù)據(jù)庫，如果想在打開數(shù)據(jù)庫時(shí)阻止自動(dòng)運(yùn)行“AutoExec”宏，可在打開數(shù)據(jù)庫時(shí)按住SHIFT鍵不放開，以此來阻止Access自動(dòng)運(yùn)行“AutoExec”宏。除了可以利用“AutoExec”宏實(shí)現(xiàn)打開數(shù)據(jù)庫時(shí)自動(dòng)運(yùn)行一個(gè)應(yīng)用程序以外，Access還提供另外一種實(shí)施方案：通過設(shè)置數(shù)據(jù)庫設(shè)計(jì)視圖窗口菜單欄上的【工具】|【啟動(dòng)】命令，在隨即彈出的“啟動(dòng)”對話框中進(jìn)行合適的選項(xiàng)設(shè)置，也可以控制如何啟動(dòng)數(shù)據(jù)庫或應(yīng)用程序?！皢?dòng)”對話框如圖8-16所示，其中，我們設(shè)置啟動(dòng)顯示窗體為“零售商店管理信息系統(tǒng)”。第9頁/共16頁圖8-16用于設(shè)置啟動(dòng)程序的“啟動(dòng)”對話框

第10頁/共16頁在一般Windows應(yīng)用程序中，為了使用剪貼板進(jìn)行對象的復(fù)制粘貼操作，除了可以利用菜單選項(xiàng)或工具按鈕實(shí)現(xiàn)以外，可能很多人都知道“^C”是復(fù)制操作的組合式快捷鍵、“^V”是粘貼操作的組合式快捷鍵，且非常習(xí)慣于使用它們。那么，在一個(gè)Access數(shù)據(jù)庫應(yīng)用系統(tǒng)中，是否也可能出現(xiàn)對這種組合式快捷鍵的應(yīng)用需求呢？如果確實(shí)有這樣的需求，又該如何滿足它呢？8.6.3響應(yīng)組合鍵的宏組AutoKeys第11頁/共16頁為了滿足這種對于組合式快捷鍵的應(yīng)用需求，Access提供了另一個(gè)特殊的宏對象名“AutoKeys”。在命名為“AutoKeys”的宏對象中，我們可以采用宏組的形式定義某些組合鍵按下后應(yīng)該進(jìn)行的操作，從而為Access數(shù)據(jù)庫應(yīng)用系統(tǒng)提供一整套組合式快捷鍵功能。第12頁/共16頁例如:在實(shí)例“零售商店管理信息系統(tǒng)”數(shù)據(jù)庫中，設(shè)計(jì)有一個(gè)名為“AutoKeys”的宏對象，其間包含五個(gè)宏，每個(gè)宏包含一個(gè)“RunMacro”操作，分別定義了：“^g”組合鍵執(zhí)行宏“柜存信息”，“^j”組合鍵執(zhí)行宏“進(jìn)貨數(shù)據(jù)”，“^k”組合鍵執(zhí)行宏“庫存數(shù)據(jù)”，“^s”組合鍵執(zhí)行宏“上柜數(shù)據(jù)”，“^x”組合鍵執(zhí)行宏“銷售數(shù)據(jù)”。在這個(gè)宏對象的支持下，按下上述任一組合鍵即可運(yùn)行相應(yīng)的宏，而這些宏又都分別包含打開某一個(gè)窗體對象的操作，因此使得打開相應(yīng)窗體對象的操作可以采用上述快捷鍵的方式進(jìn)行，從而方便了操作者的操作過程。

實(shí)例“零售商店管理信息系統(tǒng)

”數(shù)據(jù)庫中的宏對象“AutoKeys”設(shè)計(jì)視圖及其對應(yīng)操作參數(shù)設(shè)置如圖8-17所示。第13頁/共16頁圖8-17“AutoKeys”設(shè)計(jì)視圖及其對應(yīng)操作參數(shù)設(shè)置

第14頁/共16頁