Mise à jour d'un enregistrement dans une table à partir d'un formulaire

Dim mabase As Database

Dim marecsource As Recordset

Dim marecdest As Recordset

Set mabase = CurrentDb

'Recherche de l'enregistrement à copier

Set marecsource = mabase.OpenRecordset("SELECT * FROM NomTable WHERE (((1erNomChampDeCritère)='" & "NomRecherché" & "') AND((2èmeNomChampDeCritère)='" & "Nom2Recherché" & "'))", dbOpenSnapshot)

'Recherche de l'enregistrement à mettre à jour

Set marecdest = mabase.OpenRecordset("SELECT * FROM NomTable WHERE (((1erNomChampDeCritère)='" & "NomRecherché" & "') AND((2èmeNomChampDeCritère)='" & "Nom2Recherché" & "'))", dbOpenDynaset)

marecdest.Edit 'Met à jour la table

'Mise à jour des champs de la table

For i = 1 To dernierChampAMAJ

marecdest(i) = marecsource(i)

Next i

Set mabase = Nothing

Set marecsource = Nothing

Set marecdest = Nothing