Comment créer une barre d'outils personnalisée et des contrôles à utiliser avec la modification de code VBA dans Access 2003

Question

Je souhaite créer un menu personnalisé dans Ms Access 2003 pour automatiser le traitement du code VBA. Il est facile de créer une barre d'outils personnalisée et des contrôles à utiliser avec des formulaires, des rapports, etc. et je peux créer une barre d'outils visible et utilisable du côté VBA. Mais je n'ai pas réussi, ni par interaction ni par vba, à peupler la barre d'outils avec des contrôles (macro) personnalisés, ce que je dois faire. La recherche d'aide conduit toujours à des instructions sur la façon de personnaliser les barres d'outils pour la base de données, mais PAS pour le code. Des conseils seraient très appréciés.

Answer 1

Depuis le site Web 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!"")" 

Vous pouvez spécifier une macro à la place du "MsgBox".