Comment utiliser les methode d'un objet quand on ne dispose que du nom en string ?

Bonjour, je pb est simple et je me pose fréquement la question car dans de nombreux cas cela me simplifierai la vie. Exemple : Vous avez une table sur Access par exemple contenant 2 champs, 1 champ Numero qui est un integer et un champ NomForm qui est du texte et qui représente le nom d'un formulaire de VB.

Depuis VB je veux accéder aux méthodes d'un formulaire (notamment la méthode show pour l'afficher), pour cela l'utilisateur tape un numéro et je vais chercher le formulaire qui correspond au numéro, tapé par l'utilisateur, dans la table d'access.
Voila ce que j'essaye de faire :

'j'ai déclaré un nouveau Adodb.recordset qui s'appel "rst" pour aller chercher les info dans ma table, et j'ai récupéré le nom du formulaire (mais là n'est pas le probleme)

... rst("NomForm").Show

Il ne comprend pas que je veux utiliser le contenu de mon champ de ma table comme étant le nom d'un objet!!
Comment faire ?????
Merci beaucoup d'avance de vos lumières

Normal qu'il ne comprenne pas ! res("NomForm") est une chaine de caractère et .Show est une méthode appartenant à la classe Form !! Mais on peux s'en sortir comme cela :

Public Function GetFormByName(byVal NomFrm as String) As Form Dim Frm as Form For Each Frm in Forms If Frm.Name = NomForm Then Set GetFormByName = Frm Exit Function EndIf Next Set GetFormByName = Nothing End Function

... A mettre dans un module standard

Dim F as Form F = GetFormByName(rst("NomForm")) If Not F IUs Nothing Then F.Show Else Msgbox rst("NomForm") & " n'existe pas) EndIf

... A mettre la ou tu veux afficher ta form.
OK ?
Christophe R.

Normal qu'il ne comprenne pas ! res("NomForm") est une chaine de caractère et .Show est une méthode appartenant à la classe Form !! Mais on peux s'en sortir comme cela :

Public Function GetFormByName(byVal NomFrm as String) As Form Dim Frm as Form For Each Frm in Forms If Frm.Name = NomForm Then Set GetFormByName = Frm Exit Function EndIf Next Set GetFormByName = Nothing End Function

... A mettre dans un module standard

Dim F as Form F = GetFormByName(rst("NomForm")) If Not F IUs Nothing Then F.Show Else Msgbox rst("NomForm") & " n'existe pas) EndIf

... A mettre la ou tu veux afficher ta form.
OK ?
Christophe R.

Merci deja de ta réponse. Je vais essayer le code ce soir, mais au fait le

for each form in Forms...

ne necessite pas que le formulaire soit déja chargé en mémoire? ou bien Forms est vraiment la collection de tous les formulaires du projet ?
Ensuite je pensais qu'il y avait plus simple car cela peut être un formulaire comme cela peut être un control, alors dans ce cas il faudrait presque un proc par type. Bref je dis cela car sur Windev par exemple, il existe un opérateur d''indirection" comme ils l'appelle :
par exemple

{"Nom"}={"Cl.NomCli"}

est équivalent à

Nom=Cl.NomCli

ou encore :

{"Formulaire"+.show}

est équivalent à

Formulaire.show

génial non ?!!! et bien je voulais savoir si il existait la même chose en Vb
Merci d'avance

j'essai ton principe de code et me met 2 erreurs dans le code :
la premiere est qu'il faut, à priori le mot clé "Set" devant

F = GetFormByName(rst("NomForm"))

je ne me trompe pas ?

et le second par contre, je ne comprend pas ton code :

If Not F IUs Nothing Then

il me dit qu'il y a une erreur de syntaxe !
je ne sais pas comment tu veux essayer de tester si l'objet est vide
Merci de ta réponse

autant pour moi, c'est le code suivant

If Not F Is Nothing Then

il y avait un U en trop !!
sorry !

Ouais pardon pour les erreurs de frappe, mais j'ai fait le code directement sur le site sans le tester avant dans VB, alors il y a des coquilles !!
Par contre, le point que tu soulèves est fort exact, et je n'y avait pas pensée avant :
La collection "Forms" regroupe toutes les fenêtres CHARGEES de l'application. Si ta form n'est pas encore chargée, tu ne la verras pas (par aucun aute moyen d'ailleurs, je pense)
La solution est donc de pré-charger toutes tes forms par un
"Load Form1", "Load Form2", etc ...
Si jamais une fenêtre doit etre fermé et eventuellement réouverte, ne pas faire de "Unload Me" mais juste un "Me.Hide" (dans l'evt Query_Unload par exemple, en testant le UnloadMode avant bien sur) afin qu'elle soit juste masquée mais reste en mémoire.
J'espère que tu n'as pas 150 forms, sinon, ca va ramer sec

Christophe R.