Salut !

Mon problème est le suivant.
Je suis sous VBA pour Accesss et j'ai une form sur laquelle il y a 50 objets semblables qui effectuenet un même traitement avec juste un paramètre qui change. Ce traitement est effectué par la SUB Cherche(Chose as string)


Ce qui me dérange c'est que je dois affecter à chaque controle un evenement OnClick() qui se resume à

sub crontrolS_Click()
Cherche(Ctl.name)
end sub

mais le faire 50 fois.

N'y a t il pas un moyen de faire un evenement on Click générique pour tous ces controles avec en parametre le controle qui envoie le message du style:

Sub Tous_click(ctl as control)
Cherche(ctl.name)
end sub

Si quelu'un a une solution elle est vraiment la bienvenue car demain je dois presenter une version Beta de mon prog à la direction donc URGENT.

Merci

Olivier

il est bien evident que sous VB et j'en suis sur, il est possible de creer un groupe de controles

je ne sais pas si c'est faisable sous access (il n'y a pas de raison pour que ce ne soit pas possible)

modifier la propriete de chaque controle
leur donner le meme nom avec un index qui s'incrémente
mais pour cela, je crois qu'il va falloir les supprimer et les recreer
d'abord le premier, et ensuite tu le copies et tu le colles autant de fois que c'est necessaire VB te demandera si tu veux creer un groupe de controle, tu dis Oui



-------------------------------
Réponse au message :
-------------------------------

Salut !

Mon problème est le suivant.
Je suis sous VBA pour Accesss et j'ai une form sur laquelle il y a 50 objets semblables qui effectuenet un même traitement avec juste un paramètre qui change. Ce traitement est effectué par la SUB Cherche(Chose as string)


Ce qui me dérange c'est que je dois affecter à chaque controle un evenement OnClick() qui se resume à

sub crontrolS_Click()
Cherche(Ctl.name)
end sub

mais le faire 50 fois.

N'y a t il pas un moyen de faire un evenement on Click générique pour tous ces controles avec en parametre le controle qui envoie le message du style:

Sub Tous_click(ctl as control)
Cherche(ctl.name)
end sub

Si quelu'un a une solution elle est vraiment la bienvenue car demain je dois presenter une version Beta de mon prog à la direction donc URGENT.

Merci

Olivier