Как создать настраиваемую панель инструментов и элементы управления для использования с редактированием кода VBA в Access 2003

Я хочу создать пользовательское меню в Ms Access 2003, чтобы автоматизировать некоторую обработку кода VBA. Легко создать собственную панель инструментов и элементы управления для использования с формами, отчетами и т. Д.; и я могу создать панель инструментов, видимую и пригодную для использования на стороне VBA. Но мне не удалось ни с помощью взаимодействия, ни с помощью vba заполнить панель инструментов пользовательскими (макро) элементами управления, что мне и нужно сделать. Поиск справки всегда приводит к инструкциям по настройке панелей инструментов для базы данных, но НЕ для кода. Совет будет высоко ценится.

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".

Другие вопросы по тегам