A voir également:
- Boucle for en access pour concatener tables
- Concatener deux cellules excel - Guide
- Downloader for pc - Télécharger - Téléchargement & Transfert
- Tables des matières word - Guide
- Concaténer pdf - Guide
2 réponses
blux
Messages postés
26416
Date d'inscription
dimanche 26 août 2001
Statut
Modérateur
Dernière intervention
31 octobre 2024
3 308
17 août 2010 à 20:46
17 août 2010 à 20:46
Salut,
si c'est à faire une seule fois, fais-le à la main.
Sinon, prends du VBA, parcours les objets, prends les tables qui t'intéressent et fais une insertion via recordset.
si c'est à faire une seule fois, fais-le à la main.
Sinon, prends du VBA, parcours les objets, prends les tables qui t'intéressent et fais une insertion via recordset.
ouvre vba, créer un module
public sub concatene()
for i = 1 to 10
strSQL = "SELECT * FROM " & i & ";"
' (ou "SELECT * FROM '" & i & "';")
Set res = CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot)
While Not res.EOF
strSQL = "INSERT INTO Table1 VALUES " & res & ";"
#
je ne pense pas que ça va marcher, si ça ne marche pas:
strSQL = "INSERT INTO Table1 (Champs1, Champs2,... ) & _
VALUES (" & res.Fields("ChampsA") & ", " & res.Fields("ChampsB") & ... & ";"
Champs1, Champs2... les noms des champs dans table1 et champsA, champsB le nom des champs correspondants dans tes tables 1,2,...,10 (il faut que ça soit le même dans toute).
PS: si c'est des string n'oublie pas les '
... (" & res.("Nom") & ",... => ('" & res.("Nom") & "', ...
#
CurrentDb.Execute strSQL
res.MoveNext
Wend
next i
end sub
public sub concatene()
for i = 1 to 10
strSQL = "SELECT * FROM " & i & ";"
' (ou "SELECT * FROM '" & i & "';")
Set res = CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot)
While Not res.EOF
strSQL = "INSERT INTO Table1 VALUES " & res & ";"
#
je ne pense pas que ça va marcher, si ça ne marche pas:
strSQL = "INSERT INTO Table1 (Champs1, Champs2,... ) & _
VALUES (" & res.Fields("ChampsA") & ", " & res.Fields("ChampsB") & ... & ";"
Champs1, Champs2... les noms des champs dans table1 et champsA, champsB le nom des champs correspondants dans tes tables 1,2,...,10 (il faut que ça soit le même dans toute).
PS: si c'est des string n'oublie pas les '
... (" & res.("Nom") & ",... => ('" & res.("Nom") & "', ...
#
CurrentDb.Execute strSQL
res.MoveNext
Wend
next i
end sub