Discussion :

[lgab3]

bonjour,

je récupérère dans une table tous les formulaires de ma base en passant par le code :

Code :

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

1
2
3
For Each vObject In Application.CurrentProject.AllForms
   ...
next

ça marche bien.

j'aimerais au passage récupérer le fait que formulaire est chargé ou non, mais quand je fais

Code :

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

vObject.isLoaded

ça me retourne TRUE que pour le formulaire principal et pas pour tous les sous-formulaires qui sont bien ouverts.

alors j'ai testé :

Code :

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

vObject.Parent.isLoaded

Code :

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

Application.Forms(vObject.Name).Parent.IsLoaded

Code :

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

CurrentDb.Containers("Forms").Documents(vObject.Name).Parent.isLoaded

rien à faire, access me retourne toujours une erreur...

est-ce possible ? qui a une idée ?

[ilank]

Bonsoir,

essaie un boucle du genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 Dim FormObject As Access.AccessObject, FormItem as Access.Form, FormControl As Access.Control
 
 For Each FormObject In CurrentProject.AllForms
   If FormObject.IsLoaded Then
      Msgbox FormObject.Name & " est ouvert."
   Else
      For Each FormItem In Forms
         For Each FormControl In FormItem.Controls
            If FormControl.ControlType=AcSubForm Then 
                if FormControl.SourceObject=FormObject.Name Then Msgbox FormObject.Name & " est ouvert" & vbcrlf & "en tant que contrôle de " & FormItem.Name
            End if
         Next
      Next
   End if
 Next

[lgab3]

ouais, ok.

ça m'oblige à lancer une sous fonction lorsque le formulaire trouvé est loadé.

normalement ça fonctionne la récupération des propriétés du parent, je comprends pas pourquoi dans ce cas j'ai une erreur...

merci,

[ilank]

Bonjour,
tu as une erreur parce que les sous-formulaires sont en fait des contrôles des formulaires ouverts, de plus la propriété Parent n'est accessible que si l'objet a effectivement un parent.

Maintenant, avec un booléen tu n'as pas besoin d'une sous-fonction.

Exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim FormObject As Access.AccessObject
Dim FormItem As Access.Form
Dim FormControl As Access.Control
Dim FormLoaded As Boolean
    For Each FormObject In CurrentProject.AllForms
        FormLoaded = FormObject.IsLoaded
        If Not FormLoaded Then
            For Each FormItem In Forms
                For Each FormControl In FormItem.Controls
                    If FormControl.ControlType = acSubform Then
                        If FormControl.SourceObject = FormObject.Name Then FormLoaded = True: Exit For
                    End If
                Next
                If FormLoaded Then Exit For
            Next
        End If
        If FormLoaded Then 
           'Traitement formluaire chargé en tant que Form ou SousForm
        End if
 Next