Discussion :

[jpg75014]

Bonsoir,

J'arrive à appeler une procédure évenementielle après mise à jour de TEXTE1grace à :

Code :

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

Call TEXTE1_AfterUpdate

Mon souci est que j'aimerais ne pas limiter cet appel à mon seul contrôle TEXTE1 mais à tous les contrôles (previous) concernés par le code ci-dessous

Code :

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

1
2
3
4
5
Dim ctl As Control
Set ctl = Screen.PreviousControl
...
...
Call ctl_AfterUpdate

Merci beaucoup pour votre aide.

[Domi2]

Bonsoir,

Pas très clair...

Tu peux développer un peu ce que tu voudrais faire et éventuellement poster le code de ta procédure...

Domi2

P.-S. N'oublie pas les balises de code (# au dessus de la fenêtre de saisie).

[jpg75014]

Bonsoir,

J'ai le code suivant derrière un bouton :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub BT1_Click()
Dim ctl As Control
Set ctl = Screen.PreviousControl
'ici ctl = Texte1
ctl = 5
 
'exécute la procédure évenementielle "Après mise à jour" de Texte1
'c'est là que j'aimerais exécuter la procédure évenementielle "Après mise
' à jour" de ctl (quelqu'il soit)
Call Texte1_AfterUpdate
End sub

Je cherche quelque chose du style Call Ctl_AfterUpdate.


J'espère avoir été plus clair et merci pour ton aide sur les balises, je me demandais comment on faisait.

Bonne soirée.

[Gabout]

Bonjour,

J'avoue être dans le cirage comme Domi2

Ne voudrais-tu pas affecter des opérations (en l'occurrence de ce fait Texte1_AfterUpdate mais dont tu ne nous dis rien) à chaque contrôle de ton formulaire ?

Du genre :

Code :

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

1
2
3
4
5
Dim ctl As Control
For Each ctl In Controls
  'Opérations à exécuter
  '...
Loop

A+

[ilank]

Bonjour,
JPG je ne comprends pas bien non plus; d'autant plus qu'en utilisant le PreviousControl, soit le contrôle qui avait le focus avant le click sur le bouton; l'événement AfterUpdate s'est déjà produit.

[jpg75014]

Bonjour tout le monde et merci pour l'intérêt que vous portez à ma question. Je vais tenter de tout vous expliquer plus clairement mais tout d'abord :
Gabout : l'opération à exécuter n'est pas forcément la même pour chaque ctl,
Ilank : l'événement AfterUpdate ne s'est pas produit sur Texte1 avant le click sur BT1.

J'ai en fait 10 boutons avec des légendes différentes qui me permettent de simuler un clavier numérique. J'utilise le Caption de chaque bouton pour affecter une valeur au précédent contrôle qui a eu le focus.

La légende de BT5 est 5, la légende de BT6 est 6 etc...

Derrière chacun des boutons, j'affecte la fonction TAPCHIFFRES suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Public Function TAPCHIFFRES ()
Dim ctl As Control
Set ctl = Screen.PreviousControl
 
' il faut que le contrôle soit une zone de texte
If ctl.ControlType <> acTextBox Then
ctl.SetFocus
Exit Function
End If
 
ctl = Me.ActiveControl.Caption
 
 
'ici je souhaiterais lancer l'évenement AfterUpdate de ctl
 
End sub

On imagine que ctl soit Texte1 ou Texte 4 qui n'ont pas les mêmes événements AfterUpdate :

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Texte1_AfterUpdate()
Me.Texte3= Me.Texte1* Me.Texte2
End sub
 
Private Sub Texte4_AfterUpdate()
Me.Texte6= Me.Texte4 + Me.Texte5
End sub

L'événement AfterUpdate me paraît être le plus judicieux car il n'est pas interdit que la zone Texte1 ou Texte4 soit saisie au clavier normalement.
Mais je suis ouvert à toute autre proposition.

Merci encore pour votre aide.