2013-03-10 3 views
0

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

ответ

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

 Смежные вопросы

  • Нет связанных вопросов^_^