Discussion :

[anassyto]

bonjour,

je voudrais masquer un champ dans un formulaire s'il est vide. j'ai appliquer la methode de la FAQ comment masquer/rendre invisible toutes les zones de texte vides?

http://access.developpez.com/faq/?page=zdt#InvZdt

Mais on moment d'ouvir mon formulaire, une erreur se produit :

erreur d'execution 424 objet requis

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Form_Current()
Dim ctl As Control
 
For Each ctl In F_Devis.Controls
    If TypeOf ctl Is TextBox Then
        If Nz(ctl.Value, "") = "" Then
            ctl.Visible = False
        End If
    End If
Next ctl
 
End Sub

le nom de mon formulairetabulaire est F_Devis.

[Invité]

Salut,

Si tu as juste un champ à masquer, il vaut mieux faire :

Code :

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

1
2
3
4
 
Private Sub Form_Current()
 Me.MonChamp.Visible = Len(Nz(MonChamp,""))>0
End Sub

Beaucoup plus simple

[Mbthx94]

Bonjour,

j'ai utilisé le même code que assanito mais la même erreur ce produit par contre j'ai plusieurs champs.
Mon formulaire s'appelle "fournisseurs" et j'ai utilisé le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim ctl As Control 
 
 ' Pour chaque contrôle du formulaire
For Each ctl In frm.controls 
    ' On vérifie que le contrôle est bien une zone de texte
    If ctl.ControlType = acTextBox Then 
        ' On vérifie le contenu du contrôle
        If nz(ctl.Value,"") = "" Then 
            ' Il est vide on le rend invisible
            ctl.Visible = False 
        End If 
    End If 
Next ctl

merci de votre retour.