Nom d'un formulaire en paramètre

Question

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.

PCPT · Answer

salut, forms est une collection, il faut donc l'utiliser néanmoins elle n'est utilisable que par un numériqué et non le nom de la form. il faut donc tricher en passant par une petite fonction perso du genre : Function getFormByName( ByVal sName As String ) As Form Dim fRet As Form Set fRet = Nothing Dim f As Form For Each f In Forms If f.Name = sName Then Set fRet = f Exit For End If Next f Set f = Nothing Set getFormByName = fRet End Function [../code.aspx?ID=39466 Coloration VB6, VBA, VBS] ton code : If table![Lecture] = False Then Dim f As String f = table![Fomulaire] [Forms]!f.Visible = False End If devient donc : If not(table![Lecture]) Then getFormByName(table![Fomulaire]).Visible = False End If [../code.aspx?ID=39466 Coloration VB6, VBA, VBS] NB : tu codes apparemment en VB6! tu as classé en VB.NET tu as une syntaxe plus proche de VBA que de VB6. (quoi que, après tout c'est peut être du VBA....à tu utilises DAO au lieu d'ADO (si VB6) attention aux thèmes du forum, merci

zouf31 · Answer

Bonjour,
merci de la réponse rapide !
pour info, je code bien en VBA ! (Access 2003)...

L'idée de passer par une fonction est très judicieuse et répondrait à mon problème, cependant l'expression

For Each f In Forms

ne répertorie que les formulaires ouverts.
Je voudrais récupérer l'ensemble des formulaires.
J'ai essayé "AllForms" mais ça ne marche pas non plus.

Merci

Cordialement.

CTAC · Answer

Salut,

Tiré de l'aide

Pour répertorier tous les formulaires dans la base de données, ouverts ou fermés, énumérez la collection AllForms de l'objet CurrentProject. Vous pouvez ensuite utiliser la propriété Name de chaque objet AccessObject individuel pour renvoyer le nom d'un formulaire.

ctac

zouf31 · Answer

J'ai essayé cette dernière méthode mais un objet AccessObject ne permet pas de renvoyer un form, il ne renvoie que le nom.
Est-ce possible de caster un accessobject en Form ?

Help !

et merci :)

Nom d'un formulaire en paramètre

4 réponses

Votre réponse

Discussions similaires