Discussion :

[SeaWolf601]

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]

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]

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.

[Domi2]

Re,

Je viens d'essayer, cela fonctionne...

Mais non il ne trouve pas la fonction.

Tu as un message d'erreur, ou rien ne se passe ?

Domi2

[SeaWolf601]

j'ai un message d'erreur ou il me dit qu'il ne trouve pas la fonction.

Dans quoi met tu l'appel ?

[Domi2]

Re,

Je l'ai mis dans le Form_Load (testé avec un seul contrôle).

Tu as bien saisi "=Coord()" ?

Domi2

[SeaWolf601]

Avec plusieurs controle
j'ai fait une boucle pour l'attribuer à chaque controle.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Form_Load()
Dim Txt As TextBox
For Each Txt In Me.Controls
 
      Txt.OnGotFocus = "=Coord()"
 
 Next Txt
 
End Sub

Ma boucle marche parfaitement mais il reconnait pas la fonction qui est :

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

Ver : Access 2002 SP3

[Domi2]

Re,

mais il reconnait pas la fonction qui est :

Code :

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

Private Sub Coord()

Ben oui, c'est une procédure...

Avec

Code :

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

Private Function Coord()

ça devrait mieux fonctionner.

Domi2

[SeaWolf601]

Mais quel c**.

Je t'ai fait perdre ton temps là.

Mille excuse et mille merci Domi.

PS : je te dois une bière sur ce coup là.

[Domi2]

Pas de soucis...

Ca m'arrive plus souvent qu'à mon tour...

Et ok pour la bière...

Domi2