Discussion :

[qizRR]

Bonjour,

je vous écrit car j'ai un petit souci pour une condition.
Je souhaite que mon code parcours tous les enregistrements de mon formulaire, afin de vérifier pour chacun d'entre eux si le champ Commentaires contient du texte ou non.
S'il contient du texte alors j'affiche un contrôle qui se nomme "CommentaireLabel" et sinon il est invisible.

J'ai utilisé le code suivant :
Private Sub Form_Load()

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_Load()
 
For Each rec In Me.Recordset
    If Nz(rec![Me.Commentaires], "") <> "" Then
        Me.Controls("CommentaireNotif").Visible = True
    Else
        Me.Controls("CommentaireNotif").Visible = False
    End If
Next
 
End Sub

Sauf que j'ai l'impression que ma condition n'est jamais vérifié ou que mon code ne se lance pas puisque rien ne se passe..
Qui aurait une idée ?

Merci d'avance pour votre aide !

[User]

Bonjour,

Avant de corriger ce code, pouvez-vous nous préciser si votre formulaire s'afficher en mode formulaire unique (1 seul enrg à la fois) ou bien en mode formulaire continu / feuille de données (visualisation de plusieurs enrgs) ?

Merci !

[qizRR]

Nonjour,

Effectivement c'est un oubli de ma part.
C'est un formulaire continu, il y'a plusieurs enregistrement à la suite.

[User]

Dans ce cas, si par exemple vous rendez visible votre contrôle, il ne va pas faire de distinction entre les enrgs, le contrôle sera visible pour tous les enrgs, car cela concerne la mise en forme du formulaire. Une piste serait d'utiliser la mise en forme conditionnelle mais la propriété visible des contrôles n'est pas prise en charge dans ce cas.

Cdlt,