Vba , copie de recordset?
joana
-
joana -
joana -
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
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
A voir également:
- Vba , copie de recordset?
- Copie caché - Guide
- Copie disque dur - Guide
- Copie d'écran ipad - Guide
- Super copie - Télécharger - Gestion de fichiers
- Copie écran samsung - Guide
2 réponses
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:
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
