[AC-2007] nom du formulaire en variable [Résolu]

[thermo]

Bonjour

J'ai une boucle qui commence par l'expression suivante

Code :

For Each loCtrl In Forms!Fm_ClipJoueur.Controls

je re écris 5 fois cette même boucle pour chacun de mes 5 formulaires.
J'aimerais pouvoir passer le nom des formulaires ici " Fm_ClipJoueur" dans une variable afin de n'écrire qu'une seule boucle qui s'appliquerait en fonction du formulaire.
en fait, écrire quelque chose dans le genre si la variable s'appelle MonFormulaire:

Code :

For Each loCtrl In Forms!Monformulaire.Controls

Comment déclarer la variable?
Comment écrire l'expression?

Merci d'avance

[mkl238]

Le mieux c'est de passer le form

faire ceci:

Code :

1
2
3
4
5
Public Static Function TraitementForm(formulaire As Form)
    For Each loCtrl In formulaire.Controls
        TonTraitement
    Next
End Function

Et tu l'appelles comme ceci:

Code :

TraitementForm Forms!Fm_ClipJoueur

[thermo]

Merci pour la réponse, mais dans mon cas, ça ne marche pas car il y a dans ma procédure des coordonnées X et Y du pointeur de la souris et donc, je ne peux pas la sortir de l'évènement MouseDown.

Je suis donc obligé de passer le nom du formulaire en variable.

Peut être une autre solution?

[mkl238]

Libre à toi de passer tes coordonnées x, y en paramètres.

Mais si tu préfères vraiment passer le nom il suffit de faire ceci:

Code :

1
2
3
4
5
Public Static Function TraitementForm(formName As String)
    For Each loCtrl In Forms(formName).Controls
        TonTraitement
    Next
End Function

Et tu l'appelles comme ceci:

Code :

TraitementForm "Fm_ClipJoueur" 'ou Forms!Fm_ClipJoueur.Name

[reedy]

Bonjour,

J’ai été confronté dernièrement au même problème et c'est bien la solution proposé par mkl238 que j'ai utilisé. Et pour récupérer le nom de du formulaire actif j'ai utilisé la propriété :

Code :

Application.CurrentObjectName

Cordialement