OVH Cloud OVH Cloud

récupération bouton cliqué dans une fonction

2 réponses
Avatar
arthermus
Bonjour

Y'a t-il un moyen de tester quel bouton est appuy=E9 sans=20
passer par la sub etiquette_mousedowm(button as integer,=20
etc...).
Comme j'ai 400 =E9tiquettes (calendrier annuel),je ne=20
voudrais pas tapez les 400 [Event procedure] (+ de=20
1500lignes de vba,ca fait d=E9sordre) sur chaque=20
=E9tiquettes,juste mettre un nom de fonction dans la=20
propri=E9t=E9 de chaque =E9tiquette avec dans la fonction une=20
variable qui r=E9cupere le bouton cliqu=E9.
=20
Merci=20

Arthemus

2 réponses

Avatar
Raymond [mvp]
Bonjour.

compte tenu que c'est une étiquette que tu cliques il faut que tu passes le
nom de ton étiquette à la fonction et faut que tu passes cette fonction
telle que:
= Mafonction(nométiquette)
pour que la fonction Mafonction récupère le nom en entrée.
pour entrer le nom il va bien falloir passer par la propriété personnelle à
chaque étiquette.
Dans ce genre d'opération, il est préférable de passer par un bouton de
commande, car dans la fonction commune à chaque bouton ( de la forme Mafonction() ), on peut connaître le nom du bouton qui a été cliqué. De même
en passant par un contrôle texte on peut connaître immédiatement le nom du
contrôlee qui a été cliqué.

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


"arthermus" a écrit dans le message de
news:1602001c44737$9950a8b0$
Bonjour

Y'a t-il un moyen de tester quel bouton est appuyé sans
passer par la sub etiquette_mousedowm(button as integer,
etc...).
Comme j'ai 400 étiquettes (calendrier annuel),je ne
voudrais pas tapez les 400 [Event procedure] (+ de
1500lignes de vba,ca fait désordre) sur chaque
étiquettes,juste mettre un nom de fonction dans la
propriété de chaque étiquette avec dans la fonction une
variable qui récupere le bouton cliqué.

Merci

Arthemus
Avatar
arthemus
Ok merci
En fait, c'est pour mettre à jour les lignes d'un menu
contextuel (ligne en visible = enabled ou disabled suivant
le cas) avant de l'afficher.
Tant pis.

Arthemus
-----Message d'origine-----
Bonjour.

compte tenu que c'est une étiquette que tu cliques il
faut que tu passes le

nom de ton étiquette à la fonction et faut que tu passes
cette fonction

telle que:
= Mafonction(nométiquette)
pour que la fonction Mafonction récupère le nom en entrée.
pour entrer le nom il va bien falloir passer par la
propriété personnelle à

chaque étiquette.
Dans ce genre d'opération, il est préférable de passer
par un bouton de

commande, car dans la fonction commune à chaque bouton (
de la forme =

Mafonction() ), on peut connaître le nom du bouton qui a
été cliqué. De même

en passant par un contrôle texte on peut connaître
immédiatement le nom du

contrôlee qui a été cliqué.

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


"arthermus" a écrit
dans le message de

news:1602001c44737$9950a8b0$
Bonjour

Y'a t-il un moyen de tester quel bouton est appuyé sans
passer par la sub etiquette_mousedowm(button as integer,
etc...).
Comme j'ai 400 étiquettes (calendrier annuel),je ne
voudrais pas tapez les 400 [Event procedure] (+ de
1500lignes de vba,ca fait désordre) sur chaque
étiquettes,juste mettre un nom de fonction dans la
propriété de chaque étiquette avec dans la fonction une
variable qui récupere le bouton cliqué.

Merci

Arthemus


.