Discussion :

[amrod93]

Bonjour à tous,

je dispose d'une Table_temporaire qui contient 17 champs nommés: F1,F2,...,F17.
Cette table est remplie et vidée tous les jours. Je voudrais copier/coller les enregistrements de cette Table_temporaire vers la table: Table_Archive, qui possède également 17 champs mais avec des noms différents: Champ1,Champ2,...,Champ17.

Mon code ne marche pas, mais à vrai dire je ne sais pas trop comment m'y prendre pour copier/coller les enregistrements de Table_temporaire vers Table_Archive, en conservant les précédents enregistrements de Table_Archive, je suis débutant en VBA Access.



Merci d'avance pour votre aide.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Private Sub Commande1_Click()
   Dim db As DAO.Database
   Dim rs1 As DAO.Recordset
   Dim rs2 As DAO.Recordset
 
   Set db = Application.CurrentDb
   Set rs1 = db.OpenRecordset("Table_temporaire")
   Set rs2 = db.OpenRecordset("Table_Archive")
 
      rs1.MoveFirst
      rs2.MoveFirst
 
      Do
           rs2.AddNew          
           rs2("Champ1") = rs1("F1")
           rs2("Champ2") = rs1("F2")
           rs2("Champ3") = rs1("F3")
           rs2("Champ4") = rs1("F4")
           ...
           rs2("Champ17") = rs1("F17")
 
           rs2.Update
           rs2.AddNew
 
           rs1.MoveNext
           rs2.MoveNext
 
      Loop Until rs1.EOF = True    'parcours de toute la Table_temporaire
 
End Sub

[JDev_]

Bonjour,

En espérant que cela puisse t'aider.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Dim cSQL as String
 
 cSQL = "SELECT * INTO [Table copiée]"
       cSQL = cSQL + " FROM [Table à copier]"
       cSQL = cSQL + " WHERE 1=1"

[amrod93]

Salut,

Merci tout d'abord pour ta réponse.

Ton code me fait bien un copier coller de la Table_temporaire vers la Table_archive. Le problème c'est que ça modifie le nom des champs de ma Table_archive et ça ne me gardera pas les anciens copier/coller de la Table_temporaire.

Je souhaiterais faire un copier/coller juste des enregistrements de la Table_temporaire vers la Table_archive, ensuite la Table_temporaire est vidée puis remplie et les nouveaux enregistrements de la Table_temporaire s'ajouteront aux anciens dans la Table_archive.

Merci d'avance pour votre aide.

[JDev_]

Je pense qu'il faut joindre chaque colonne de Table Archive à la Table Temporaire. (C'est que je fais en général et cela fonctionne)

Je n'ai mis que les 2 premières correspondances même si la méthode est redondante. La solution n'est pas top vue que tu as 17 champs...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
mySQL = "INSERT INTO Table_Archive ( champs1, champs2)"
mySQL = mySQL + " SELECT Table_T.emporaire[F1], Table_Temporaire.[F2]"
 
'Inclus tous les enregistrements de Tale_Temporaire à Table_Archive en fonction du référant champs1
mySQL = mySQL + " FROM Table_Archive  RIGHT JOIN Table_Temporaire ON Table_Archive.[champs1] = Table_Temporaire.[F1]"
 
'Masquage des avertissements et création de la table
      DoCmd.SetWarnings False
      DoCmd.RunSQL mySQL
      DoCmd.SetWarnings True

[amrod93]

c'est parfait!

Merci beaucoup pour ton aide