Discussion :

[pasbonte]

Bonjour,
J'ai un état avec une entête de groupe (adresse du responsable 2), j'aimerai cacher cette entête si jamais le champ, l'enregistrement est vide.
Si adresseresp2=vide alors je n'affiche pas l'entête, en sachant que l'état peut s'imprimer avec responsable1 rempli
c'est faisable ?
merci

[Maxence HUBICHE]

Ce ne serait pas plus simple d'éliminer ces enregistrements à la source ? sur la requête source de l'état ?

[pasbonte]

hé bien je vais me répondre pour servir à d'autres:
dans formatage de l'évènement de la section

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
18
19
20
21
22
23
24
25
26
 
If IsNull(Resp2) Then
Me.MoveLayout = False
Me.Étiquette169.Visible = False
Me.Texte166.Visible = False
Me.Étiquette159.Visible = False
Me.Texte176.Visible = False
Me.Texte177.Visible = False
Me.Étiquette160.Visible = False
Me.Texte172.Visible = False
Me.Étiquette167.Visible = False
Me.Texte173.Visible = False
Me.Texte175.Visible = False
Me.Étiquette161.Visible = False
Me.Étiquette170.Visible = False
Me.Étiquette171.Visible = False
Me.Étiquette162.Visible = False
Me.Étiquette168.Visible = False
Me.Étiquette163.Visible = False
Me.Boîte165.Visible = False
Me.Étiquette164.Visible = False
Else
Me.MoveLayout = True
etc
 
End If

[Maxence HUBICHE]

Bon, ben... puisque tu ne veux pas me répondre...
tant pis !

Je te propose une amélioration de ton code :

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
18
19
20
21
22
23
 
 
Dim blnStatus as Boolean
blnStatus = Not IsNull(Resp2)
Me.MoveLayout = blnStatus 
Me.Étiquette169.Visible = blnStatus 
Me.Texte166.Visible = blnStatus 
Me.Étiquette159.Visible = blnStatus 
Me.Texte176.Visible = blnStatus 
Me.Texte177.Visible = blnStatus 
Me.Étiquette160.Visible = blnStatus 
Me.Texte172.Visible = blnStatus 
Me.Étiquette167.Visible = blnStatus 
Me.Texte173.Visible = blnStatus 
Me.Texte175.Visible = blnStatus 
Me.Étiquette161.Visible = blnStatus 
Me.Étiquette170.Visible = blnStatus 
Me.Étiquette171.Visible = blnStatus 
Me.Étiquette162.Visible = blnStatus 
Me.Étiquette168.Visible = blnStatus 
Me.Étiquette163.Visible = blnStatus 
Me.Boîte165.Visible = blnStatus 
Me.Étiquette164.Visible = blnStatus

[pasbonte]

Merci pour cette amélioration !