[AC-97] Boucle sur textBox

[docjo]

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 :

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

[vodiem]

salut docjo,
ce n'est pas très clair:

Envoyé par docjo

soient visible si le champ n'est pas vide ou non visible si le champ contient des données

je comprends: visible si champ pas vide ou invisible si champ pas vide...
ni ce que fait "la croix rouge" dans cette histoire...

ton code étant fonctionnel, si tu veux t'adresser du formulaire au sous formulaire il faut changer Me.Controls par [sous form].Form.Controls
si c'est ça le soucis...

[docjo]

C'est vrai que ce n'est pas clair mon truc !
Je veux qu'une petite croix rouge apparaisse à droite de chaque champ que l'utilisateur aura rempli. La fonction de cette croix rouge est de supprimer le contenu du champ sur clic plutot que de selectionner le champ et supprimer son contenu. Une fois le contenu supprimé, la croix disparait.
J'essaie de changer Me.controls.

[NguyenRD]

Salut,

Où as-tu mis le code ci-dessus ?
Dans Le formulaire ou dans le sous-formulaire ?
Je pense qu'il faut le mettre dans OnOpen du sous-formulaire.