[AC-2010] DoCmd.RunSQL Passage à la ligne [Résolu]

[Lologolas]

Bonjour à tous,

J'ai une requête SQL que je veux attribuer sur un bouton, de type

INSERT INTO ....... VALUES ......

Elle marche bien quand il n'y a qu'une seule valeur à transmettre, mais le problème c'est que ma requête est super longue et nécessite un passage à la ligne dans le code, ce qui fait planter le compileur.

Auriez-vous une solution concernant ce problème?

Merci

[Domi2]

Bonjour,

A la fin de chaque ligne (sauf la dernière), tu laisses un espace et & _.

Exemple :

Code :

1
2
strSQL = "SELECT tblStatuts.StatutId, tblStatuts.StatutAdh, tblStatuts.StatutDateDebut " & _
         "FROM tblStatuts ORDER BY tblStatuts.StatutDateDebut DESC;"

Domi2

[Lologolas]

Salut Domi2,

J'ai essayé de faire comme tu m'as dit mais ça me met toujours un message d'erreur, voici mon code pour que tu comprennes mieux

Private Sub Commande91_Click()
DoCmd.RunSQL "INSERT INTO COMMANDE(NUM_CLIENT, NUM_DEVIS, TITRE_OUVRAGE & _
QUANTITE_OUVRAGE) VALUES ('" & CLIENT_NUM_CLIENT & "', '" & NUM_DEVIS & "', '" & TITRE_OUVRAGE & "', '" & QUANTITE_OUVRAGE & "')"
End Sub

La syntaxe a l'air bonne pourtant

[Domi2]

Jamais été très à l'aise avec ces syntaxes :

A tester :

Code :

1
2
3
4
5
6
Dim strSql As String
 
strSql = "INSERT INTO COMMANDE(NUM_CLIENT, NUM_DEVIS, TITRE_OUVRAGE, QUANTITE_OUVRAGE)" & _
         "VALUES ('" & CLIENT_NUM_CLIENT & "', '" & NUM_DEVIS & "', '" & TITRE_OUVRAGE & "', '" & QUANTITE_OUVRAGE & "');"
 
DoCmd.RunSQL strSql

Domi2

[Lologolas]

Ça marche! Merci beaucoup,

Juste un autre question, comment éviter les problèmes de caractères d'échappement dans les requêtes sql?

Quand le contenu d'un champ contient un ' ou autre ça fait planter la requête, aurai-tu une idée?

Merci!

[Domi2]

Voir la FAQ : Comment insérer dans une table une chaîne de caractères contenant des quotes (apostrophes) ?

Et ce tuto incontournable : Initiation - Débogage : requêtes écrites par VBA

Domi2

[Lologolas]

Super!

Merci beaucoup Domi2!