Salut Anto03,
Je pars de l'exemple suivant: un état simple avec les sections En-tête d'état, En-tête de page, Détail, Pied de page, Pied d'état.
Dans la zone de déclaration de la fenêtre du code de ton état, déclare des variables privées: (juste en dessous des Option Compare Database et Option Explicit)
Private a as long, b as long, i as long
Pour l'événement Sur ouverture de l'état:
1 2 3 4
| Private Sub Report_Open(Cancel as integer, Printcount as integer)
a=0
b=0
End Sub |
Pour l'événement sur Impression de la section En-tête de page:
1 2 3 4 5
| Private Sub ZoneEntêtePage_Print(Cancel as integer, Printcount as integer)
a=b+1
'le numéro de l'enregistrement du début de la page est égale au
'numéro du dernier enregistrement de la page précédente +1
End Sub |
Pour l'événement sur Impression de la section Détail:
1 2 3 4
| Private Sub Détail_Print(Cancel as integer, Printcount as integer)
i=i+1
'pour l'incrémentation des numéros d'enregistrement
End Sub |
Et enfin pour l'événement sur Impression de la section Pied de page, où l'on doit écrire le truc "Enregistrement <a> à <b> sur <total>":
1 2 3 4
| Private Sub ZonePiedPage_Print(Cancel as integer, Printcount as integer)
b=i
Me.TexteXXX="Enregistrement " & a & " à " & b & " sur ..."
End Sub |
Je pense t'avoir aidé ...
Partager