A voir également:
- Boucle for en access pour concatener tables
- Concaténer pdf - Guide
- Concatener deux cellules excel - Guide
- Tables des matieres - Guide
- Dans la table des matières de ce document, le chapitre 6 et ses 2 sections n'apparaissent pas. trouvez l'erreur dans la structure du document et corrigez-la. mettez à jour la table des matières. quel est le mot formé par les lettres en majuscules de la table des matières après sa mise à jour ? - Forum Word
- Inverse de concatener ✓ - Forum Excel
2 réponses
blux
Messages postés
25998
Date d'inscription
dimanche 26 août 2001
Statut
Modérateur
Dernière intervention
23 avril 2024
3 289
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
