[VBA]PBL de màj d'une table via un formulaire

Bonjour à tous,

J'ai encore un petit pbl que je n'arrive pas a résoudre.
Dans mes formulaires je mets toujours un bouton "modifier". Je fais une
recherche sur la note de frais par ex. j'ajoute une donnée et je clique sur
le bouton modifier. Il prend bien la donnée ajoutée mais il va écraser le 1er
enregistrement, donc il y a un problème mais je ne trouve pas quoi.
voici mon code :

Private Sub Bmodifier_Click()
Set Mbase = CurrentDb
Set record = Mbase.OpenRecordset("T_note_frais", dbOpenTable)

record.Edit
'Me!Num_idi = record![Num_id]
'record![Num_personne] = Me!Num_personnei
'record![Mois] = Me!Moisi
'record![Annee] = Me!Anneei
record![Numero] = Me!Numeroi
record![Description] = Me!Descriptioni
record![Montant] = Me!Montanti
record![Numero1] = Me!Numero1i
record![Description1] = Me!Description1i
record![Montant1] = Me!Montant1i
record![Numero2] = Me!Numero2i
record![Description2] = Me!Description2i
record![Montant2] = Me!Montant2i
record![Numero3] = Me!Numero3i
record![Description3] = Me!Description3i
record![Montant3] = Me!Montant3i
record![Numero4] = Me!Numero4i
record![Description4] = Me!Description4i
record![Montant4] = Me!Montant4i
record![Numero5] = Me!Numero5i
record![Description5] = Me!Description5i
record![Montant5] = Me!Montant5i
record![Numero6] = Me!Numero6i
record![Description6] = Me!Description6i
record![Montant6] = Me!Montant6i
record.Update
MsgBox "Modification enregistrée !"
End Sub
J'ai essayé de supprimer quelques contrôles du code, que l'on ne doit jamais
modifier, comme le num_id, le num_personne, le mois et l'année.
Mais j'ai toujours le même problème

Quelqu'un pourrait-il m'aider svp ?
Merci pour toute l''aide que vous m''apporterais
Nadine