Discussion :

[JYL74]

Je cherche à identifier (et eventuellement modifier) les propriétés de tous les contrôles de tous les formulaires de mon application. Comment énumérer les formulaires (la collection Forms ne référence que les formulaires ouverts) ? Peut-on modifier les propriétés de contrôles sans ouvrir le formulaire auquel ils appartiennent ?
Merci de votre aide .

[cafeine]

Hello,

Utilise la collection AllForms, ou les containers.

Pour modifier un controle il faut ouvrir le formulaire en mode conception.

[JYL74]

Merci, çà marche au poil pour identifier les formulaires :
Il me reste un problème, comment affecter une variable formulaire à partir du nom de l'objet ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
    Dim obj As AccessObject, dbs As Object, ctl As control, frm As Form
    Set dbs = Application.CurrentProject
    ' Recherche les objets AccessObject dans la collection AllForms.
    For Each obj In dbs.AllForms
        ' Affiche le nom de l'objet.
        Debug.Print obj.Name
        DoCmd.OpenForm obj.Name, acDesign, , , , acHidden
        set frm = ???? obj.name 
        For Each ctl In frm.Controls
            [ici mon code fonctionnel]
        Next ctl
        DoCmd.Close acForm, obj.Name
    Next obj

[cafeine]

une fois que tu as ouvert un form, il passe dans la collection Forms()

donc pourquoi pas ? (non testé)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set frm = Forms(Obj.Name)

[marot_r]

Oui, le code de Cafeine fonctionne, je m'en suis servi plein de fois.

A+

[JYL74]

Ca marche très bien comme tu l'as suggéré.