Enlever et stocker dans une table d'archives

[icare_1er]

Salut,

Je souhaiterai purger une table principale (pour ca je peux faire un formulaire avec une plage de dates à choisir).

Je voudrai non seulement éliminer des enregistrements d'une table, mais encore les stocker à la suite d'une autre table d'archive (histoire de ne pas alourdir le projet au bout de quelques mois d'utilisations), comment fait-on pour transferer des enregistrements d'une table vers l'autre ??

[Thierry_PALLIER]

Bonjour , perso je fais cela avec une requete ajout puis une requête suppression .Dans mon cas ces req sont actionnés à la fermeture d'un form

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Private Sub Form_Close()
 
    Dim rst As DAO.Recordset
 
    Dim rst2 As DAO.QueryDef
    Dim rst3 As DAO.QueryDef
 
    Set rst = CurrentDb.OpenRecordset("archives_simple")
    ' ajoute l'enregistrement de "résa simple" dans "archives_simple"
    rst.AddNew
    rst![n°] = Me![n°]
    rst![code client] = Me![code client]
    rst![date] = Me![date]
    rst![départ] = Me![départ]
    rst![retour] = Me![retour]
    rst![coef] = Me![coef]
    rst![modif] = Me![modif]
 
   rst.Update
    rst.Close
    Set rst = Nothing
    'commande la requete ajout("req_archives_détail")
    'qui ajoute de "détail résa" vers "archives_détail"
    Set rst2 = CurrentDb.QueryDefs("req_archives_détail")
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "req_archives_détail"
 
    rst2.Close
    Set rst2 = Nothing
    'commande la requete suppression("req_supp_résa_simple")
    'qui supprime la réservation en cours de "résa simple" et "détail résa"
    Set rst3 = CurrentDb.QueryDefs("req_supp_résa_simple")
    DoCmd.OpenQuery "req_supp_résa_simple"
    DoCmd.SetWarnings True
    rst3.Close
    Set rst3 = Nothing
    DoCmd.Close acForm, "Appel Facture"
 
 
End Sub

A+

[Philippe JOCHMANS]

Bonjour

As-tu fait des recherches sur le forum avec le nom "Archivages" ou "Archives"
A mon avis non, car tu aurais trouvé tout ce qu'il faut.

Starec

[Dryss51]

Bonjour,

Bah moi j ai essayé de faire des recherches "archive" et "archivages" mais je n'ai pas trouvé. Pourrais tu m'aiguiller starec?

Merci

[dr_feelgood]

la discussion a été lancée ces derniers jours, le topic est ici

[Jeannot45]

Hello le Forum,

Pourquoi ne pas enchainer deux requetes par une petite macro rattachée à un bouton ?

Une requete Ajout parametrée pour récupérer les données à archiver
Une requete Suppression pour supprimer les données archivées

Jeannot