Il n'y a pas si longtemps, je demandais comment faire une=20
pagination par groupe dans un =E9tat. Raymond m'a beaucoup=20
aid=E9 et m'a donn=E9 ce lien:=20
http://access.vba.free.fr/pagination_groupe.htm
Tout marche =E0 merveille sauf une petite chose.
Dans le code, il y a :=20
----------------------------------------------
Private Sub Report_Open(Cancel As Integer)
Set DB =3D CurrentDb
DoCmd.SetWarnings False
DoCmd.RunSQL "Delete * From [Category Group Pages];"
DoCmd.SetWarnings True
Set GrpPages =3D DB.OpenRecordset("Category Group=20
Pages", _
DB_OPEN_TABLE)
GrpPages.Index =3D "PrimaryKey"
End Sub
----------------------------------------------
Le probl=E8me est qu'en =E9tant en lecture seule,=20
l'utilisateur ne peut pas supprimer. Donc il apparait une=20
erreur puisqu'=E0 l'ouverture on demande "delete". L'=E9tat ne=20
s'ouvre donc pas.
Or ma base de donn=E9e peut =EAtre en lecture seule pour=20
diverses raisons et je me demandais si ce delete =E9tait=20
vraiment n=E9cessaire. J'ai peur que si j'ajoute des pages,=20
elles ne soient pas pagin=E9es parce que les anciennes=20
valeurs ne seraient pas effac=E9es.
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.
Tu as tout à fait raison, le delete est indispensable (sauf si c'est toujours le même état, chose rare quand même) sinon tout est faux. Si tu ne peux ni modifier ni créer, ça ne peux pas marcher à moins de refaire tout le code et le faire en mémoire dans un tableau.
-- @+ 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:2a5b001c465af$f6891e40$ Bonjour,
Il n'y a pas si longtemps, je demandais comment faire une pagination par groupe dans un état. Raymond m'a beaucoup aidé et m'a donné ce lien: http://access.vba.free.fr/pagination_groupe.htm
Tout marche à merveille sauf une petite chose. Dans le code, il y a : ---------------------------------------------- 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 ---------------------------------------------- Le problème est qu'en étant en lecture seule, l'utilisateur ne peut pas supprimer. Donc il apparait une erreur puisqu'à l'ouverture on demande "delete". L'état ne s'ouvre donc pas. Or ma base de donnée peut être en lecture seule pour diverses raisons et je me demandais si ce delete était vraiment nécessaire. J'ai peur que si j'ajoute des pages, elles ne soient pas paginées parce que les anciennes valeurs ne seraient pas effacées.
Merci beaucoup, Antoine
Bonjour.
Tu as tout à fait raison, le delete est indispensable (sauf si c'est
toujours le même état, chose rare quand même) sinon tout est faux. Si tu ne
peux ni modifier ni créer, ça ne peux pas marcher à moins de refaire tout le
code et le faire en mémoire dans un tableau.
--
@+
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:2a5b001c465af$f6891e40$a301280a@phx.gbl...
Bonjour,
Il n'y a pas si longtemps, je demandais comment faire une
pagination par groupe dans un état. Raymond m'a beaucoup
aidé et m'a donné ce lien:
http://access.vba.free.fr/pagination_groupe.htm
Tout marche à merveille sauf une petite chose.
Dans le code, il y a :
----------------------------------------------
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
----------------------------------------------
Le problème est qu'en étant en lecture seule,
l'utilisateur ne peut pas supprimer. Donc il apparait une
erreur puisqu'à l'ouverture on demande "delete". L'état ne
s'ouvre donc pas.
Or ma base de donnée peut être en lecture seule pour
diverses raisons et je me demandais si ce delete était
vraiment nécessaire. J'ai peur que si j'ajoute des pages,
elles ne soient pas paginées parce que les anciennes
valeurs ne seraient pas effacées.
Tu as tout à fait raison, le delete est indispensable (sauf si c'est toujours le même état, chose rare quand même) sinon tout est faux. Si tu ne peux ni modifier ni créer, ça ne peux pas marcher à moins de refaire tout le code et le faire en mémoire dans un tableau.
-- @+ 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:2a5b001c465af$f6891e40$ Bonjour,
Il n'y a pas si longtemps, je demandais comment faire une pagination par groupe dans un état. Raymond m'a beaucoup aidé et m'a donné ce lien: http://access.vba.free.fr/pagination_groupe.htm
Tout marche à merveille sauf une petite chose. Dans le code, il y a : ---------------------------------------------- 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 ---------------------------------------------- Le problème est qu'en étant en lecture seule, l'utilisateur ne peut pas supprimer. Donc il apparait une erreur puisqu'à l'ouverture on demande "delete". L'état ne s'ouvre donc pas. Or ma base de donnée peut être en lecture seule pour diverses raisons et je me demandais si ce delete était vraiment nécessaire. J'ai peur que si j'ajoute des pages, elles ne soient pas paginées parce que les anciennes valeurs ne seraient pas effacées.
