Discussion :

[vavavoum74]

Bonjour
Je débute encore

J'au une série de 6(pour l'instant) requêtes effectuant des tests de cohérence de données sur une table.
Je compte créer pour chaque requête un sous formulaire montrant les résultats avec une présentation genre tableau feuille de donnée.
Tout ceci regroupé dans un formulaire "général"
S'il n'y a pas d'anomalies, le sous formulaire ne contiendra que les en têtes et une ligne vide.
Je cherche un moyen pour ne pas afficher du tout un sous formulaire si celui ci est vide.

Merci d'avance pour votre intérêt

[tee_grandbois]

bonjour,
simple mais efficace:

Code :

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

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

à mettre dans l'évenement Current du formulaire principal entre Private Sub Form_Current() et End Sub
On pourrait même en faire une fonction utilisable dans n'importe quel formulaire en créant une fonction dans un module standard:

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 fCacheSfVide(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

dans le formulaire (toujours dans l'évènement Current):

Code :

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

Call fCacheSfVide(Me)

[vavavoum74]

GRAND Merci à toi.

Je vais voir si j'arrive à m'en sortir avec ça.
Je pense utiliser la fonction dans le module standard.

Petite question, la valeur 112, tu la sors d'où?
Si je comprends bien cela correspond à un sous formulaire vide?

Merci d'avance pour tes précisions.
Je reviens vers toi une fois ta solution appliquée.

[tee_grandbois]

Petite question, la valeur 112, tu la sors d'où?

25 ans de pratique d'Access et crois-moi, il y a 25 ans je ne connaissais pas tout ça et je continue d'en apprendre encore.
Sinon, la touche F1 ou un moteur de recherche donne pas mal d'informations sur les propriétés des objets, exemple avec "controltype vba access", je tombe ici: https://msdn.microsoft.com/fr-fr/VBA...roperty-access
Il y a 25 ans, il n'y avait pas autant d'informations accessibles sur internet et on devait se débrouiller soit, avec l'aide en ligne (toujours avec la touche F1), soit avec les publications papier payantes.

Certes, un peu d'expérience est parfois nécessaire, car encore faut-il connaitre les propriétés des ), mais là aussi il faut être curieux.
Dans VBA quand on tape une commande ou le nom d'un objet suivi d'un point, l'intellisense nous donne accès à toutes les propriétés méthodes ..., il suffit de sélectionner, de double-cliquer et ensuite d'appuyer sur F1 pour accéder à l'information.

Quand on tape debug.? me.("monsouform").controltype dans le code, cela renvoie 112 dans la fenêtre d'exécution. J'aurai pu mettre aussi acSubform car une constante a toujours une valeur numérique, texte ou autre, exactement comme True qui vaut -1 ou False qui vaut 0

Si je comprends bien cela correspond à un sous formulaire vide?

non, c'est le type du contrôle tout simplement

[hyperion13]

Salut,
Si votre truc est de ne pas afficher un sform s'il ne contient aucune ligne, le plus simple serait peut-être

Code :

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

1
2
3
4
5
Private Sub Form_Current()
    With Me![NomDusForm].Form
        .Visible = (.RecordsetClone.RecordCount > 0)
    End With
End Sub

Pour composer le 112, c'est ici.

[Jeannot45]

Comment comptes-tu présenter tes Sous-Formulaires ?
Si le sous formulaire n'affiche pas de données, comment envisages-tu la présentation de ton formulaire ?
Voici, en exemple une petite base de données qui permet de d'afficher le résultat de différentes requêtes grâce au contrôle d'onglets.
L’intérêt, c'est qu'une petite image dans l'onglet indique s'il y a ou non des données.

Ça ne reste qu'une idée de présentation ... Pour le reste, les réponses déjà présentées sont suffisamment éloquentes

[vavavoum74]

j'ai préféré la solution de tee_grandbois avec la fonction dans un module standard.

Cela fonctionne très bien.

Jeannot45 a soulevé une question importante, c'est la présentation..

J'avais prévu un formulaire simple, avec les sous formulaires l'un en dessous de l'autre.
L’inconvénient c'est que si un sous formulaire est vide, il n’apparaît pas mais sa place est "attribuée", donc pas terrible au niveau mise en page
Est il possible de réattribuer dynamiquement une place dans le formulaire de présentation pour que les sous formulaires se suivent ?
Sinon la solution onglet données par jeannot semble être une alternative.

Ouvert à vos avis éclairés