Discussion :

[mouaa]

Bonjour,

je vous expose mon problème:

Voilà mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub AddCritUOPrice_Click()
Call OuvrirSelectCritere("AddCritUOPrice", "texte")
End Sub
Private Sub AddCritUOVersion_Click()
Call OuvrirSelectCritere("AddCritUOVersion", "liste")
End Sub
Private Sub AddCritUOCPIL_SGIS_Click()
Call OuvrirSelectCritere("AddCritUOCPIL_SGIS", "liste")
End Sub

J'ai deux question à propos de ce code:
Comme vous pouvez le constater, à chaque clic sur un bouton, j'appelle une procédure. J'aurais aimé savoir s'il est possible, plutôt que de marquer à la main le nom du contrôle sur lequel je viens de cliquer, de pouvoir le récupérer.
un truc du style

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub AddCritUOCPIL_SGIS_Click()
Call OuvrirSelectCritere(LeNomDuDernierContrôleCliqué, "liste")
End Sub

La deuxième question:
Comme vous avez pu le constater, à chaque clic sur les boutons, j'effectue toujours la même action (il y a juste le nom du contrôle qui change).
Le nombre de Sub comme celles que je vous ai écrit se compte par dizaines dans mon code.
Existe-t-il des fonctions sur access qui feraient un truc comme ça:
- A chaque fois que je clique sur un bouton (n'importe le quel)
- Prends le nom du bouton
- Appelle la procédure machin

Tout simplement, existe-t-il des fonctions qui sont capables de remplacer des dizaines de "Sub machin_clic" en faisant un "Sub tous_les_contrôles_clic"

[cavo789]

Bonjour

Pour ta première question : as-tu déjà essayer Me.Name pour récupérer le nom du control ?

Il n'existe pas de solution (à ma connaissance) pour la seconde question : pas de code "OnClick" qui puisse être générique.

[mouaa]

le problème, c'est que Me.name me renvoie le nom du formulaire, et pas le nom du contrôle sur lequel je viens de cliquer

[wape]

Bonjour,

Pour la question 1, essaye avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub AddCritUOPrice_Click()
MsgBox "Nom du bouton : " & ActiveControl.Name
End Sub

Pour la question 2, oui c'est possible (en passant par un module de classe).

wape

[mouaa]

Merci, ta solution à la question 1 fonctionne à merveille

En ce qui concerne la question 2, qu'entends-tu par "module de classe" ?

[wape]

Bonjour,

Sans trop entrer dans les détails, un module de classe permet de créer... une classe, dans
laquelle on définit, par exemple, un ou des événement(s) commun(s) à plusieurs contrôles.

wape