Discussion :

[filip79]

Bonjour le forum,

Je réalise un etat étiquette sur une table qui contient :

non;prenom;adr1;adr2;CP;Ville....

Je souhaite que si adr2 est vide , l'espace laissé par le champ vide n'apparaisse plus dans l'état, et donc que CP Ville "remonte d'un cran"

Existe t'il une propriété qui gère cela, fuat il passer par du VBA, quelqu'un a t'il une solution

Merci

[helas]

Ca peut ressembler à ça, sachant que la hauteur des objets doit être récupérée et que la hauteur de la section Détail reste la même donc pas de hauteur gagnée mais peut-être une meilleure esthétique

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
 
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
 
 If (Me!adr2 = "") Or IsNull(Me!adr2) Then
  Me!etAdr2.Visible = False
  Me!adr2.Visible = False
  decalage = 341
 Else
  Me!etAdr2.Visible = True
  Me!adr2.Visible = True
  decalage = 0
 End If
 
 Me!etAdr2.Top = 793 - decalage
 Me!adr2.Top = 793 - decalage
 Me!etCP.Top = 1133 - decalage
 Me!cp.Top = 1133 - decalage
 Me!etVille.Top = 1474 - decalage
 Me!ville.Top = 1474 - decalage
End Sub

Pour récupérer la hauteur, il suffit de mettre un stop et d'afficher dans la fenêtre d'execution ?Me!adr2.Top, ...

[marot_r]

As-tu regardé ce que cela donne en mettant la propriété "auto-réductible" à vrai pour chacun de tes champs d'impression ?

Pour moi cela devrait faire ce dont tu as besoin sans avoir à écrire une seule ligne de code.

A+

[filip79]

Merci a vous 2,

cela fonctionne parfaitement avec auto reductible !!!!

philippe