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

 1116153 visiteurs

 2 visiteurs en ligne

Nous contacter

Opération par page

Comment afficher le nombre d'enregistrements ou le total d'un champ comptabilisé "par page" ?

Plaçons d'abord deux TextBox que nous nommerons txtCompteurLigne et txtTotalParPage dans le pied de page.

Nous ajoutons les codes suivants dans les Sub appropriées de l'état:
 

Option Compare Database
Option Explicit

' Déclaration des variables
Dim CompteurLigne As Integer
Dim TotalParPage As Currency

  

' Evénement "Sur impression" de la section Détail

Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer)
     CompteurLigne = CompteurLigne + 1
     TotalParPage = TotalParPage + [montant]
End Sub

' Evénement "Sur impression" de la section Pied de page

Private Sub ZonePiedPage_Print(Cancel As Integer, PrintCount As Integer)    
    Me.txtCompteurLigne = CompteurLigne
    Me.txtTotalParPage = TotalParPage
    CompteurLigne = 0
    TotalParPage = 0
End Sub

Catégorie : Les mémos - Etats
Page lue 7413 fois
Vous êtes ici :   Accueil » Opération par page