如何创建自定义工具栏和控件，以便在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”。