Discussion :

[Anto03]

Bonjour à tous,
voilà j'ai un état et j'aimerai pouvoir mettre en chaque fin de page le libellé suivant :
Enregistrement [Premier enregistrement de la page] à [Dernier enregistrement de la page] sur [Total enregistrement]
pour le total enregistrement j'y suis arrivé tout seul . Pour le reste c'est une autre affaire... si quelqu'un peut m'aider merci d'avance.
Antony

[loufab]

Bonjour,

Il faut mettre en place un compteur d'enregistrement dans la page.
Propriété source
=1
Cumul = en continu

et remet le compteur à 0 sur sur formatage de l'entete du formulaire

cordialement,

[milia]

Essaye ça:

="Page " & [Page] & " sur " & [Pages]

mais si tu crée ton état avec l'assistance et te le fais automatiquement.

[loufab]

on parle de n° de page ou de n° d'enregistrement ?

[Anto03]

Je parlais bien de numéro d'enregistrement, le numéro de page il le fait tout seul c'est on ne peut plus simple...
Mais c'est bon j'ai réussi à régler mon problème j'explique comment j'ai fait pour ceux que ça intéresse :
1) Il faut donc faire un texte box dans détails et faire comme le dit Loufab. Pour exemple mon textbox se nomme NumLigne sa propriété source est à "=1" et enfin son cumul est à "en continu".
2) Il faut créer un autre textbox qui comprendra le total des enregistrements. Mon textbox ce nomme Total sa propriété source est à "= Compte([Champ])".
3) Enfin on fait un dernier textbox dans le pied de page dont la propriété source est à (accrochez vous) :
="Article " & VraiFaux([numligne].[Texte]=24;1;([numligne].[Texte]-24)) & " à " & [numligne].[Texte] & " sur " & [total].[Texte]

Pourquoi VraiFaux etc. ? Parce que sinon sur la première page il mettera "article 0 sur 24" et non "article 1 sur 24". Ensuite 24 est le nombre de ligne par page il est assez simple de le calculez automatiquement (pour ma part ce n'est pas utile).
Cependant il reste un problème sur la dernière page avec cette solution puisqu'il prend le dernier enregistrement de NumLigne et il le soustrait de 24. Or sur la dernière page il se peut qu'il ne reste que 5 lignes...
Voilà si quelqu'un à une idée, merci encore et bonne continuation.

[Mahefasoa]

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)

Code :

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

Private a as long, b as long, i as long

Pour l'événement Sur ouverture de l'état:

Code :

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

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:

Code :

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

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:

Code :

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

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>":

Code :

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

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é ...

[Bouznika31]

Bonjour Mahefasoa
Merci de ta procédure.
Mais je ne comprends pourquoi à la dernière page cela me compte un enregistrement de trop
De même pour avoir un nombre d'enregistrement selon un critere je mets dans Détail_Format:
If Inactif = 0 Then
i = i + 1
else
i=1
end if
Cela pour ne compter que les actifs sur chaque page
Cela ne fonctionne pas sur certaines pages. Je ne comprends pas
Merci de ton retour sur une discussion si ancienne mais très peu de forum parle du nombre d'enregistrement sur etat access par page et par critère. Ta solution me parait la seule adaptable