[AC-2003] simuler évènement click de controles dans un sous formulaire [Résolu]

[kgb1917]

Bonjour,

j'ai un sous formulaire placé dans un formulaire. Pour chaque contrôle situé dans le détail du sous formulaire, j'aimerai "récupérer" l'évènement click mais pas moyen. Mon bout de code du sous formulaire :

Code :

1
2
3
4
5
6
7
8
Private Sub Form_Click()
 Dim Ctl As Controls
 For Each Ctl In Me.Section(acDetail).Controls
  If Ctl.Click Then
 'Traitement
  End If
  Next
End Sub

J'ai essayé également l'évènement Détail_Click(), rien ne se passe. Après pas mal de recherches, je ne trouve pas de solutions donc si vous pouviez m'éclairer ?

[Simplifi]

Hello
Déjà, est ce que ta routine commence de s'exécuter ou pas?
elle devrait s'exécuter quand tu clique n'importe où, sauf dans un contrôle.
Détail_click ne s'exécute que quand tu clique dans le corps du détail, en dehors de tout contrôle. (ça n'est pas naturel de cliquer dans le vide)
C'est pour ça que pour gérer l'évènement click de de chaque contrôle, je mets un programme à chacun.

[kgb1917]

Re,

déjà merci de me répondre.

ensuite, non, la routine ne s'exécute pas qd je clique sur les contrôles placés dans la section détail.

pour gérer l'évènement click de de chaque contrôle, je mets un programme à chacun

Pour x controles, x fois la même procédure ??? Y a pas moyen d'optimiser tout ça ???

[User]

Salut,

Comme proposé par simplifi, si le programme est réalisé par une fonction "TaFonction", tu peux le faire dynamiquement en attribuant cette fonction sur ouverture de ton formulaire, à tous les contrôle de la section détail, du style :

Code :

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_Open(Cancel As Integer)
 
Dim Ctl As Controls
 
 For Each Ctl In Me.Section(acDetail).Controls
 
    Ctl.OnClick ="=TaFonction()"
 
 Next
 
End sub

A+

[kgb1917]

Re,

il faut changer cette ligne :

Code :

Dim Ctl As Controls

Par celle-ci :

Code :

Dim Ctl As Control

et tout roule...