Discussion :

[modus57]

Bonjour le forum.

Comment ajouter les boutons "Mode formulaire" et "Mode feuille de données" à la barre de menus à l'ouverture de la base.

Je n'ai pas trouvé de réponse dans le forum, quelqu'un pourrait-il m'aiguiller.

Merci d'avance.

[mout1234]

Bonsoir,

Je suppose que cela est possible en naviguant par code dans les collections d'objets représentant les barre d'outils mais on raisonne plus classiquement en créant une barre personnalisée adaptée plutôt que de personnaliser une barre standard.

[Renardo]

Regarde a cette adresse cela t'aidera peut etre
http://warin.developpez.com/access/tutorielcontext1/

[modus57]

Bonsoir à tous.

Je suppose que cela est possible en naviguant par code dans les collections d'objets représentant les barre d'outils mais on raisonne plus classiquement en créant une barre personnalisée adaptée plutôt que de personnaliser une barre standard.

Voila le bout de code qui permet de d'ajouter le bouton le bouton FaceId = 502 "Mode formulaire" et le bouton FaceId = 498 "Mode feuille de données"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub BarrePersoMenus()
    Set myMenuBar = CommandBars.ActiveMenuBar
    Set newMenu1 = myMenuBar.Controls.Add(Type:=msoControlButton, Id:=502, Temporary:=True)
    Set newMenu2 = myMenuBar.Controls.Add(Type:=msoControlButton, Id:=498, Temporary:=True)
End Sub

Comment faire pour ajouter un troisième bouton qui permet de fermer la fenêtre active.

Auriez-vous une réponse.

@ ++