copie de recordset? vba access

copie de recordset? vba access - VB/VBA/VBS - Programmation

Marsh Posté le 11-05-2008 à 23:10:01    

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...
la copie doit se faire dans l'onglet et dans la table archive également...
 
(vba access)
 
merci
 
voilà ce que j'ai fait:
 

Code :
  1. Private Sub archive()
  3. Dim val As VbMsgBoxResult
  4.                  
  5.         val= MsgBox("Archiver ce client?", vbInformation + vbYesNo)
  6.  
  7.     If (val= vbYes) Then
  8.  
  10.      'copie du client dans archive (onglet)
  12.     me.txtnomArchive.value= me.txtnom.value
  13.     me.txtpreArchive.value = me.txtpre.value
  15.      'copie du client dans archive (table-recordset)
  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

Reply

Marsh Posté le 11-05-2008 à 23:10:01   

Reply

Marsh Posté le 19-05-2008 à 23:49:34    

Tu n'expliques pas comment sont ouverts, créés tes recordsets.
Avec juste les infos que tu donnes, ça ne peut pas marcher.
 
Pour mettre à jour un recordset il faut utiliser les méthodes .AddNew ou .Edit (dans ce cas il faut être positionné sur un enregistrement précis).
 
 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed