如何在Access 2003中創建自定義的工具欄和用於VBA代碼編輯的控件

Question

我想在Ms Access 2003中創建一個自定義菜單來自動處理一些VBA代碼。 很容易創建自定義工具欄和控件，以便與表單，報告等一起使用;我可以在VBA端創建一個可見和可用的工具欄。但是，我沒有成功，無論是通過交互還是通過vba，用自定義（宏）控件填充工具欄，這是我需要做的。尋找幫助總是會導致如何爲數據庫定製工具欄的指示，但不適用於代碼。建議將不勝感激。

Answer 1

從MS網站：http://msdn.microsoft.com/en-us/library/office/aa210698(v=office.11).aspx

'Create a commandbar 
Dim cmb As CommandBar 
Set cmb = Application.CommandBars.Add("MyCommandBar") 
cmb.Visible = True 

'Add a command button 
Dim cbc As CommandBarControl 
Set cbc = cmb.Controls.Add(msoControlButton) 
cbc.Caption = "Button1" 
cbc.Style = msoButtonCaption 

'Add code to execute when button is pressed 
CommandBars("MyCommandBar").Controls("Button1").OnAction = "=MsgBox(""Wow!"")" 

您可以指定替代 「MSGBOX」 的宏。