Discussion :

[BizutAccess]

Bonjour,
J'ai une question à laquelle je n'arrive pas a donner une réponse:
je construis un état à partir d'une requête et le résultat me donne un état de 150 lignes, j'aimerai pouvoir le scinder en plusieurs monceau en insérant un saut de page , par exemple toutes les 50 lignes.
Chaque morceau ayant une entête identique plus un numéro tel que: Etat1/n.
La solution, si elle existe, peut être réalisée en VBA.

Merci de votre aide.

[francishop]

Bonsoir,

Pour le nombre de pages avec l'assistant d'Access--> aucun souci.

Pour le nombre de lignes :
Dans la section Détail, on ajoute une zone de texte indépendante baptisée promptement sans autre cérémonial :
-->CompteurLigne
propriété Visible--> Non.
Source contrôle--> =1.
Cumul--> En continu.

Au formatage de la section Détail :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
    If (Me.CompteurLigne Mod 50) = 0 Then
 
        Me.Détail.ForceNewPage = 2
    Else
        Me.Détail.ForceNewPage = 0
    End If
End Sub

Cordialement.

[BizutAccess]

Merci pour la solution

A bientôt pour d'autre question.


Lorsque l'on se cogne la tête contre un pot et que cela sonne creux, ça n'est pas forcément le pot qui est vide.
Confucius

[Invité]

Bonjour

Si la solution te convient, penses à cliquer sur

Starec