Bonjour,
Je voulais, dans un =E9tat que la pagination soit :
"num=E9ro de page de groupe" sur "num=E9ro total de page du=20
groupe" , au lieu de sur "total de pages au complet".
J'ai essay=E9 la proc=E9dure accessible sur=20
http://access.vba.free.fr/pagination_groupe.htm
, qui m'a =E9t=E9 donn=E9e par Raymond, qui m'a d'ailleur=20
grandement aid=E9, mais je n'arrive pas =E0 le faire=20
fonctionner. =C7a me dit "L'expression sur ouverture entr=E9e=20
comme param=E8tre de la propri=E9t=E9 de type =E9v=E9nement est =E8=20
l'origine d'une erruer. Type d=E9fini par l'utilisateur non=20
d=E9fini".
J'ai regard=E9 avec mon ami Antoine qui a pos=E9 lui aussi la=20
m=EAme question et qui a la m=EAme r=E9ponse lorsqu'il lance son=20
application.=20
J'ai cr=E9er une nouvelle base de donn=E9e, en mettant le=20
champ "Pays" comme principal, comme dans l'exemple, mais=20
sans r=E9sultat.
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]
Bonsoir.
Il faut cocher la référence DAO3.6 seulement, mais obligatoirement. Tu me tiens au courant ? -- @+ 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
"Alexandre" a écrit dans le message de news:280a601c46424$7884b5e0$ Bonjour, Je voulais, dans un état que la pagination soit : "numéro de page de groupe" sur "numéro total de page du groupe" , au lieu de sur "total de pages au complet".
J'ai essayé la procédure accessible sur http://access.vba.free.fr/pagination_groupe.htm , qui m'a été donnée par Raymond, qui m'a d'ailleur grandement aidé, mais je n'arrive pas à le faire fonctionner. Ça me dit "L'expression sur ouverture entrée comme paramètre de la propriété de type événement est è l'origine d'une erruer. Type défini par l'utilisateur non défini".
J'ai regardé avec mon ami Antoine qui a posé lui aussi la même question et qui a la même réponse lorsqu'il lance son application. J'ai créer une nouvelle base de donnée, en mettant le champ "Pays" comme principal, comme dans l'exemple, mais sans résultat.
Merci Alexandre
Bonsoir.
Il faut cocher la référence DAO3.6 seulement, mais obligatoirement.
Tu me tiens au courant ?
--
@+
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
"Alexandre" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:280a601c46424$7884b5e0$a501280a@phx.gbl...
Bonjour,
Je voulais, dans un état que la pagination soit :
"numéro de page de groupe" sur "numéro total de page du
groupe" , au lieu de sur "total de pages au complet".
J'ai essayé la procédure accessible sur
http://access.vba.free.fr/pagination_groupe.htm
, qui m'a été donnée par Raymond, qui m'a d'ailleur
grandement aidé, mais je n'arrive pas à le faire
fonctionner. Ça me dit "L'expression sur ouverture entrée
comme paramètre de la propriété de type événement est è
l'origine d'une erruer. Type défini par l'utilisateur non
défini".
J'ai regardé avec mon ami Antoine qui a posé lui aussi la
même question et qui a la même réponse lorsqu'il lance son
application.
J'ai créer une nouvelle base de donnée, en mettant le
champ "Pays" comme principal, comme dans l'exemple, mais
sans résultat.
Il faut cocher la référence DAO3.6 seulement, mais obligatoirement. Tu me tiens au courant ? -- @+ 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
"Alexandre" a écrit dans le message de news:280a601c46424$7884b5e0$ Bonjour, Je voulais, dans un état que la pagination soit : "numéro de page de groupe" sur "numéro total de page du groupe" , au lieu de sur "total de pages au complet".
J'ai essayé la procédure accessible sur http://access.vba.free.fr/pagination_groupe.htm , qui m'a été donnée par Raymond, qui m'a d'ailleur grandement aidé, mais je n'arrive pas à le faire fonctionner. Ça me dit "L'expression sur ouverture entrée comme paramètre de la propriété de type événement est è l'origine d'une erruer. Type défini par l'utilisateur non défini".
J'ai regardé avec mon ami Antoine qui a posé lui aussi la même question et qui a la même réponse lorsqu'il lance son application. J'ai créer une nouvelle base de donnée, en mettant le champ "Pays" comme principal, comme dans l'exemple, mais sans résultat.
Merci Alexandre
Alexandre
Rebonjour!
J'ai bien peur de ne pas comprendre ce que tu veux dire par: "cocher la référence DAO3.6" ??? Où suis-je supposé trouver cette option à cocher? J'ai cherché dans les options, mais pas rien trouvé...
Merci encore Alexandre
Rebonjour!
J'ai bien peur de ne pas comprendre ce que tu veux dire
par:
"cocher la référence DAO3.6" ???
Où suis-je supposé trouver cette option à cocher?
J'ai cherché dans les options, mais pas rien trouvé...
J'ai bien peur de ne pas comprendre ce que tu veux dire par: "cocher la référence DAO3.6" ??? Où suis-je supposé trouver cette option à cocher? J'ai cherché dans les options, mais pas rien trouvé...
Merci encore Alexandre
Raymond [mvp]
place toi dans la fenêtre base de données. ALT + F11 menu outils / références cocher la ligne Microsoft DAO3.6 Object library menu debogage / compiler il ne doit pas y avoir d'erreur. si erreur, quelle ligne ? -- @+ 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
"Alexandre" a écrit dans le message de news:2850201c46449$54b36650$ Rebonjour!
J'ai bien peur de ne pas comprendre ce que tu veux dire par: "cocher la référence DAO3.6" ??? Où suis-je supposé trouver cette option à cocher? J'ai cherché dans les options, mais pas rien trouvé...
Merci encore Alexandre
place toi dans la fenêtre base de données.
ALT + F11
menu outils / références
cocher la ligne Microsoft DAO3.6 Object library
menu debogage / compiler
il ne doit pas y avoir d'erreur.
si erreur, quelle ligne ?
--
@+
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
"Alexandre" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:2850201c46449$54b36650$a501280a@phx.gbl...
Rebonjour!
J'ai bien peur de ne pas comprendre ce que tu veux dire
par:
"cocher la référence DAO3.6" ???
Où suis-je supposé trouver cette option à cocher?
J'ai cherché dans les options, mais pas rien trouvé...
place toi dans la fenêtre base de données. ALT + F11 menu outils / références cocher la ligne Microsoft DAO3.6 Object library menu debogage / compiler il ne doit pas y avoir d'erreur. si erreur, quelle ligne ? -- @+ 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
"Alexandre" a écrit dans le message de news:2850201c46449$54b36650$ Rebonjour!
J'ai bien peur de ne pas comprendre ce que tu veux dire par: "cocher la référence DAO3.6" ??? Où suis-je supposé trouver cette option à cocher? J'ai cherché dans les options, mais pas rien trouvé...
Merci encore Alexandre
Alexandre
Rebonjour, J'ai cocher Microsoft DAO3.6 (en passant, il y en avait 4 autres de cocher, je les laisse cocher?)
J'ai fait compiler. Il m'a dit qu'il y avait une erreur:
Dans ce code:Erreur de compilation ; Membre de méthode ou de données introuvables (pour NoMatch)
Function GetGrpPages() 'Find the group name. GrpPages.Seek "=", Me![Pays] If Not GrpPages.NoMatch Then GetGrpPages = GrpPages![Page Number] End If End Function
Merci Alexandre
Rebonjour,
J'ai cocher Microsoft DAO3.6 (en passant, il y en avait
4 autres de cocher, je les laisse cocher?)
J'ai fait compiler.
Il m'a dit qu'il y avait une erreur:
Dans ce code:Erreur de compilation ; Membre de méthode ou
de données introuvables (pour NoMatch)
Function GetGrpPages()
'Find the group name.
GrpPages.Seek "=", Me![Pays]
If Not GrpPages.NoMatch Then
GetGrpPages = GrpPages![Page Number]
End If
End Function
Rebonjour, J'ai cocher Microsoft DAO3.6 (en passant, il y en avait 4 autres de cocher, je les laisse cocher?)
J'ai fait compiler. Il m'a dit qu'il y avait une erreur:
Dans ce code:Erreur de compilation ; Membre de méthode ou de données introuvables (pour NoMatch)
Function GetGrpPages() 'Find the group name. GrpPages.Seek "=", Me![Pays] If Not GrpPages.NoMatch Then GetGrpPages = GrpPages![Page Number] End If End Function
Merci Alexandre
Raymond [mvp]
Nomatch existait en 97, donc ? tu utilises quelle version access ? je reviens sur les références: Maintenant tu dois avoir: Visual Basic For Applications Microsoft Access nn.0 Object library ' quelle nn ? OLE Automation Microsoft DAO3.6 Object Library si tu as Microsoft Activex Data Object ...... décoche la ligne si tu as une ligne cochée marquée manquante, décoche la. recompiler toujours erreur ? si tu n'y arrives pas, passe moi ta base dans un fichier zip et tu enlèves XYZ. dans mon adresse. indique moi le nom de l'état sur le mail. -- @+ 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
"Alexandre" a écrit dans le message de news:27d8401c4644b$a498ab10$ Rebonjour, J'ai cocher Microsoft DAO3.6 (en passant, il y en avait 4 autres de cocher, je les laisse cocher?)
J'ai fait compiler. Il m'a dit qu'il y avait une erreur:
Dans ce code:Erreur de compilation ; Membre de méthode ou de données introuvables (pour NoMatch)
Function GetGrpPages() 'Find the group name. GrpPages.Seek "=", Me![Pays] If Not GrpPages.NoMatch Then GetGrpPages = GrpPages![Page Number] End If End Function
Merci Alexandre
Nomatch existait en 97, donc ?
tu utilises quelle version access ?
je reviens sur les références:
Maintenant tu dois avoir:
Visual Basic For Applications
Microsoft Access nn.0 Object library ' quelle nn ?
OLE Automation
Microsoft DAO3.6 Object Library
si tu as Microsoft Activex Data Object ...... décoche la ligne
si tu as une ligne cochée marquée manquante, décoche la.
recompiler
toujours erreur ?
si tu n'y arrives pas, passe moi ta base dans un fichier zip et tu enlèves
XYZ. dans mon adresse. indique moi le nom de l'état sur le mail.
--
@+
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
"Alexandre" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:27d8401c4644b$a498ab10$a601280a@phx.gbl...
Rebonjour,
J'ai cocher Microsoft DAO3.6 (en passant, il y en avait
4 autres de cocher, je les laisse cocher?)
J'ai fait compiler.
Il m'a dit qu'il y avait une erreur:
Dans ce code:Erreur de compilation ; Membre de méthode ou
de données introuvables (pour NoMatch)
Function GetGrpPages()
'Find the group name.
GrpPages.Seek "=", Me![Pays]
If Not GrpPages.NoMatch Then
GetGrpPages = GrpPages![Page Number]
End If
End Function
Nomatch existait en 97, donc ? tu utilises quelle version access ? je reviens sur les références: Maintenant tu dois avoir: Visual Basic For Applications Microsoft Access nn.0 Object library ' quelle nn ? OLE Automation Microsoft DAO3.6 Object Library si tu as Microsoft Activex Data Object ...... décoche la ligne si tu as une ligne cochée marquée manquante, décoche la. recompiler toujours erreur ? si tu n'y arrives pas, passe moi ta base dans un fichier zip et tu enlèves XYZ. dans mon adresse. indique moi le nom de l'état sur le mail. -- @+ 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
"Alexandre" a écrit dans le message de news:27d8401c4644b$a498ab10$ Rebonjour, J'ai cocher Microsoft DAO3.6 (en passant, il y en avait 4 autres de cocher, je les laisse cocher?)
J'ai fait compiler. Il m'a dit qu'il y avait une erreur:
Dans ce code:Erreur de compilation ; Membre de méthode ou de données introuvables (pour NoMatch)
Function GetGrpPages() 'Find the group name. GrpPages.Seek "=", Me![Pays] If Not GrpPages.NoMatch Then GetGrpPages = GrpPages![Page Number] End If End Function
Merci Alexandre
Alexandre
Rebonjour, Je crois que je n'ai pas le droit d'écrire assez de caractère dans cette boîte pour vous lister des merci. Je vais donc y aller avec un merci mille fois.
Le problème s'est résolu en décochant Microsoft Activex Data Object.
Merci encore énormément Alexandre
Rebonjour,
Je crois que je n'ai pas le droit d'écrire assez de
caractère dans cette boîte pour vous lister des merci.
Je vais donc y aller avec un merci mille fois.
Le problème s'est résolu en décochant Microsoft Activex
Data Object.
Rebonjour, Je crois que je n'ai pas le droit d'écrire assez de caractère dans cette boîte pour vous lister des merci. Je vais donc y aller avec un merci mille fois.
Le problème s'est résolu en décochant Microsoft Activex Data Object.
Merci encore énormément Alexandre
Alexandre
J'avais oublié: Je crois qu'il y avait une petite erreur sur la page http://access.vba.free.fr/pagination_groupe.htm
Le code ne marchait pas à un certain moment à cause de ceci je crois: 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
Apres Cancel As Integer, Il y a "_". En l'enlevant le code a marché.. (apres bien sur le Controle Activex à décocher)
merci encore Alexandre
J'avais oublié:
Je crois qu'il y avait une petite erreur sur la page
http://access.vba.free.fr/pagination_groupe.htm
Le code ne marchait pas à un certain moment à cause de
ceci je crois:
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
Apres Cancel As Integer, Il y a "_". En l'enlevant le code
a marché.. (apres bien sur le Controle Activex à décocher)
J'avais oublié: Je crois qu'il y avait une petite erreur sur la page http://access.vba.free.fr/pagination_groupe.htm
Le code ne marchait pas à un certain moment à cause de ceci je crois: 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
Apres Cancel As Integer, Il y a "_". En l'enlevant le code a marché.. (apres bien sur le Controle Activex à décocher)
merci encore Alexandre
Raymond [mvp]
non ce n'est pas ça, c'est le caractère de continuation à la ligne. je viens de tester, je n'ai pas l'erreur. Je vais attendre la prochaine remontée d'info. Merci.
-- @+ 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
"Alexandre" a écrit dans le message de news:27dfc01c46450$d94eadf0$ J'avais oublié: Je crois qu'il y avait une petite erreur sur la page http://access.vba.free.fr/pagination_groupe.htm
Le code ne marchait pas à un certain moment à cause de ceci je crois: 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
Apres Cancel As Integer, Il y a "_". En l'enlevant le code a marché.. (apres bien sur le Controle Activex à décocher)
merci encore Alexandre
non ce n'est pas ça, c'est le caractère de continuation à la ligne. je viens
de tester, je n'ai pas l'erreur. Je vais attendre la prochaine remontée
d'info.
Merci.
--
@+
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
"Alexandre" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:27dfc01c46450$d94eadf0$a601280a@phx.gbl...
J'avais oublié:
Je crois qu'il y avait une petite erreur sur la page
http://access.vba.free.fr/pagination_groupe.htm
Le code ne marchait pas à un certain moment à cause de
ceci je crois:
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
Apres Cancel As Integer, Il y a "_". En l'enlevant le code
a marché.. (apres bien sur le Controle Activex à décocher)
non ce n'est pas ça, c'est le caractère de continuation à la ligne. je viens de tester, je n'ai pas l'erreur. Je vais attendre la prochaine remontée d'info. Merci.
-- @+ 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
"Alexandre" a écrit dans le message de news:27dfc01c46450$d94eadf0$ J'avais oublié: Je crois qu'il y avait une petite erreur sur la page http://access.vba.free.fr/pagination_groupe.htm
Le code ne marchait pas à un certain moment à cause de ceci je crois: 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
Apres Cancel As Integer, Il y a "_". En l'enlevant le code a marché.. (apres bien sur le Controle Activex à décocher)
