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

 998871 visiteurs

 1 visiteur en ligne

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 6711 fois