Discussion :

[shakapouet]

Bonjour,

J'ai un petit problème, je fait une requête INSERT INTO en VBA et comme elle est très longue, je suis obligé de passer à la ligne. Quel est l'opérande pour concaténer les deux lignes ?

Code :

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

1
2
cSQL5 = "INSERT INTO " & acTable2 & " ( [azerty],[azerty],[azerty],[azerty],[azerty],[azerty],[azerty],[azerty],[azerty],[Annee],[Semaine],[azerty],[azerty],[azerty],[azerty],[azerty],[azerty],[azerty]) VALUES (" & Chr(34) & varB & Chr(34) & ", " & Chr(34) & varC & Chr(34) & ", " & Chr(34) & varD & Chr(34) & ", " & Chr(34) & varE & Chr(34) & ", " & Chr(34) & varF & Chr(34) & ", " & Chr(34) & varG & Chr(34) & ", " & Chr(34) & varH & Chr(34) & "," & Chr(34) & varI & Chr(34) & "," & Chr(34) & varJ & Chr(34) & "," & Chr(34) & i & Chr(34) & ", " & Chr(34) & k & Chr(34) & ", " & Chr(34) & Range("Feuil2!A" & j).Value & Chr(34) & ", " & Chr(34) & codex & Chr(34) & ", " & Chr(34) & varK & Chr(34) & ", " & Chr(34) & varL & Chr(34) & ", " & Chr(34) & varM & Chr(34) & " &_"
                            , " & Chr(34) & varN & Chr(34) & ", " & Chr(34) & varO & Chr(34) & ");"

[Beub']

Bonjour shakapouet,

Directiooooon...
la FAQ !
http://access.developpez.com/faq/?pa...og#RetourLigne

En bref, sur ta fin de ligne, plutôt que d'écrire

Code :

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

 " & _ "

tu dois écrire

Code :

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

1
2
 "chaine 1 " & _ 
"chaine 2"

Le "_" doit être hors des guillemets.

Cordialement,
Beub'.

[shakapouet]

Oui j'avait déjà regardé mais pas réussi à l'utiliser j'ai toujours une erreur sur ma deuxième ligne ( attendu fin d'instruction )

Code :

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

1
2
cSQL5 = "INSERT INTO " & acTable2 & " ( [azerty],[azerty],[azerty],[azerty],[Volume_trace],[azerty],[azerty],[azerty],[azerty],[Annee],[Semaine],[Filiere],[azerty],[azerty],[azerty],[azerty],[azerty],[azerty]) VALUES (" & Chr(34) & varB & Chr(34) & ", " & Chr(34) & varC & Chr(34) & ", " & Chr(34) & varD & Chr(34) & ", " & Chr(34) & varE & Chr(34) & ", " & Chr(34) & varF & Chr(34) & ", " & Chr(34) & varG & Chr(34) & ", " & Chr(34) & varH & Chr(34) & "," & Chr(34) & varI & Chr(34) & "," & Chr(34) & varJ & Chr(34) & "," & Chr(34) & i & Chr(34) & ", " & Chr(34) & k & Chr(34) & ", " & Chr(34) & Range("Feuil2!A" & j).Value & Chr(34) & ", " & Chr(34) & codex & Chr(34) & ", " & Chr(34) & varK & Chr(34) & ", " & Chr(34) & varL & Chr(34) & ", " & Chr(34) & varM & Chr(34) & ", _
 " & Chr(34) & varN & Chr(34) & ", " & Chr(34) & varO & Chr(34) & ");"

[shakapouet]

Autant pour moi, problème résolu :

Code :

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

1
2
cSQL5 = "INSERT INTO " & acTable2 & " ( [azerty],[azerty],[azertyt],[azerty],[azerty],[azerty],[azerty],[azerty],[azerty],[Annee],[Semaine],[Filiere],[azerty],[azerty],[azerty],[azerty],[azerty],[Volume_non_trace2]) VALUES (" & Chr(34) & varB & Chr(34) & ", " & Chr(34) & varC & Chr(34) & ", " & Chr(34) & varD & Chr(34) & ", " & Chr(34) & varE & Chr(34) & ", " & Chr(34) & varF & Chr(34) & ", " & Chr(34) & varG & Chr(34) & ", " & Chr(34) & varH & Chr(34) & "," & Chr(34) & varI & Chr(34) & "," & Chr(34) & varJ & Chr(34) & "," & Chr(34) & i & Chr(34) & ", " & Chr(34) & k & Chr(34) & ", " & Chr(34) & Range("Feuil2!A" & j).Value & Chr(34) & ", " & Chr(34) & codex & Chr(34) & ", " & Chr(34) & varK & Chr(34) & ", " & Chr(34) & varL & Chr(34) & ", " & Chr(34) & varM & Chr(34) _
& ", " & Chr(34) & varN & Chr(34) & ", " & Chr(34) & varO & Chr(34) & ");"

Merci de ton aide.