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
   
        MsgBox "Seul les renseignements sur le client seront sauvés!", vbInformation + vbOKOnly

     '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 "Archivage annulé", vbOKOnly
       
   
    End If
       
End Sub

sdalut,

tu dois avoir 2 RS ouverts en simultané pour écrire dans le "archivage" (nouvel enregistrement) à partir du premier avant de le supprimer
++

---

Prenez un instant pour répondre à ce sondage svp

Bonjour,

Pourquoi mettre les données dans un autre onglet ? Est-ce nécessaire ?

Il serait possible de se passer de cet onglet en écrivant les données directement dans une table archive.
...
 'copie du client dans la table Archive

Dim rst as DAO.recordset
set rst=currentDB.OpenRecordset("MaTableArchive")

rst.addnew
rst!Nomduchamp1=me.txtnom.value
rst!NomDuChamp2=me.txtpre.value
rst!DateArchive=Now()
rst.Update
rst.close

      
   ' supprimer ce client par la méthode DoMenuItem (sélection de l'enregistrement
   '  courant puis suppression)
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

       
'RS_client.Delete
        'RS_client.Requery
   
    Else
   
        MsgBox "Archivage annulé", vbOKOnly
       
   
    End If

pour répondre, oui la copie doit se faire dans l'onglet et la table "archive".
voilà ce que j'ai fait.

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.     rs_Ar.addnew
    
17.     rs_Ar.Fields("Nom" ).Value = rsclient.Fields("Nom" ).Value
18.     rs_Ar.Fields("Prenom" ).Value = rsclient.Fields("Prenom" ).Value
19.    
    
20.      
21.      'supprimer ce client
22.  
23.         rsclient.Delete
24.         rsclient.Requery
25.  
26.     Else
27.  
28.         MsgBox "annulé", vbOKOnly
29.      
30.  
31.     End If
32.      
33. End Sub