Houlàlà, si tu crois qu'c'est aussi simple !
 
Voilà un exemple tiré de l'AIDE EN LIGNE !
 
Dim dbsNorthwind As Database
 Dim rstEmployees As Recordset
 Dim strOldFirst As String
 Dim strOldLast As String
 Dim strMessage As String
 
 Set dbsNorthwind = OpenDatabase("Comptoir.mdb" )
 Set rstEmployees = _
 	dbsNorthwind.OpenRecordset("Employés" )
 
 With rstEmployees
 	.Edit
 	' Stocke les données initiales.
 	strOldFirst = !Prénom
 	strOldLast = !Nom
 	' Modifie les données dans le tampon d'édition.
 
!Prénom = "Linda"
 	!Nom = "Kobara"
 
 	' Affiche le contenu d'un tampon et obtient une  
 	' entrée utilisateur.
 	strMessage = "Edition en cours :" & vbCr & _
   "    Données initiales = " & strOldFirst & " " & _
   strOldLast & vbCr & "    Données en tampon = " & _
   !Prénom & " " & !Nom & vbCr & vbCr & _
   "Utiliser la méthode Update pour remplacer les données initiales " & _
   "par les données en tampon dans l'objet Recordset ?"
 
If MsgBox(strMessage, vbYesNo) = vbYes Then
   .Update
 	Else
   .CancelUpdate
 	End If
 
 	' Affiche les données résultantes.
 	MsgBox "Données du jeu d'enregistrements = " & _
   !Prénom & " " & _
   !Nom
 
 	' Restaure les données initiales après cette  
 	' démonstration.
 	If Not (strOldFirst = !Prénom And _
   	strOldLast = !Nom) Then
   .Edit
   !Prénom = strOldFirst
 
!Nom = strOldLast
   .Update
 	End If
 
 	.Close
 End With
 
 dbsNorthwind.Close
 
End Sub
 
Copyright (c) 1996 Microsoft Corporation 
 
 ---------------
			
Laissez l'Etat dans les toilettes où vous l'avez trouvé.