OVH Cloud OVH Cloud

erreur d'affichage apres coller par ajout

2 réponses
Avatar
Françoise Labis
Bonjour,

access 2003, winXP
J'ai un formulaire (Devis) avec une 40 taines de contrôles basé sur une
table, avec sous-formulaire
J'y ai ajouté un bouton: Dupliquer (avec l'assitant).

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append

J'ai actuellement 4 devis (soit 4 enregistrements) et je veux dupliquer le
2e (sans les données du sous formulaire).
Quand j'exécute la procédure, un nouvel enregistrement se crée et je me
retrouve bien sur celui-ci (5). Mais les données affichées sont identiques à
celles du 1er enregistrement au lieu de celles du 2e. Par-contre si je me
deplace entre les enregistrements et je reviens sur le dernier, c'est bien
les données du 2e enregistrement qui s'affichent.

La commande Actualiser ne met pas à jour l'affichage.
Si j'exécute manuellement la duplication par le menu Edition.
(Sélectionner/copier/coller par ajout), j'ai la meme erreur.
Je n'ai pas cette erreur sur d'autres formulaires.

Déjà vu ça?

merci pour toute idée

françoise

2 réponses

Avatar
Raymond [mvp]
Bonjour.

avant de faire tes 3 docmd, fais un Me.Refresh suivi de doevents
Me.Refresh
doevents
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append
tu peux remplacer ces 3 dernières lignes par:

DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.RunCommand acCmdPasteAppend
qui sont moins obsolètes.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Françoise Labis" a écrit dans le message de
news:
Bonjour,

access 2003, winXP
J'ai un formulaire (Devis) avec une 40 taines de contrôles basé sur une
table, avec sous-formulaire
J'y ai ajouté un bouton: Dupliquer (avec l'assitant).

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append

J'ai actuellement 4 devis (soit 4 enregistrements) et je veux dupliquer le
2e (sans les données du sous formulaire).
Quand j'exécute la procédure, un nouvel enregistrement se crée et je me
retrouve bien sur celui-ci (5). Mais les données affichées sont identiques
à celles du 1er enregistrement au lieu de celles du 2e. Par-contre si je
me deplace entre les enregistrements et je reviens sur le dernier, c'est
bien les données du 2e enregistrement qui s'affichent.

La commande Actualiser ne met pas à jour l'affichage.
Si j'exécute manuellement la duplication par le menu Edition.
(Sélectionner/copier/coller par ajout), j'ai la meme erreur.
Je n'ai pas cette erreur sur d'autres formulaires.

Déjà vu ça?

merci pour toute idée

françoise



Avatar
Françoise Labis
Une fois de plus merci pour ton aide.

J'ai toujours la même erreur, mais avec
DoCmd.GoToRecord , , acLast
à la fin, ca marche.

"Raymond [mvp]" a écrit dans le message de
news:
Bonjour.

avant de faire tes 3 docmd, fais un Me.Refresh suivi de doevents
Me.Refresh
doevents
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append
tu peux remplacer ces 3 dernières lignes par:

DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.RunCommand acCmdPasteAppend
qui sont moins obsolètes.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Françoise Labis" a écrit dans le message de
news:
Bonjour,

access 2003, winXP
J'ai un formulaire (Devis) avec une 40 taines de contrôles basé sur une
table, avec sous-formulaire
J'y ai ajouté un bouton: Dupliquer (avec l'assitant).

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append

J'ai actuellement 4 devis (soit 4 enregistrements) et je veux dupliquer
le 2e (sans les données du sous formulaire).
Quand j'exécute la procédure, un nouvel enregistrement se crée et je me
retrouve bien sur celui-ci (5). Mais les données affichées sont
identiques à celles du 1er enregistrement au lieu de celles du 2e.
Par-contre si je me deplace entre les enregistrements et je reviens sur
le dernier, c'est bien les données du 2e enregistrement qui s'affichent.

La commande Actualiser ne met pas à jour l'affichage.
Si j'exécute manuellement la duplication par le menu Edition.
(Sélectionner/copier/coller par ajout), j'ai la meme erreur.
Je n'ai pas cette erreur sur d'autres formulaires.

Déjà vu ça?

merci pour toute idée

françoise