Discussion :

[borreu]

Bonjour

J'aimerais pouvoir définir une fonction qui sera appellée lorsque plusieurs champs sont mis à jour. Le problème est que lorsque je veux définir une procédure événementielle, je n'arrive pas à choisir le nom de ma fonction, il me la crée automatiquement.

Par exemple, j'ai 2 zones de textes. Pour ces deux zones, j'aimerais que si le contenu change, un message s'affiche (le même). Est-il possible d'utiliser la même fonction/procédure, plutôt que d'avoir 2 procédures qui font exactement la même chose mais avec des noms différents ? (c'est pas un drame avec 2 zones de textes, mais quand il y en a + c'est un peu bordélique dans le code )

PS: j'ai essayé d'utiliser des macros mais ca n'à pas l'air de fonctionner :s je suis sous Access 97.

Merci

[Kloun]

Non, t'as pas le choix.
Par contre, les évènements en question peuvent tous appeler la même fonction.

[cafeine]

Non, t'as pas le choix.
Par contre, les évènements en question peuvent tous appeler la même fonction.

Non,

on peut parfaitement le faire ... avec l'attribution dynamique de code ...

un exemple avec des boutons qui s'appellent commande1, commande2 ... :

Private Sub Form_Load()
Dim ctl As Control

For Each ctl In Me.Controls
 If Left(ctl.name, 8&#160 = "commande" Then
  ctl.Properties("onclick") = "=GotAClick('" & ctl.name & "')"
 End If
Next ctl

End Sub


Function GotAClick(ByVal NomCmd As String)

MsgBox ("l'utilisateur a cliqué sur le bouton : " & NomCmd)

End Function

[Kloun]

Effectivement, au temps pour moi.
Bout de code très intéressant.

[charleshbo]

Si jamais, plusieurs évènements (genre des boutons) appellent une seule fonctions, tu peux procéder comme ceci avec les handles

Code :

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

1
2
3
4
5
6
 
Private Sub maFonction(Byval sender As Object, ByVal e As Event) Handles btn1.Click, btn2.Click, txtNom.MAJ ... etc ...
 
... code ici ...
 
End Sub