Sauvegarder plusieurs enregistrements
Lolo
-
OlivrT Messages postés 323 Date d'inscription Statut Membre Dernière intervention -
OlivrT Messages postés 323 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai une base de donnée sous Access 2000 et je cherche, à partir d'un formulaire, à sauvegarder plusieurs enregistrements pour un même identifiant
Exemple:
Dans le formulaire "Note", j'ai remplit automatiquement le champs "identifiant_etudiant" qui prend la valeur du formulaire précédent.
J'aimerais qu'en cliquant sur un bouton "suivant", cela m'enregistre les champs du formulaire (identifiant, matiere, note, appreciation), et que cela me propose un nouvel enregistrement, avec le même "identifiant_etudiant".
Car dans ma base de données, si je remplis une seconde fois, cela m'écrase la première donnée
(La table note possède comme clé primaire "identifiant_etudiant" et "matiere")
Merci d'avance pour votre aide.
Cordialement,
J'ai une base de donnée sous Access 2000 et je cherche, à partir d'un formulaire, à sauvegarder plusieurs enregistrements pour un même identifiant
Exemple:
Dans le formulaire "Note", j'ai remplit automatiquement le champs "identifiant_etudiant" qui prend la valeur du formulaire précédent.
J'aimerais qu'en cliquant sur un bouton "suivant", cela m'enregistre les champs du formulaire (identifiant, matiere, note, appreciation), et que cela me propose un nouvel enregistrement, avec le même "identifiant_etudiant".
Car dans ma base de données, si je remplis une seconde fois, cela m'écrase la première donnée
(La table note possède comme clé primaire "identifiant_etudiant" et "matiere")
Merci d'avance pour votre aide.
Cordialement,
1 réponse
-
Bonjour,
ajoutez un bouton à votre formulaire et dans l'évènement On_Click,
je ne connais pas le nom de vos contrôles, donc j'appellerai txt_IDEtudiantActuel le nom de la zone où se trouve l'identifiant de l'étudiant.
Ajoutez ceci :
Private Sub btnNewNote_Click() On Error GoTo Err_btnNewNote Dim IDEtudiantActuel as Long 'Récupérer l'identifant actuel IDEtudiantActuel = Me.txt_IDIdentifiantEtudiant 'Ajout d'un nouveau record DoCmd.GoToRecord , , acNewRec 'Alimenter la zone avec l'identifiant "Précédent" Me.txt_IDIdentifiantEtudiant = IDEtudiantActuel Exit_btnNewNote: Exit Sub Err_btnNewNote: MsgBox Err.Description Err.Clear Resume Exit_btnNewNote End Sub
