Bonjour à tous

Mon sous formulaire contient une trentaine de champs de type texte. J'aimerai qu'à l'ouverture du formulaire contenant le sous formulaire, des etiquettes soient visible si le champ n'est pas vide ou non visible si le champ contient des données. Mais le champ peut avoir été effacé auqeul cas il n'est pas null mais contient la valeur "". Le but est que l'étiquette est une croix rouge qui permet d'effacer le champ sur clic. J'ai nommé l'étiquette du même nom que le champ mais avec le préfixe "suppr_".
voici le code que j'essaie:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Form_Open(Cancel As Integer)
 
    Dim ctl As Control
    Dim monchamp As String
    For Each ctl In Me.Controls
        If ctl.ControlType = acTextBox Then
            If IsNull(ctl.Value) Or ctl.Value = "" Then
              Me.Controls("Suppr_" & ctl.Name).Visible = False
            End If
        End If
    Next ctl
End Sub
J'ai bien essayé d'autre combinaisons mais aucune ne fonctionne.
Avez-vous une suggestions
Merci d'avance