Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access barre menus

barre menus

4 réponses
Avatar
Patrice
Bonjour,
Comment faire disparaitre la barre de menu g=E9n=E9rale=20
d'access sur un formulaire sans que celui-ci soit=20
ind=E9pendant ?

J'ai bien trouv=E9 cette phrase ds l'aide:

"Si vous attribuez =E0 la propri=E9t=E9 BarreMenus (MenuBar) une=20
valeur qui ne correspond pas au nom existant d'une barre=20
de menus ou d'une macro de barre de menus existante, le=20
formulaire ou l'=E9tat ne comportera pas de barre de menus=20
(la barre de menus par d=E9faut ne s'affichera pas)."

mais cela me g=E9n=E8re une anomalie !

Merci pour votre aide
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jean
Bonjour Patrice,

Pour masquer / afficher la barre de menu Access j'utilise
cette fonction au sein d'un formulaire :

Dim CB As CommandBar

Private Sub BtMasquer_Click()

For Each CB In CommandBars
If CB.Name = "Menu Bar" Then
CB.Enabled = False ' True pour la faire apparaître
GoTo Suite
End If
Next CB

Suite:
DoCmd.Close

End Sub

Elle masque la barre de menu principale d'Access et me
permet d'imposer ma propre barre de menu.

A+ Jean.
Avatar
Patrice
merci, mais beugue : "commanbar type non défini"!!


-----Message d'origine-----
Bonjour Patrice,

Pour masquer / afficher la barre de menu Access j'utilise
cette fonction au sein d'un formulaire :

Dim CB As CommandBar

Private Sub BtMasquer_Click()

For Each CB In CommandBars
If CB.Name = "Menu Bar" Then
CB.Enabled = False ' True pour la faire apparaître
GoTo Suite
End If
Next CB

Suite:
DoCmd.Close

End Sub

Elle masque la barre de menu principale d'Access et me
permet d'imposer ma propre barre de menu.

A+ Jean.
.



Avatar
Jean
Pardon j'ai oublié de te préciser que tu dois référencer
la bibliothèque Office.

En VBA : Outils / Références / "Microsoft Office 9.0
Object library" à cocher.

A+ Jean.
Avatar
Raymond [mvp]
Bonsoir.

on peut faire plus simple en utilisant :
DoCmd.ShowToolbar "menu bar", acToolbarNo
sans références spéciales.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Jean" a écrit dans le message de
news:149301c3e030$a16e7a90$
Pardon j'ai oublié de te préciser que tu dois référencer
la bibliothèque Office.

En VBA : Outils / Références / "Microsoft Office 9.0
Object library" à cocher.

A+ Jean.