vba - 如何在 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”。