Je veux utiliser dans les paramètres des formulaires une barre de menu
contextuelle différente pour chaque formulaire que je vais ouvrir. J'ai déjà
crée un menu contextuel dans la barre Menu contextuel d'ACCESS. C'est le seul
menu accessible dans la liste déroulant des paramètres du formulaire.
Comment peut-on créer d'autres menus contextuels, sachant que je ne peux pas
en rajouter dans la barre des menus contextuels d'ACCESS
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
crinblanc
Cette méthode crée une nouvelle barre de commandes et l'ajoute à la collection de barres de commandes. Elle renvoie un objet CommandBar.
expression.Add(Name, Position, MenuBar, Temporary) expression Obligatoire. Expression qui renvoie un objet CommandBars.
Name Argument de type Variant facultatif. Nom de la nouvelle barre de commandes. Si vous ne spécifiez pas cet argument, un nom par défaut est affecté à la barre de commandes (tel que Custom 1).
Position Argument de type Variant facultatif. Position ou type de la nouvelle barre de commandes. Il peut s'agir de l'une des constantes MsoBarPosition répertoriées dans le tableau suivant :
Constante Description msoBarLeft, msoBarTop, msoBarRight, msoBarBottom Indique les coordonnées de gauche, du haut, de droite et du bas de la barre msoBarFloating Indique que la barre ne sera pas ancrée msoBarPopup Indique qu'il s'agit d'un menu contextuel msoBarMenuBar Disponible uniquement sur Macintosh
MenuBar Argument de type Variant facultatif. Affectez-lui la valeur True pour remplacer la barre de menus active par la nouvelle barre de commandes. La valeur par défaut est False.
Temporary Argument de type Variant facultatif. Affectez-lui la valeur True s'il s'agit d'une barre temporaire. Les barres de commandes temporaires sont supprimées lors de la fermeture de l'application. La valeur par défaut est False.
Dim customBar As CommandBar Dim newButton As CommandBarButton Set customBar = CommandBars.Add("Custom") Set newButton = customBar.Controls _ .Add(msoControlButton, CommandBars("Edit") _ .Controls("Cut").Id) Set newButton = customBar.Controls _ .Add(msoControlButton, CommandBars("Edit") _ .Controls("Copy").Id) Set newButton = customBar.Controls _ .Add(msoControlButton, CommandBars("Edit") _ .Controls("Paste").Id) customBar.Visible = True
"AP" wrote:
Je veux utiliser dans les paramètres des formulaires une barre de menu contextuelle différente pour chaque formulaire que je vais ouvrir. J'ai déjà crée un menu contextuel dans la barre Menu contextuel d'ACCESS. C'est le seul menu accessible dans la liste déroulant des paramètres du formulaire.
Comment peut-on créer d'autres menus contextuels, sachant que je ne peux pas en rajouter dans la barre des menus contextuels d'ACCESS
Merci pour les infos
Cette méthode crée une nouvelle barre de commandes et l'ajoute à la
collection de barres de commandes. Elle renvoie un objet CommandBar.
expression.Add(Name, Position, MenuBar, Temporary)
expression Obligatoire. Expression qui renvoie un objet CommandBars.
Name Argument de type Variant facultatif. Nom de la nouvelle barre de
commandes. Si vous ne spécifiez pas cet argument, un nom par défaut est
affecté à la barre de commandes (tel que Custom 1).
Position Argument de type Variant facultatif. Position ou type de la
nouvelle barre de commandes. Il peut s'agir de l'une des constantes
MsoBarPosition répertoriées dans le tableau suivant :
Constante Description
msoBarLeft, msoBarTop, msoBarRight, msoBarBottom Indique les coordonnées de
gauche, du haut, de droite et du bas de la barre
msoBarFloating Indique que la barre ne sera pas ancrée
msoBarPopup Indique qu'il s'agit d'un menu contextuel
msoBarMenuBar Disponible uniquement sur Macintosh
MenuBar Argument de type Variant facultatif. Affectez-lui la valeur True
pour remplacer la barre de menus active par la nouvelle barre de commandes.
La valeur par défaut est False.
Temporary Argument de type Variant facultatif. Affectez-lui la valeur
True s'il s'agit d'une barre temporaire. Les barres de commandes temporaires
sont supprimées lors de la fermeture de l'application. La valeur par défaut
est False.
Dim customBar As CommandBar
Dim newButton As CommandBarButton
Set customBar = CommandBars.Add("Custom")
Set newButton = customBar.Controls _
.Add(msoControlButton, CommandBars("Edit") _
.Controls("Cut").Id)
Set newButton = customBar.Controls _
.Add(msoControlButton, CommandBars("Edit") _
.Controls("Copy").Id)
Set newButton = customBar.Controls _
.Add(msoControlButton, CommandBars("Edit") _
.Controls("Paste").Id)
customBar.Visible = True
"AP" wrote:
Je veux utiliser dans les paramètres des formulaires une barre de menu
contextuelle différente pour chaque formulaire que je vais ouvrir. J'ai déjà
crée un menu contextuel dans la barre Menu contextuel d'ACCESS. C'est le seul
menu accessible dans la liste déroulant des paramètres du formulaire.
Comment peut-on créer d'autres menus contextuels, sachant que je ne peux pas
en rajouter dans la barre des menus contextuels d'ACCESS
Cette méthode crée une nouvelle barre de commandes et l'ajoute à la collection de barres de commandes. Elle renvoie un objet CommandBar.
expression.Add(Name, Position, MenuBar, Temporary) expression Obligatoire. Expression qui renvoie un objet CommandBars.
Name Argument de type Variant facultatif. Nom de la nouvelle barre de commandes. Si vous ne spécifiez pas cet argument, un nom par défaut est affecté à la barre de commandes (tel que Custom 1).
Position Argument de type Variant facultatif. Position ou type de la nouvelle barre de commandes. Il peut s'agir de l'une des constantes MsoBarPosition répertoriées dans le tableau suivant :
Constante Description msoBarLeft, msoBarTop, msoBarRight, msoBarBottom Indique les coordonnées de gauche, du haut, de droite et du bas de la barre msoBarFloating Indique que la barre ne sera pas ancrée msoBarPopup Indique qu'il s'agit d'un menu contextuel msoBarMenuBar Disponible uniquement sur Macintosh
MenuBar Argument de type Variant facultatif. Affectez-lui la valeur True pour remplacer la barre de menus active par la nouvelle barre de commandes. La valeur par défaut est False.
Temporary Argument de type Variant facultatif. Affectez-lui la valeur True s'il s'agit d'une barre temporaire. Les barres de commandes temporaires sont supprimées lors de la fermeture de l'application. La valeur par défaut est False.
Dim customBar As CommandBar Dim newButton As CommandBarButton Set customBar = CommandBars.Add("Custom") Set newButton = customBar.Controls _ .Add(msoControlButton, CommandBars("Edit") _ .Controls("Cut").Id) Set newButton = customBar.Controls _ .Add(msoControlButton, CommandBars("Edit") _ .Controls("Copy").Id) Set newButton = customBar.Controls _ .Add(msoControlButton, CommandBars("Edit") _ .Controls("Paste").Id) customBar.Visible = True
"AP" wrote:
Je veux utiliser dans les paramètres des formulaires une barre de menu contextuelle différente pour chaque formulaire que je vais ouvrir. J'ai déjà crée un menu contextuel dans la barre Menu contextuel d'ACCESS. C'est le seul menu accessible dans la liste déroulant des paramètres du formulaire.
Comment peut-on créer d'autres menus contextuels, sachant que je ne peux pas en rajouter dans la barre des menus contextuels d'ACCESS