Les mémos

Fermer Tables

Fermer Requêtes

Fermer Formulaires

Fermer Etats

Fermer Modules

Fermer Base

Fermer Automation

Fermer Administration

Fermer Registre

Fermer String

Fermer Email CDO

Fermer Outlook

Fermer Net

Fermer Dates - Heures

Fermer Fichiers

Fermer Références

Fermer Vrac

Je débute...

Fermer La normalisation

Fermer VBA

Attention
Aucun support
par émail !

Utilisez le forum pour les questions/réponses concernant MsAccess et les codes que vous trouverez sur ce site.
Visites

   visiteurs

   visiteurs en ligne

Etats - 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.


Date de création : 19/06/2007 : 02:54
Dernière modification : 31/07/2007 : 16:23
Catégorie : Etats
Page lue 5415 fois


Imprimer l'article Imprimer l'article

Recherche



Lettre d'information
Pour avoir des nouvelles de ce site, inscrivez-vous à notre Newsletter.
Captcha
Recopier le code :
Au sujet de l'auteur
L'auteur qui fréquente (fréquentait) le forum microsoft.public.fr.access a eu le plaisir d'être nommé MVP Office-Access de janvier 2003 à décembre 2011.

Qui sont les MVP ?

Divers ;-)
Nous contacter

Haut