Bonjour,
J'ai regard=E9 le probl=E8me de pagination d'Alexandre=20
pour "imprimer par type" dans un =E9tat.
J'ai le m=EAme probl=E8me. J'ai r=E9ussi =E0 faire en sorte que la=20
premi=E8re page de chaque groupe soit un.
Cependant, pour que le nombre total de page qui appara=EEsse=20
soit celui du groupe, il y a un p=E9pin.
La fa=E7on d'y arriver est indiqu=E9 =E0 cette page:
http://support.microsoft.com/default.aspx?scid=3Dkb;en-
us;841779&Product=3Dacc2000
Le second carr=E9 gris est pour avoir la page 1 =E0 chaque=20
d=E9but et le 3e carr=E9 gris pour le probl=E8me que j'ai.
Cependant le code VBA ne fontionne pas..je ne sais pas=20
trop o=F9 le mettre ou quoi faire...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond [mvp]
Bonjour.
J'ai testé la procédure microsoft et elle marche très bien, Seulement elle n'est pas facile à mettre en place, compte tenu qu'elle est en version US. J'ai testé en remplaçant le champ Country par le champ MaDate dans une base quelconque. tu suis la procédure et tu changes country par Madate tout le long. pour ta base, (change Madate par le nom de champ de ton groupe). Cette procédure est faite pour le premier groupe. si tu as plusieurs groupes, attention aux noms de procédures.
ci-dessous le code à mettre dans l'état. Option Compare Database Option Explicit
Dim DB As dao.Database Dim GrpPages As dao.Recordset
Private Sub EntêteGroupe1_Format(Cancel As Integer, FormatCount As Integer) 'Set page number to 1 when a new group starts. Page = 1 End Sub
Function GetGrpPages() 'Find the group name. GrpPages.Seek "=", Me![Madate] If Not GrpPages.NoMatch Then GetGrpPages = GrpPages![Page Number] End If End Function
Private Sub Report_Open(Cancel As Integer) Set DB = CurrentDb DoCmd.SetWarnings False DoCmd.RunSQL "Delete * From [Category Group Pages];" DoCmd.SetWarnings True Set GrpPages = DB.OpenRecordset("Category Group Pages", DB_OPEN_TABLE) GrpPages.Index = "PrimaryKey" End Sub
Private Sub ZonePiedPage_Format(Cancel As Integer, FormatCount As Integer) 'Find the group. GrpPages.Seek "=", Me![Madate] If Not GrpPages.NoMatch Then 'The group is already there. If GrpPages![Page Number] < Me.Page Then GrpPages.Edit GrpPages![Page Number] = Me.Page GrpPages.Update End If Else 'This is the first page of the group. Therefore, add it. GrpPages.AddNew GrpPages![Madate] = Me![Madate] GrpPages![Page Number] = Me.Page GrpPages.Update End If End Sub
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Antoine" a écrit dans le message de news:2604d01c4629b$07f22860$ Bonjour, J'ai regardé le problème de pagination d'Alexandre pour "imprimer par type" dans un état. J'ai le même problème. J'ai réussi à faire en sorte que la première page de chaque groupe soit un. Cependant, pour que le nombre total de page qui apparaîsse soit celui du groupe, il y a un pépin.
La façon d'y arriver est indiqué à cette page: http://support.microsoft.com/default.aspx?scid=kb;en- us;841779&Product¬c2000
Le second carré gris est pour avoir la page 1 à chaque début et le 3e carré gris pour le problème que j'ai. Cependant le code VBA ne fontionne pas..je ne sais pas trop où le mettre ou quoi faire...
Merci Antoine
Bonjour.
J'ai testé la procédure microsoft et elle marche très bien, Seulement elle
n'est pas facile à mettre en place, compte tenu qu'elle est en version US.
J'ai testé en remplaçant le champ Country par le champ MaDate dans une base
quelconque.
tu suis la procédure et tu changes country par Madate tout le long. pour ta
base, (change Madate par le nom de champ de ton groupe). Cette procédure est
faite pour le premier groupe. si tu as plusieurs groupes, attention aux noms
de procédures.
ci-dessous le code à mettre dans l'état.
Option Compare Database
Option Explicit
Dim DB As dao.Database
Dim GrpPages As dao.Recordset
Private Sub EntêteGroupe1_Format(Cancel As Integer, FormatCount As Integer)
'Set page number to 1 when a new group starts.
Page = 1
End Sub
Function GetGrpPages()
'Find the group name.
GrpPages.Seek "=", Me![Madate]
If Not GrpPages.NoMatch Then
GetGrpPages = GrpPages![Page Number]
End If
End Function
Private Sub Report_Open(Cancel As Integer)
Set DB = CurrentDb
DoCmd.SetWarnings False
DoCmd.RunSQL "Delete * From [Category Group Pages];"
DoCmd.SetWarnings True
Set GrpPages = DB.OpenRecordset("Category Group Pages", DB_OPEN_TABLE)
GrpPages.Index = "PrimaryKey"
End Sub
Private Sub ZonePiedPage_Format(Cancel As Integer, FormatCount As Integer)
'Find the group.
GrpPages.Seek "=", Me![Madate]
If Not GrpPages.NoMatch Then
'The group is already there.
If GrpPages![Page Number] < Me.Page Then
GrpPages.Edit
GrpPages![Page Number] = Me.Page
GrpPages.Update
End If
Else
'This is the first page of the group. Therefore, add it.
GrpPages.AddNew
GrpPages![Madate] = Me![Madate]
GrpPages![Page Number] = Me.Page
GrpPages.Update
End If
End Sub
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Antoine" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:2604d01c4629b$07f22860$a601280a@phx.gbl...
Bonjour,
J'ai regardé le problème de pagination d'Alexandre
pour "imprimer par type" dans un état.
J'ai le même problème. J'ai réussi à faire en sorte que la
première page de chaque groupe soit un.
Cependant, pour que le nombre total de page qui apparaîsse
soit celui du groupe, il y a un pépin.
La façon d'y arriver est indiqué à cette page:
http://support.microsoft.com/default.aspx?scid=kb;en-
us;841779&Product¬c2000
Le second carré gris est pour avoir la page 1 à chaque
début et le 3e carré gris pour le problème que j'ai.
Cependant le code VBA ne fontionne pas..je ne sais pas
trop où le mettre ou quoi faire...
J'ai testé la procédure microsoft et elle marche très bien, Seulement elle n'est pas facile à mettre en place, compte tenu qu'elle est en version US. J'ai testé en remplaçant le champ Country par le champ MaDate dans une base quelconque. tu suis la procédure et tu changes country par Madate tout le long. pour ta base, (change Madate par le nom de champ de ton groupe). Cette procédure est faite pour le premier groupe. si tu as plusieurs groupes, attention aux noms de procédures.
ci-dessous le code à mettre dans l'état. Option Compare Database Option Explicit
Dim DB As dao.Database Dim GrpPages As dao.Recordset
Private Sub EntêteGroupe1_Format(Cancel As Integer, FormatCount As Integer) 'Set page number to 1 when a new group starts. Page = 1 End Sub
Function GetGrpPages() 'Find the group name. GrpPages.Seek "=", Me![Madate] If Not GrpPages.NoMatch Then GetGrpPages = GrpPages![Page Number] End If End Function
Private Sub Report_Open(Cancel As Integer) Set DB = CurrentDb DoCmd.SetWarnings False DoCmd.RunSQL "Delete * From [Category Group Pages];" DoCmd.SetWarnings True Set GrpPages = DB.OpenRecordset("Category Group Pages", DB_OPEN_TABLE) GrpPages.Index = "PrimaryKey" End Sub
Private Sub ZonePiedPage_Format(Cancel As Integer, FormatCount As Integer) 'Find the group. GrpPages.Seek "=", Me![Madate] If Not GrpPages.NoMatch Then 'The group is already there. If GrpPages![Page Number] < Me.Page Then GrpPages.Edit GrpPages![Page Number] = Me.Page GrpPages.Update End If Else 'This is the first page of the group. Therefore, add it. GrpPages.AddNew GrpPages![Madate] = Me![Madate] GrpPages![Page Number] = Me.Page GrpPages.Update End If End Sub
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Antoine" a écrit dans le message de news:2604d01c4629b$07f22860$ Bonjour, J'ai regardé le problème de pagination d'Alexandre pour "imprimer par type" dans un état. J'ai le même problème. J'ai réussi à faire en sorte que la première page de chaque groupe soit un. Cependant, pour que le nombre total de page qui apparaîsse soit celui du groupe, il y a un pépin.
La façon d'y arriver est indiqué à cette page: http://support.microsoft.com/default.aspx?scid=kb;en- us;841779&Product¬c2000
Le second carré gris est pour avoir la page 1 à chaque début et le 3e carré gris pour le problème que j'ai. Cependant le code VBA ne fontionne pas..je ne sais pas trop où le mettre ou quoi faire...
Merci Antoine
Antoine
Merci beaucoup pour votre aide. Il y a juste un petit problème.
J'ai entré le code que tu m'as envoyé et changer le nom "madate" pas mon champ à moi. Cependant, à l'ouverture, il me demande d'entrer la valeur de "Page Number" . Fallait-t-il que je remplace ce nom par un autre nom? J'ai essayé de mettre un nouveau champs "Page Number" dans ma Table, mais le problème énoncé plus bas arrive. De plus que je ne crois pas que c'est ce qu'il fallait faire.
Faut-il que je change GrpPages.Index = "PrimaryKey" pour ma clé primaire à moi? Je l'ai essayé mais ça na pas fonctionné (N°).
J'ai aussi essayé de remplacer Private Sub Report_Open(Cancel As Integer) par Private Sub MonÉtat_Open(Cancel As Integer)
À l'ouverture ça me dit: L'expression au formatage entrée comme paramètre de la propriété de type évènement est à l'origine d'une erreur. Type défini par l'utilisateur non défini.
Merci beaucoup Antoine
Merci beaucoup pour votre aide.
Il y a juste un petit problème.
J'ai entré le code que tu m'as envoyé et changer le
nom "madate" pas mon champ à moi.
Cependant, à l'ouverture, il me demande d'entrer la valeur
de "Page Number" . Fallait-t-il que je remplace ce nom par
un autre nom? J'ai essayé de mettre un nouveau
champs "Page Number" dans ma Table, mais le problème
énoncé plus bas arrive. De plus que je ne crois pas que
c'est ce qu'il fallait faire.
Faut-il que je change GrpPages.Index = "PrimaryKey" pour
ma clé primaire à moi? Je l'ai essayé mais ça na pas
fonctionné (N°).
J'ai aussi essayé de remplacer
Private Sub Report_Open(Cancel As Integer) par
Private Sub MonÉtat_Open(Cancel As Integer)
À l'ouverture ça me dit:
L'expression au formatage entrée comme paramètre de la
propriété de type évènement est à l'origine d'une erreur.
Type défini par l'utilisateur non défini.
Merci beaucoup pour votre aide. Il y a juste un petit problème.
J'ai entré le code que tu m'as envoyé et changer le nom "madate" pas mon champ à moi. Cependant, à l'ouverture, il me demande d'entrer la valeur de "Page Number" . Fallait-t-il que je remplace ce nom par un autre nom? J'ai essayé de mettre un nouveau champs "Page Number" dans ma Table, mais le problème énoncé plus bas arrive. De plus que je ne crois pas que c'est ce qu'il fallait faire.
Faut-il que je change GrpPages.Index = "PrimaryKey" pour ma clé primaire à moi? Je l'ai essayé mais ça na pas fonctionné (N°).
J'ai aussi essayé de remplacer Private Sub Report_Open(Cancel As Integer) par Private Sub MonÉtat_Open(Cancel As Integer)
À l'ouverture ça me dit: L'expression au formatage entrée comme paramètre de la propriété de type évènement est à l'origine d'une erreur. Type défini par l'utilisateur non défini.
Merci beaucoup Antoine
Raymond [mvp]
Je viens de faire la procédure en français et en condensé, tu la trouveras sur la page : http://access.vba.free.fr/pagination_groupe.htm si tu trouves des anomalies, je compte sur toi pour les remonter.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Antoine" a écrit dans le message de news:269ee01c462b1$c7f9b220$ Merci beaucoup pour votre aide. Il y a juste un petit problème.
J'ai entré le code que tu m'as envoyé et changer le nom "madate" pas mon champ à moi. Cependant, à l'ouverture, il me demande d'entrer la valeur de "Page Number" . Fallait-t-il que je remplace ce nom par un autre nom? J'ai essayé de mettre un nouveau champs "Page Number" dans ma Table, mais le problème énoncé plus bas arrive. De plus que je ne crois pas que c'est ce qu'il fallait faire.
Faut-il que je change GrpPages.Index = "PrimaryKey" pour ma clé primaire à moi? Je l'ai essayé mais ça na pas fonctionné (N°).
J'ai aussi essayé de remplacer Private Sub Report_Open(Cancel As Integer) par Private Sub MonÉtat_Open(Cancel As Integer)
À l'ouverture ça me dit: L'expression au formatage entrée comme paramètre de la propriété de type évènement est à l'origine d'une erreur. Type défini par l'utilisateur non défini.
Merci beaucoup Antoine
Je viens de faire la procédure en français et en condensé, tu la trouveras
sur la page : http://access.vba.free.fr/pagination_groupe.htm
si tu trouves des anomalies, je compte sur toi pour les remonter.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Antoine" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:269ee01c462b1$c7f9b220$a501280a@phx.gbl...
Merci beaucoup pour votre aide.
Il y a juste un petit problème.
J'ai entré le code que tu m'as envoyé et changer le
nom "madate" pas mon champ à moi.
Cependant, à l'ouverture, il me demande d'entrer la valeur
de "Page Number" . Fallait-t-il que je remplace ce nom par
un autre nom? J'ai essayé de mettre un nouveau
champs "Page Number" dans ma Table, mais le problème
énoncé plus bas arrive. De plus que je ne crois pas que
c'est ce qu'il fallait faire.
Faut-il que je change GrpPages.Index = "PrimaryKey" pour
ma clé primaire à moi? Je l'ai essayé mais ça na pas
fonctionné (N°).
J'ai aussi essayé de remplacer
Private Sub Report_Open(Cancel As Integer) par
Private Sub MonÉtat_Open(Cancel As Integer)
À l'ouverture ça me dit:
L'expression au formatage entrée comme paramètre de la
propriété de type évènement est à l'origine d'une erreur.
Type défini par l'utilisateur non défini.
Je viens de faire la procédure en français et en condensé, tu la trouveras sur la page : http://access.vba.free.fr/pagination_groupe.htm si tu trouves des anomalies, je compte sur toi pour les remonter.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Antoine" a écrit dans le message de news:269ee01c462b1$c7f9b220$ Merci beaucoup pour votre aide. Il y a juste un petit problème.
J'ai entré le code que tu m'as envoyé et changer le nom "madate" pas mon champ à moi. Cependant, à l'ouverture, il me demande d'entrer la valeur de "Page Number" . Fallait-t-il que je remplace ce nom par un autre nom? J'ai essayé de mettre un nouveau champs "Page Number" dans ma Table, mais le problème énoncé plus bas arrive. De plus que je ne crois pas que c'est ce qu'il fallait faire.
Faut-il que je change GrpPages.Index = "PrimaryKey" pour ma clé primaire à moi? Je l'ai essayé mais ça na pas fonctionné (N°).
J'ai aussi essayé de remplacer Private Sub Report_Open(Cancel As Integer) par Private Sub MonÉtat_Open(Cancel As Integer)
À l'ouverture ça me dit: L'expression au formatage entrée comme paramètre de la propriété de type évènement est à l'origine d'une erreur. Type défini par l'utilisateur non défini.
Merci beaucoup Antoine
Antoine
Rebonjour, Merci encore pour votre aide. J'ai la page dont vous m'avez envoyé le lien et je l'ai essayée. Le même problème persiste. J'ai essayé de changer environ tout ce que je pouvais imaginer. J'ai créer une nouvelle base de donnée avec 2 tables: pays et capitale et avec le code ça ne marchait toujours pas. (pays dans la table pays-capitale ne peut pas être un clé primaire donc le champ n'est pas identique à la table que vous dites de créer, je ne sais pas si ca dérange).
J'aimerais svp que vous me disiez les informations, qui sont en VBA, que je dois changer, en fonction d'une base de donnée personnelle, afin que ça fonctionne. (exemple je dois changer "pays" par mon champ à moi. Mais les autres?
Merci énormément Antoine
Rebonjour,
Merci encore pour votre aide.
J'ai la page dont vous m'avez envoyé le lien et je l'ai
essayée. Le même problème persiste. J'ai essayé de changer
environ tout ce que je pouvais imaginer.
J'ai créer une nouvelle base de donnée avec 2 tables: pays
et capitale et avec le code ça ne marchait toujours pas.
(pays dans la table pays-capitale ne peut pas être un clé
primaire donc le champ n'est pas identique à la table que
vous dites de créer, je ne sais pas si ca dérange).
J'aimerais svp que vous me disiez les informations, qui
sont en VBA, que je dois changer, en fonction d'une base
de donnée personnelle, afin que ça fonctionne. (exemple je
dois changer "pays" par mon champ à moi. Mais les autres?
Rebonjour, Merci encore pour votre aide. J'ai la page dont vous m'avez envoyé le lien et je l'ai essayée. Le même problème persiste. J'ai essayé de changer environ tout ce que je pouvais imaginer. J'ai créer une nouvelle base de donnée avec 2 tables: pays et capitale et avec le code ça ne marchait toujours pas. (pays dans la table pays-capitale ne peut pas être un clé primaire donc le champ n'est pas identique à la table que vous dites de créer, je ne sais pas si ca dérange).
J'aimerais svp que vous me disiez les informations, qui sont en VBA, que je dois changer, en fonction d'une base de donnée personnelle, afin que ça fonctionne. (exemple je dois changer "pays" par mon champ à moi. Mais les autres?
Merci énormément Antoine
Raymond [mvp]
Bonjour.
Il n'y a que le champ pays à changer. il faut que l'état soit de même structure que l'exemple. 1 seul groupe numéroté. si tu fais un groupe sur le pays, tout ce qui est en dessous ne joue pas car il fait partie de la section détail. Il ne faut rien changer au code, sauf le nom du champ qui est utilisé en groupe (champ pays dans l'exemple). si tu n'y arrives pas, tu me passes ta base par mail je regarderai dans la journée.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Antoine" a écrit dans le message de news:274c401c462c0$a2158a20$ Rebonjour, Merci encore pour votre aide. J'ai la page dont vous m'avez envoyé le lien et je l'ai essayée. Le même problème persiste. J'ai essayé de changer environ tout ce que je pouvais imaginer. J'ai créer une nouvelle base de donnée avec 2 tables: pays et capitale et avec le code ça ne marchait toujours pas. (pays dans la table pays-capitale ne peut pas être un clé primaire donc le champ n'est pas identique à la table que vous dites de créer, je ne sais pas si ca dérange).
J'aimerais svp que vous me disiez les informations, qui sont en VBA, que je dois changer, en fonction d'une base de donnée personnelle, afin que ça fonctionne. (exemple je dois changer "pays" par mon champ à moi. Mais les autres?
Merci énormément Antoine
Bonjour.
Il n'y a que le champ pays à changer.
il faut que l'état soit de même structure que l'exemple. 1 seul groupe
numéroté.
si tu fais un groupe sur le pays, tout ce qui est en dessous ne joue pas car
il fait partie de la section détail.
Il ne faut rien changer au code, sauf le nom du champ qui est utilisé en
groupe (champ pays dans l'exemple).
si tu n'y arrives pas, tu me passes ta base par mail je regarderai dans la
journée.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Antoine" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:274c401c462c0$a2158a20$a301280a@phx.gbl...
Rebonjour,
Merci encore pour votre aide.
J'ai la page dont vous m'avez envoyé le lien et je l'ai
essayée. Le même problème persiste. J'ai essayé de changer
environ tout ce que je pouvais imaginer.
J'ai créer une nouvelle base de donnée avec 2 tables: pays
et capitale et avec le code ça ne marchait toujours pas.
(pays dans la table pays-capitale ne peut pas être un clé
primaire donc le champ n'est pas identique à la table que
vous dites de créer, je ne sais pas si ca dérange).
J'aimerais svp que vous me disiez les informations, qui
sont en VBA, que je dois changer, en fonction d'une base
de donnée personnelle, afin que ça fonctionne. (exemple je
dois changer "pays" par mon champ à moi. Mais les autres?
Il n'y a que le champ pays à changer. il faut que l'état soit de même structure que l'exemple. 1 seul groupe numéroté. si tu fais un groupe sur le pays, tout ce qui est en dessous ne joue pas car il fait partie de la section détail. Il ne faut rien changer au code, sauf le nom du champ qui est utilisé en groupe (champ pays dans l'exemple). si tu n'y arrives pas, tu me passes ta base par mail je regarderai dans la journée.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Antoine" a écrit dans le message de news:274c401c462c0$a2158a20$ Rebonjour, Merci encore pour votre aide. J'ai la page dont vous m'avez envoyé le lien et je l'ai essayée. Le même problème persiste. J'ai essayé de changer environ tout ce que je pouvais imaginer. J'ai créer une nouvelle base de donnée avec 2 tables: pays et capitale et avec le code ça ne marchait toujours pas. (pays dans la table pays-capitale ne peut pas être un clé primaire donc le champ n'est pas identique à la table que vous dites de créer, je ne sais pas si ca dérange).
J'aimerais svp que vous me disiez les informations, qui sont en VBA, que je dois changer, en fonction d'une base de donnée personnelle, afin que ça fonctionne. (exemple je dois changer "pays" par mon champ à moi. Mais les autres?
