Vba , copie de recordset?

Bonjour,

Je voudrais savoir comment faire pour copier les donnés d'un recordset (client) attaché à une table vers un autre recordset (archive)?

En fait j'ai un onglet client et dés qu'on clik sur un bouton "archive", les données de ce client doivent être copier vers l'autre onglet "archive" puis supprimé ce client...
(vba access)

merci

voilà ce que j'ai fait:

Private Sub archive()

Dim val As VbMsgBoxResult
                   
        val= MsgBox("Etes-vous sûr d'archiver ce client?", vbInformation + vbYesNo)
   
    If (val= vbYes) Then
  

     'copie du client

me.txtnom.value = me.txtnomArchive.value
me.txtpre.value = me.txtpreArchive.value

      
    ' supprimer ce client
  
        'RS_client.Delete
        'RS_client.Requery
   
    Else
   
        MsgBox "annulé", vbOKOnly
       
   
    End If
       
End Sub

petite modif:

   1. Private Sub archive()
   2.
   3. Dim val As VbMsgBoxResult
   4.                  
   5.         val= MsgBox("Archiver ce client?", vbInformation + vbYesNo)
   6.  
   7.     If (val= vbYes) Then
   8.  
   9.
  10.      'copie du client dans archive (onglet)
  11.
  12.     me.txtnomArchive.value= me.txtnom.value
  13.     me.txtpreArchive.value = me.txtpre.value
  14.
  15.      'copie du client dans archive (table-recordset)
  16.
  17.     rs_Ar.Fields("Nom" ).Value = rsclient.Fields("Nom" ).Value
  18.     rs_Ar.Fields("Prenom" ).Value = rsclient.Fields("Prenom" ).Value
  19.      
  20.      'supprimer ce client
  21.  
  22.         rsclient.Delete
  23.         rsclient.Requery
  24.  
  25.     Else
  26.  
  27.         MsgBox "annulé", vbOKOnly
  28.      
  29.  
  30.     End If
  31.      
  32. End Sub