Recherche
Recherche
Les mémos
 ↑  
Je débute...
Visites

 992295 visiteurs

 1 visiteur en ligne

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 : Les mémos - Etats
Page lue 5559 fois