OVH Cloud OVH Cloud

Menus contextuels ACCESS2000

1 réponse
Avatar
AP
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

1 réponse

Avatar
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