Utilisation incorrecte de Me. : Nom d'un formulaire [Résolu]

[FtF Nemesis]

Bonjour,
j'ai un problème dans code qui me cache le formulaire actuel et qui m'en ouvre un nouveau

NB : J'ai en continu plusieurs formulaires ouverts, mais un seul est Visible.

Code :

1
2
3
4
5
6
7
8
9
Function GoGoNoVsbl(strFrmDest As String)
 
a = Me.Name
Call NomFrm(a)
 
Forms!(a).Visible = False
DoCmd.OpenForm (strFrmDest), acNormal, , , acFormAdd
 
End Function

Mais VBE me dit "Erreur de compilation, utilisation incorrecte du mot clé Me"
Si quelqu'un pouvait m'aider ce serait cool, j'ai déjà jeter un oeil sur la FAQ sans résultat. Merci d'avance

[FtF Nemesis]

Important: cette fonction est dans un module et non dans le code correspondant au formulaire, j'imagine que c'est pour ça que ça plante.
Y a t-il un moyen pour que cela fonctionne en laissant la fonction sur le module?

[GAYOT]

Bonjour
Remplacer "Me" par "Form_NomDuFormulaire"

[FtF Nemesis]

Non car le formulaire en cours est une variable, donc le Me. me sert à renvoyer le nom du formulaire en cours et visible à mon programme VBA.
Merci quand même

[GAYOT]

J'avais pas bien saisi.
Et as tu essayé ceci:

Code :

1
2
3
4
5
6
 
Dim MyForm As Form
   For Each MyForm In Forms
   Forms(MyForm.Name).Visible = False
   Next
DoCmd.OpenForm (strFrmDest), acNormal, , , acFormAdd