Discussion :

[Phridges]

Bonjour,

J'ai le problème suivant sous acess 2000:

Dans un formulaire lié à une table je reccupère un enregistrement, et je veux à partir de cet enregistrement en inséré un nouveau, tout en modifiant événtuellement certaines zones :

Par défaut à la création du formulaire le code vba associé au bouton de validation est le suivant :

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Avec ce code je ne fais que modifier l'enregistrement courant.

J'ai donc essayer de mettre le code suivant :

Private Sub Form_Open(Cancel As Integer)
DoCmd.GoToRecord , , acNewRec
End Sub

Mais là je crée bien un nouvel enregistrement, mais les zones de saisie sont remises à vide.

En regardant dans l'aide d'access j'ai remarqué que le DoMenuItem était obsolète pour cet version, j'ai donc étudié la méthode : RunCommand

en parcourant la liste des constantes (non documentées) j'en ai remarqué deux :

acCmdDeleteRecord et acCmdSaveRecord, mais encore une fois, je ne trouve pas de constante me permettant de faire une insertion d'un nouvel enregistrement. Existe-t-il une constante le permettant et qui m'aurait échappée ? ou bien quelqu'un connaît-il une manière de procéder ?

Merci d'avance.

[Tofalu]

Il faut duppliquer cet enregistrement. Il y a un exemple de code sources dans les pages sources

http://access.developpez.com/sources

[Phridges]

En fait j'ai vu un exemple pour dupliquer des enregistrements. Mais cela utilise DAO. J'avoue ne pas très bien connaître, et je ne vois pas comment dupliquer mon enregistrement, car au niveau du formulaire, je ne gère rien. Dois en fait ne pas lier le formulaire, à la table et créer moi même le lien entre les zones de saisie et un recordset, ou bien puis-je faire un duplica facilement ?

Voici le code vba associé à mon formulaire :

Private Sub SauvEnreg_Click()
On Error GoTo Err_SauvEnreg_Click


DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_SauvEnreg_Click:
Exit Sub

Err_SauvEnreg_Click:
MsgBox err.Description
Resume Exit_SauvEnreg_Click

End Sub

[Daniela]

SImplement tu cree le bouton dupliquer. je pense que pour un enregistement ça va marcher.

[Phridges]

Ce n'est pas moi qui fait le design des formulaire, je ne connaissais pas le bouton dupliquer. Hé merci car cela solutionne mon problème.