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