Cacher un champ dans un état Access qd celui-ci est vide

Question

Bonjour, 
en fait je veux afficher un champ uniquement quand celui-ci est vide sur mon &#233;tat. Je suppose que pour faire cela, il faut utiliser un code en VBA mais je ne m'y connais pas vraiment donc ... 
J'aimerais &#233;galement attach&#233; &#224; ce champ un espace. Cela signifie que lorsque mon champ a du texte la partie "D&#233;tail" de mon &#233;tat doit &#234;tre plus grande que qd mon champ est vide. Par contre je ne sais pas si ce 2&#232;me point est r&#233;alisable

Merci d'avance
Olivier

orobert01 · Answer

Juste un petit correctif, je veux afficher le champ que lorqu'il n'est pas vide... (j'avais oublier la n&#233;gation!!

Olivier

Tuning Max · Answer

rien de plus simple pour le masquage des champs. 
Un petit bout de code dans l'&#233;v&#233;nement "Private Sub Report_Activate()" de ton &#233;tat

If Not IsNull(Me.Controls("NomduContr&#244;le").value) Then
    Me.Controls("NomduContr&#244;le").Visible = True
    Me.Controls("&#201;tiquette_Contr&#244;le").Visible = True
End If



Pour le second point, il faut que ton champ est la propri&#233;t&#233; "Auto extensible" et "Auto r&#233;ductible" avec la valeur oui. La taille de la zone d&#233;tail est elle de toute fa&#231;on toujours auto extensible, en fonction des donn&#233;es. Le seul probl&#232;me &#224; ma connaissance est sur les zones texte qui s'&#233;tende en largeurs mais pas en hauteur. Il te faudra certainement modifier par code la hauteur de ta zone en fonction du nombre de caract&#232;res qu'elle contient.

Bon courage!

orobert01 · Answer

Ok merci pour ton aide, je vais tester cela dans la matin&#233;e...

Olivier

Tuning Max · Answer

J'ai oublier de pr&#233;ciser que par defaut ton champ doit &#234;tre invisible. sinon tu peux rajouter au code que je t'ai fourni un Else pour prendre en compte les cas ou le champ est null

If Not IsNull(Me.Controls("NomduContr&#244;le").value) Then
    Me.Controls("NomduContr&#244;le").Visible = True
    Me.Controls("&#201;tiquette_Contr&#244;le").Visible = True
Else:
    Me.Controls("NomduContr&#244;le").Visible = False
    Me.Controls("&#201;tiquette_Contr&#244;le").Visible = False
End If

Malardrie · Answer

Merci pour ton code.
Comment faire pour que l etest se fasse sur tous les enregistrements de la table (ou requête) liée, avec ton code il fait le test sur le premier Controle mais pas sur les suivants.


PS : je suis débutant en VBA mais ne demande qu'à apprendre.

Cacher un champ dans un état Access qd celui-ci est vide

5 réponses

Discussions similaires