OVH Cloud OVH Cloud

BARRE OUTILS

2 réponses
Avatar
lou
bonjour
dans access 2000
j'ai une barre outils personalise qui s'appelle "SD"
je la fait apparaitre en cliquant sur le coté droit de la souris

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single,
Y As Single)


If Button = 2 Then

Application.CommandBars("SD").Visible = True
End If
End Sub


jusque la c'est impec
le probleme c'est quelle se fige sur le formulaire a une plce fixe
j'aimerais qu'elle aparaisse a l'endroit du formulaire ou je clic avec la
souris(en fait quelle suive le pointeur de la souris)

comment faire?

MERCI POUR VOTRE AIDE

2 réponses

Avatar
Evaro
Bonjour,
Si j'ai bien compris, tu veux ajouter un menu contextuel ;
Pas besoin de réinventer l'eau chaude chaque matin,
les menus contextuels personnalisés sont intégérés dans Access,
mais la porte d'entrée n'est pas facile à trouver...
Clic droit sur les barres d'Outils, Personnaliser, onglet Barre d'outils
Cocher "Menus Contextuels" ; une barre d'outils apparaît ;
clic sur Nouvelle et donne un nom à ta barre d'outils,
par exemple "SD2" et Valide.
Ta nouvelle barre est maintenant sélectionnée, clic sur Propriétés
Type : Fenêtre indépendante (au lieu de Barre d'outils)
Ta Barre "SD2" apparaît désormais sous le menu "Personnalisé"
de la barre d'Outils Menus Contextuels ; Clic sur "SD2",
Choisis l'onglet Commandes, "Nouveau Menu", et fais glisser
"Nouveau Menu" vers le carré gris qui apparaît à côté de "SD2" ;
Affecte lui la macro et n'oublie pas de renseigner la propriété "Menu
Contextuel"
de ton (tes) Formulaire(s) avec SD2
Cordialement,
Etienne.



"lou" a écrit dans le message de
news:40fac4c3$0$375$
bonjour
dans access 2000
j'ai une barre outils personalise qui s'appelle "SD"
je la fait apparaitre en cliquant sur le coté droit de la souris

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As
Single,

Y As Single)


If Button = 2 Then

Application.CommandBars("SD").Visible = True
End If
End Sub


jusque la c'est impec
le probleme c'est quelle se fige sur le formulaire a une plce fixe
j'aimerais qu'elle aparaisse a l'endroit du formulaire ou je clic avec la
souris(en fait quelle suive le pointeur de la souris)

comment faire?

MERCI POUR VOTRE AIDE






Avatar
lou
bonjour evaro
c'est bien ce que je voulais faire
un grand merci pour ton aide
lou

"Evaro" a écrit dans le message de news:
40fae662$0$1894$
Bonjour,
Si j'ai bien compris, tu veux ajouter un menu contextuel ;
Pas besoin de réinventer l'eau chaude chaque matin,
les menus contextuels personnalisés sont intégérés dans Access,
mais la porte d'entrée n'est pas facile à trouver...
Clic droit sur les barres d'Outils, Personnaliser, onglet Barre d'outils
Cocher "Menus Contextuels" ; une barre d'outils apparaît ;
clic sur Nouvelle et donne un nom à ta barre d'outils,
par exemple "SD2" et Valide.
Ta nouvelle barre est maintenant sélectionnée, clic sur Propriétés
Type : Fenêtre indépendante (au lieu de Barre d'outils)
Ta Barre "SD2" apparaît désormais sous le menu "Personnalisé"
de la barre d'Outils Menus Contextuels ; Clic sur "SD2",
Choisis l'onglet Commandes, "Nouveau Menu", et fais glisser
"Nouveau Menu" vers le carré gris qui apparaît à côté de "SD2" ;
Affecte lui la macro et n'oublie pas de renseigner la propriété "Menu
Contextuel"
de ton (tes) Formulaire(s) avec SD2
Cordialement,
Etienne.



"lou" a écrit dans le message de
news:40fac4c3$0$375$
bonjour
dans access 2000
j'ai une barre outils personalise qui s'appelle "SD"
je la fait apparaitre en cliquant sur le coté droit de la souris

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As
Single,

Y As Single)


If Button = 2 Then

Application.CommandBars("SD").Visible = True
End If
End Sub


jusque la c'est impec
le probleme c'est quelle se fige sur le formulaire a une plce fixe
j'aimerais qu'elle aparaisse a l'endroit du formulaire ou je clic avec
la


souris(en fait quelle suive le pointeur de la souris)

comment faire?

MERCI POUR VOTRE AIDE