Nom d'un formulaire passé en paramètre

Fermé
zouf31 Messages postés 10 Date d'inscription vendredi 26 juin 2009 Statut Membre Dernière intervention 18 juillet 2009 - 26 juin 2009 à 15:42
Bonjour à tous,
J'aimerai, à partir d'un formulaire, rendre visible ou non d'autres formulaires, en fonction du profil connecté.

voici mon code :

Private Sub Form_Load()
    Me.Caption = "Menu - connecté en tant que " & [Forms]![Droits_Acces]![lst_groupe]
   
    Dim datab As Database
    Dim table As Recordset

    Set datab = DBEngine(0)(0)
    Set table = datab.OpenRecordset("Droits_Acces")
    table.MoveFirst
       
    Do Until table.EOF
        If table![Lecture] = False Then
            Dim f As String
            f = table![Fomulaire]
            [Forms]!f.Visible = False
        End If
        If table![Ecriture] = False Then
            '[Forms]!table![Formulaire].Enabled = False
        End If
        table.MoveNext
    Loop
    table.Close
    datab.Close
End Sub

Voilà, le problème vient du bout de code en orange : comment passer le nom du formulaire en paramètre ?

En espérant avoir été assez clair, merci d'avance =)

Cordialement.