Discussion :

[Jeanpierre71]

Bonjour à tous,

J'ai une table A (opérationnelle) avec une structure d'enregistrements (type de champs) X. J'ai une table B (Archivage) avec une structure d'enregistrements Y identique à la table A. Quelle est la maniere la plus rationnelle et pratique de copier un enregistrement de A vers B sans faire "fumer" VBA Merci d'avance pour vos réponses

[Invité]

Bonjour.

Code :

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

1
2
Sql="Insert into [Archive] ( [Champ1],[Champ2]) select [Champ1],[Champ2] from [Opérationnel] Where [A Archivé]=  True"
Currentdb.execute Sql

[Jeanpierre71]

Merci pour le renseignement, mais dans ce cas-là il faut nommer tous les champs ? Il y en a pas mal dans mon cas. Je pensais surtout utiliser les structures recordset pour copier un enregistrement d’une table dans l’autre. D'autre par ou est la réference au N° d'enregistrement concerné par le transfert de table ?
N'étant pas un specialiste de SQL je ne comprend pas trop la fin de ta ligne SQL

Code :

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

Where [A Archivé]=  True"

[nico84]

Bonjour,

Voici un exemple pour copier en lisant la liste des champs dans access :

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
Dim rss As DAO.Recordset, rsd As DAO.Recordset
Dim tbd As DAO.TableDef, fld As DAO.Field
 
For Each tbd In CurrentDb.TableDefs 'la description des tables est lue dans access
  If tbd.Name = "B" Then
    Set rss = CurrentDb.OpenRecordset( "SELECT * FROM A WHERE ... ") 'champ(s) à copier
    While Not rss.EOF
       rsd.AddNew
       For Each fld In tbd.Fields
         rsd.Fields(fld.Name) = rss.Fields(fld.Name)
       Next
       rsd.Update
       rss.MoveNext
    Wend
  End If
Next
Set rss = Nothing: Set rsd = Nothing
Set tbd = Nothing: Set fld = Nothing

[Invité]

Bonsoir ,

Code :

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

1
2
Sql="Insert into [Archive]  select * from [Opérationnel] Where [A Archivé]=  True"
Currentdb.execute Sql

[Jeanpierre71]

Bonjour,

Merci à tous pour vos precieux renseignements