Barre d'outils en VBA Access 2003
:aie: Bonjour,
Je suis formatrice en bureautique dans une école et j'ai installée une application Access sur des postes du réseau. Je dois pouvoir créer automatiquement une barre d'outils comprenant deux boutons qui seront associées à deux petites macros.
Je ne fais pas de développement mais je suis obligée d'utiliser le VBA pour cette action. Voici la syntaxe mise en œuvre. Pourriez-vous y jeter un coup d'œil et m'aider à rectifier cette syntaxe. J'obtiens la barre d'outils mais je n'arrive pas a avoir le texte des boutons, je n'ai que les info-bulles.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| Set cmb = Application.CommandBars.Add("FILTRE4", , False)
'Syntaxe suivante ne passe pas lors de l'exécution du code, bloque sur msoControlButton :
Set btn = cmb.Controls.Add(msoControlButton)
With btn
.begingroup = True
.Caption = "Modifier le filtre"
.Style = msoButtonCaption
End With
Set btn = cmb.Controls.Add(msoControlButton)
With btn
.begingroup = True
.Caption = "Appliquer le filtre"
.Style = msoButtonCaption
End With
cmb.Visible = True
Application.CommandBars("FILTRE4").Controls(1).onaction = "MODIFIER FILTRE"
Application.CommandBars("FILTRE4").Controls(2).onaction = "APPLIQUER FILTRE" |
Merci par avance pour votre aide, car je désespère un peu et n'arrive pas à terminer cette application pour cela !
Cordialement
BARRE D'OUTILS VBA ACCESS
Bonjour :king: Philippe,
Merci pour ta réponse. Voici la syntaxe complète. En fait, comme je veux attacher ce code à un bouton, je l'ai mis dans les procédures évènementielles et je me retrouve en Private sub. J'ai désactivée les deux syntaxes de déclaration car je n'arrivais pas à avancer. Ne te moques pas, je sais que pour toi cela va te faire hurler de rire !
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
| Private Sub Commande1_Click()
'Syntaxe désactivée :
'cmb As office.commandbar
'btn As office.CommandBarbutton
On Error GoTo Erreur
'Afficher la barre d'outils
Application.CommandBars("FILTRES").Visible = True
Exit Sub
'Création de la barre d'outils
Erreur:
Set cmb = Application.CommandBars.Add("FILTRE4", , False)
Set btn = cmb.Controls.Add()
With btn
.begingroup = True
.Caption = "Modifier le filtre"
.Style = msoButtonIconAndCaption
End With
Set btn = cmb.Controls.Add()
With btn
.begingroup = True
.Caption = "Appliquer le filtre"
.Style = msoButtonIconAndCaption
End With
cmb.Visible = True
Application.CommandBars("FILTRE4").Controls(1).onaction = "MODIFIER FILTRE"
Application.CommandBars("FILTRE4").Controls(2).onaction = "APPLIQUER FILTRE"
End Sub |
