Discussion :

[zemblamoh]

Bonjour,
J’ai un formulaire avec une quarantaine de champs. Je voulais masquer ceux qui n’affichent que des valeurs nulles. J’ai fait un code qui fonctionne pour un champ. Ma question est: comment peut on étendre ce code à tous les champs du formulaire sans être obligé de les nommer à chaque fois. Est-ce possible avec mon code que voici :

Code :

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

1
2
3
4
5
6
7
Private Sub Form_Load()
If IsNull(Me.champ_1) Or Me.champ_1 = 0 Then
Me.champ_1.ColumnHidden = True
Else
Me.champ_1.ColumnHidden = False
End If
 End Sub

Merci

[Invité]

Bonjour

Le but est de parcourir la collection des contrôles de ton formulaire avec une boucle For ... Each.

Tu peux largement t'inspirer de ce qu'il y a dans la FAQ Access :

Comment masquer/rendre invisible toutes les zones de texte vides ?

Philippe

[zemblamoh]

Bonjour,
j'ai consulté la FAQ que vous m'avez proposée. J'ai crée un code approchant, mais j'obtiens l'erreur suivante:
Erreur d'exécution "424"
Objet requis.

Voici le code:

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_Load()
Dim ctl As Control
'
For Each ctl In FrmTable1.Controls
If ctl.Value = 0 Then
ctl.ColumnHidden = True
Else
ctl.ColumnHidden = False
End If
Next ctl
 
End Sub

Mon formulaire FrmTab1 est en feuille de données et sans zone de texte.
Merci

[zemblamoh]

Bonjour,
Voici enfin trouvée la solution à ma question.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Form_Current()
Dim ctrl As Control
'
For Each ctrl In Me.Controls
'Debug.Print ctrl.Name
On Error Resume Next
If IsNumeric(ctrl) Or IsNull(ctrl) Then
s_ctrl = DSum(ctrl.Name, "Table1")
If s_ctrl = 0 Or IsNull(s_ctrl) Then
ctrl.ColumnHidden = True
Else
ctrl.ColumnHidden = False
End If
End If
'
Next
End Sub

Merci