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 :

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.