Discussion :

[ijunior]

Bonsoir à tous,

Voila, j'ai un problème d'execution de requête SQL via VBA. Lorsque l'evenement clic du bouton est enclenché, j'ai l'erreur d'execution 3142 : Caractères trouvés après la fin de l'instruction SQL.

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Private Sub Execution_Click()
     'Definition
     Dim rs As Recordset
     Dim rsc As Recordset
     Dim sqlcom As String
     Dim sqlcnt As String
     Dim sqlb As String
     Dim nbContact As Integer
     Dim nbContrat As Integer
     'Affectation
     Set rs = CurrentDb.OpenRecordset("DCom", dbOpenSnapshot)
     sqlcnt = "SELECT COUNT(I.Cial) FROM [Informations Sources] AS I WHERE I.Cial LIKE "
     sqlb = "SELECT COUNT(I.Nom) FROM [Informations Sources] AS I WHERE VENTE IS NOT NULL AND I.Cial LIKE "
     'Traitement
     With rs
        Do Until .EOF
            'rsc => nb contact + contrats pour un commercial
            sqlcnt = sqlcnt & "'" & rs("Nom").Value & "'" & " ;" & vbCrLf
            Set rsc = CurrentDb.OpenRecordset(sqlcnt, dbOpenDynaset)
            nbContact = rsc.RecordCount
            rsc.Close
            sqlb = sqlb & "'" & rs("Nom").Value & "'" & " ;" & vbCrLf
            Set rsc = CurrentDb.OpenRecordset(sqlb, dbOpenDynaset)
            nbContrat = rsc.RecordCount
            rsc.Close
            'Insertion des valeurs
            sqlb = "INSERT INTO Commercial(nbcontact, nbcontrat)  SELECT " & nbContact & ", " & nbContrat & " FROM Commercial AS c WHERE c.Nom = " & "'" & rs("Nom").Value & "'" & " ;" & vbCrLf
            DoCmd.RunSQL (sqlb)
            .MoveNext
        Loop
     End With
     rs.Close
End Sub

L'erreur se produit lorsque le recordset tente d'ouvrir la requete à la ligne 20 du code. Et j'imagine que pour la ligne 23, je devrais avoir le même problème.

VBA Access est un nouveau langage pour moi et j'ai beau faire des recherches sur le net, je n'ai pas trouvé ou était mon erreur...

Merci d'avance pour vos réponses !

[loufab]

Bonjour,

Aucun caractères après la fin de la requete.

La fin de la requete est déterminée par le point virgule.

Supprime tes vbcrlf qui sont totalement inutiles.

Cordialement,

[Invité]

Bonjour

Pourquoi les vbCrLf

Philippe

[ijunior]

Tout d'abord merci pour vos réponses !

J'ai fait le test sans les vbcrlf, j'ai la même erreur !

Pour les vbcrlf, je ne serais pas dire, j'ai vu cela sur un tuto sur le net... :p

[f-leb]

bonsoir,

insère un debug.print sqlcnt pour voir la tête de la chaîne de caractères SQL dans la fenêtre d’exécution (CTR+G dans l'éditeur VBE).

Malgré tout j’ai l’impression qu’on se complique un peu avec du procédural alors qu’avec SQL…

Deux requêtes à tester au préalable :

Code sql :

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

1
2
3
4
5
SELECT I.Cial, count(*) as nbcontact
FROM [Informations Sources] as I
INNER JOIN DCom as D
ON I.Cial=D.Nom
GROUP BY I.Cial;

Code sql :

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

1
2
3
4
5
6
SELECT I.Cial, count(I.Nom) as nbcontrat
FROM [Informations Sources] AS I 
INNER JOIN DCom as D
ON I.Cial=D.Nom
WHERE VENTE IS NOT NULL
GROUP BY I.Cial;

Si j’ai bien compris, ces deux requêtes doivent renvoyer les nbcontact et nbcontrat pour chaque commercial dont le nom figure dans DCom.
Qu’en est-il ?

[f-leb]

tu as peut-être aussi des noms de commerciaux avec des apostrophes qui fichent la pagaille dans:

Code :

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

sqlb = sqlb & "'" & rs("Nom").Value & "'" & " ;" & vbCrLf

Essaye avec:

Code :

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

sqlb = sqlb & chr(34) & rs("Nom").Value & chr(34) & " ;"

[ijunior]

Bonsoir,

Merci pour tes réponses f-leb.

J'ai tester les 2 requêtes et les résultats sont corrects. Ces deux requêtes doivent effectivement renvoyer les nbcontact et nbcontrat pour chaque commercial dont le nom figure dans DCom.

J'ai mis à jour le code comme tu me l'as dit mais j'ai toujours la même erreur :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
Private Sub Execution_Click()
     'Definition
     Dim rs As Recordset
     Dim rsc As Recordset
     Dim sqlcom As String
     Dim sqlcnt As String
     Dim sqlb As String
     Dim nbContact As Integer
     Dim nbContrat As Integer
     'Affectation
     Set rs = CurrentDb.OpenRecordset("DCom", dbOpenSnapshot)
     sqlcnt = "SELECT COUNT(I.Cial) FROM [Informations Sources] AS I WHERE I.Cial LIKE "
     sqlb = "SELECT COUNT(I.Nom) FROM [Informations Sources] AS I WHERE VENTE IS NOT NULL AND I.Cial LIKE "
     'Traitement
     With rs
        Do Until .EOF
            'rsc => nb contact + contrats pour un commercial
            sqlcnt = sqlcnt & Chr(34) & rs("Nom").Value & Chr(34) & " ;"
            Set rsc = CurrentDb.OpenRecordset(sqlcnt, dbOpenDynaset)
            Debug.Print sqlcnt
            nbContact = rsc.RecordCount
            rsc.Close
            sqlb = sqlb & Chr(34) & rs("Nom").Value & Chr(34) & " ;"
            Set rsc = CurrentDb.OpenRecordset(sqlb, dbOpenDynaset)
            nbContrat = rsc.RecordCount
            rsc.Close
            'Insertion des valeurs
            sqlb = "INSERT INTO Commercial(nbcontact, nbcontrat)  SELECT " & nbContact & ", " & nbContrat & " FROM Commercial AS c WHERE c.Nom = " & Chr(34) & rs("Nom").Value & Chr(34) & " ;"
            DoCmd.RunSQL (sqlb)
            .MoveNext
        Loop
     End With
     rs.Close
End Sub

Voici le résultat du debug.print : SELECT COUNT(I.Cial) FROM [Informations Sources] AS I WHERE I.Cial LIKE "A. F." ;

Merci encore à tous pour votre aide !