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é.