Discussion :

[therabbitkiller]

Bonjour à tous,

Je débute dans Access et j'ai grandement besoin de votre aide.
Je cherche un code qui me permet lorsqu'on click dessus de renvoyer son nom dans un champ libre.
Le nom de mes boutons est de la forme S1234567

J'ai bien réussi à le faire "en dur" de la manière suivante :

Code :

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

1
2
3
4
5
6
 
Private Sub S5963560_Click()
 
Forms![frm_liste_dmr].ztx_liste_dmr.Value = Forms![frm_liste_dmr].ztx_liste_dmr.Value & Me.S5963560.Name & vbCrLf
 
End Sub

Mais j'ai qqu centaines de ligne à faire à la main... De plus le système n'est pas évolutif, j'essaye donc de faire une boucle :

Code :

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

1
2
3
4
5
6
7
 
For Each ctl In Me.Controls
    Select Case Left(ctl.Name, 1)
        Case "S"
                        ctl.OnClick = MsgBox("test")
    End Select
Next ctl

Mais ca ne fonctionne pas et je ne sais pas comment renvoyer le nom.
Je suis un peu à court d'idée et tout faire à la main va me prendre bcp bcp de temps.
Si vous avez des idées je suis prenneur.

Par avance merci
McGyver du VBA
Nico

[marot_r]

C'est une piste pas une solution mais je regraderai du côté du click sur le formulaire en récupérant via une api la position x,y du curseur et en la comparant avec la position des boutons.

Sinon tu pourrais peut-être assigner une fonction à OnClick de chacun de tes bouton

exemple :

Code :

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

1
2
3
4
 
public function TraiterClickBouton()
   msbox [screen].[ActiveControl].name
end function

et dans la propriété OnClick

Code :

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

=TraiterClickBouton()

A+

[therabbitkiller]

merci pour la piste mais ça me parait compliqué d'autant que lors d'évolution mes boutons seront amenés à bouger. Sans compter que je serais incapable de coder qqc avec une api...

Merci
A+

[marot_r]

Il te reste l'option du OnClick et de la fonction qui récupère le controle courrant.

En sélectionnant tous les boutons qui t'interessent tu peux définir la propriété en une seule fois.

Mais personnellement si tu es obligé de modifier trop souvant ton interface, il faut peut-être songer à un autre type d'interface, ex : une liste déroulante que tu pourrais paraméter.

Évidement tout dépend de tes besoins.

A+

[therabbitkiller]

Merci Marot,

J'ai touvé une solution temporaire, j'ai fait une macro excel qui m'écrit toutes mes lignes de code à partir de la liste de nom de mes controles.
Oui c'est vraiment du Mc Gyver mais ca marche et c'est moins long qu'à la main
Cela dit une fois mon projet terminé je le posterai pour le soumettre à "correction" par les amateurs !

Merci encore à ce formidable forum
A+