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:
J'ai bien essayé d'autre combinaisons mais aucune ne fonctionne.
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
Avez-vous une suggestions
Merci d'avance
Partager