Créer un [Event procédure] sur tous les controles.

**SeaWolf601** · 21/01/2009, 12h27

Re-Bonjour,

Bon donc voici la suite de ceci : http://www.developpez.net/forums/d67...ontrole-cours/

j'ai crée la fonction suivante :

Code :

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

1
2
3
4
Private Sub Coord()
Me.REF = Left(Screen.ActiveControl.Name, 1)
Me.REF2 = Right(Screen.ActiveControl.Name, 1)
End Sub

Mes TextBox ont des noms tels que A1, B1, C1, A2, B2, C2, etc... (Non je ne fait pas une bataille navale

)

Comme je l'ai dit dans le sujet précedents j'ai presque 200 zone de texte.
(et dieu sait combien demain). Donc hors de question de faire 200 cop col.

j'ai essayé de faire la procédure suivante au démarage (OnOpen)

Code :

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

1
2
3
4
5
6
7
Private Sub Form_Open(Cancel As Integer)
Dim Txt As TextBox
For Each Txt In Me.Controls
      Txt.OnClick = "Coord"
Next Txt
 
End Sub

j'ai donc dans l'évennement "OnClic" la function "Coord" qui s'agremente automatiquement dans toutes mes TextBox.

et comme vous l'avez devinné Acces gére cela comme une macro et non comme une procédure donc erreur.

Une idée ?

**Domi2** · 21/01/2009, 13h08

Bonjour,

J'ai pas Access sous la main, donc pas testé...

Il me semble qu'il n'est pas possible d'exécuter une procédure depuis l'événement d'un forme directement (comme l'action exécuter code d'une macro).

Donc, je ferais

Code :

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

1
2
3
4
Private Function Coord()
Me.REF = Left(Screen.ActiveControl.Name, 1)
Me.REF2 = Right(Screen.ActiveControl.Name, 1)
End Function

et pour l'appel

Code :

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

Txt.OnClick = "=Coord()"

Qu'est ce que cela raconte ?

Domi2

**SeaWolf601** · 21/01/2009, 13h40

Les grands esprits se rencontrent je venait d'essayer cette syntaxe.
Mais non il ne trouve pas la fonction.
J'ai éssayé de le mettre sur "OnLoad" aussi, puisque si ma mémoire est bonne cela intervient aprés le "OnOpen", même chose.
Mais au moins avec les () il sait que c'est une fonction, donc je pense qu'on tient le bon bout.