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 :
- Private Sub archive()
- Dim val As VbMsgBoxResult
-
- val= MsgBox("Archiver ce client?", vbInformation + vbYesNo)
-
- If (val= vbYes) Then
-
- 'copie du client dans archive (onglet)
- me.txtnomArchive.value= me.txtnom.value
- me.txtpreArchive.value = me.txtpre.value
- 'copie du client dans archive (table-recordset)
- rs_Ar.Fields("Nom" ).Value = rsclient.Fields("Nom" ).Value
- rs_Ar.Fields("Prenom" ).Value = rsclient.Fields("Prenom" ).Value
-
- 'supprimer ce client
-
- rsclient.Delete
- rsclient.Requery
-
- Else
-
- MsgBox "annulé", vbOKOnly
-
-
- End If
-
- End Sub
|
