En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1222982 visiteurs

 1 visiteur en ligne

Nous contacter

Contact

Liste et séparation

Vous créer un état qui reprend, par exemple, une liste d'articles qui possèdent une numérotation par "groupe" et donc discontinue.

Pour créer un "saut de ligne" lorsque la numérotation continue est interrompue, on peut utiliser la méthode suivante.

Situation :

  • Votre champ de numérotation se nomme "Numero"
  • Ajouter une zone de texte indépendante "txtEspace" disposée en haut, contre la barre grise de la section détail.
  • Vos champs habituels viennent se placer en-dessous, sur la deuxième ligne.


Vous obtenez ceci :

art_590.png



Code :

En haut, dans la partie déclaration, ajoutez

Option Compare Database
Option Explicit
Dim Num As Long

Dans la sub de l'événement "Au formatage" de la section détail, vous écrivez :

Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
     If Me.Numero <> (Num + 1) Then
          Me.txtEspace = " "
     Else
          Me.txtEspace = ""
     End If
     Num = Me.Numero
End Sub


Il vous reste à positionner les propriétés "Auto extensible" et "Auto réductible" sur Oui pour la zone de texte et la section détail.

Catégorie : - Etats
Page lue 7047 fois
Vous êtes ici :   Accueil » Liste et séparation