Discussion :

[vavavoum74]

Bonjour,
J'ai plusieurs sous formulaires intégrés dans un formulaire.
Chacun donne un petit tableau, l'un en dessous de l'autre
J'ai dans un module standard une fonction qui rend les sous formulaires vides non visibles:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function fCacheSFVideF(pform As Form)
Dim oCtl As Control
' Pour rendre invisible les sous-formulaire n'ayant pas de données
For Each oCtl In pform
    If oCtl.ControlType = 112 Then ' 112 = type de contrôle sous-formulaire
        If oCtl.Form.Recordset.RecordCount = 0 Then
            oCtl.Form.Visible = False
        Else
            oCtl.Form.Visible = True
        End If
    End If
Next oCtl
 
End Function

Est il possible qu'une fois invisible ils ne prennent plus aucune place dans le formulaire?
Comme j'ai plusieurs sous formulaire l'un en dessous de l'autre, cela laisse de l'espace "vide" entre ceux qui sont remplis et ceux qui sont invisibles..

Merci d'avance

[Jeannot45]

Hélas, pas à ma connaissance. Il me semble t'avoir donné une astuce pour contourner cette difficulté dans discussion : Affichage d'un sous formulaire basé sur une requête seulement s'il n'est pas vide : Post #6

[vavavoum74]

Hélas, pas à ma connaissance. Il me semble t'avoir donné une astuce pour contourner cette difficulté dans discussion : Affichage d'un sous formulaire basé sur une requête seulement s'il n'est pas vide : Post #6

Merci pour ton intérêt.
Effectivement j'ai bien noté ta réponse donnée dans l'autre post.
J'essaie différentes solutions

[Ric500]

Bonjour!

En création tu mets leur hauteur à 0 et tu les superposes et tu les définis invisibles.

Ensuite à l'ouverture du formulaire principal, tu testes le nombre d'enregistrements de chaque sous formulaire dans une boucle de "1 à ton nombre de sous-formulaires non-vides" puis :
1/ tu rends visible le formulaire courant dans la boucle (test / nbre enregs)
2/ tu lui affectes une hauteur qui te va (mettons 4 cm, en twips)
3/ tu affectes à la propriété Top du suivant la propriété Top du ss-form courant + la propriété Height du ss-form courant mettons 4cm (en twips) + 1 petite marge mettons 0.5 cm (en twips)

... Et ainsi de suite tant qu'il y a des sous-formulaires à afficher (avec des enregistrements, donc).

[vavavoum74]

Merci de ton intérêt

Mettre la hauteur à 0 en création et les superposer en le définissant invisibles, je pense pouvoir faire

Par contre, pour le reste, étant débutant en VBA, pourrais tu me donner un exemple de code?

Merci d'avance

[Ric500]

Bonjour!

Juste une question ton formulaire principal est-il indépendant?

Je t'envoie un bout de code qui prend cette hypothèse pour vraie. Mais çà n'est qu'un détail car çà peut aussi marcher dans le cas contraire.