[AC-2010] Problème lancement requete via VBA [Résolu]

[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 :

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,

[Philippe JOCHMANS]

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 :

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 :

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 :

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

Essaye avec:

Code :

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 :

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 !

[f-leb]

bonsoir,

Code sql :

SELECT COUNT(I.Cial) FROM [Informations Sources] AS I WHERE I.Cial LIKE "A. F." ;

cette requête renvoie l'erreur 3142 : Caractères trouvés après la fin de l'instruction SQL ???

De toute façon, on devrait faire plus simple avec les deux requêtes:

Code sql :

1
2
3
4
5
6
7
8
9
10
11
12
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;
 
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;

la première tu l'enregistre sous Rcontact, la deuxième Rcontrat.

Toujours si je te suis bien, la requête:

Code sql :

1
2
3
SELECT D.Nom, R1.nbcontact, R2.nbcontrat
FROM (Dcom D INNER JOIN Rcontact R1
ON D.Nom=R1.idCial) INNER JOIN Rcontrat R2 ON D.Nom=R2.idCial

devrait renvoyer les lignes que tu souhaites insérer dans ta table commercial (quoi que, pas évident, à vérifier ça dépend).

Si c'est le cas tu bascules en requête "ajout" que tu complètes avec les assistants pour insérer dans Commercial et il ne reste plus qu'à appeler cette requête sur clic du bouton.

[loufab]

Peut-être un caractère de controle invisible qui traine en fin de chaine.

Fait une copie de ton code dans Notepad++ et passe en visu de caractères invisibles.

[ijunior]

Bonsoir,

Merci à tous !

@loufab : il n'y a malheuresement pas de caractères invisibles au niveau du code ! Je l'ai passer à la moulinette Notepad++.

@f-leb :

Toujours si je te suis bien, la requête:
Code sql :
Sélectionner tout - Visualiser dans une fenêtre à part

Code :

devrait renvoyer les lignes que tu souhaites insérer dans ta table commercial (quoi que, pas évident, à vérifier ça dépend).

Cela donne bien un résultat cohérent mais cela ne donne uniquement les commerciaux qui ont signés des contrats et pas les autres. J'ai essayé avec left join on, mais cela ne fonctionne pas...

Je commence a désespérer, surtout que cela fait trop longtemps que je suis sur cette fonctionnalité du projet...

[f-leb]

bonsoir,

Avec cette erreur 3142, tu me surprends une fois de plus

Envoyé par ijunior

Cela donne bien un résultat cohérent mais cela ne donne uniquement les commerciaux qui ont signés des contrats et pas les autres. J'ai essayé avec left join on, mais cela ne fonctionne pas...

Code :

1
2
3
4
5
6
7
DCom :

Nom
Riri
Fifi
Loulou
Donald

Code :

1
2
3
4
5
RContact :

idCial	nbcontact
fifi	2
loulou	4

Code :

1
2
3
4
5
RContrat :

idCial	nbcontrat
fifi	3
riri	5

La requête avec LEFT JOIN :

Code sql :

1
2
3
SELECT D.Nom, R1.nbcontact, R2.nbcontrat
FROM (Dcom D LEFT JOIN Rcontact R1
ON D.Nom=R1.idCial) LEFT JOIN Rcontrat R2 ON D.Nom=R2.idCial

J’obtiens :

Code :

1
2
3
4
5
Nom	  nbcontact   nbcontrat
riri     		5
fifi     	2	3
loulou         	4	
donald

Si au lieu des cases vides on veut des zéro :

Code sql :

1
2
3
4
 
SELECT D.Nom, nz(R1.nbcontact,0) AS nbcontact, nz(R2.nbcontrat,0) AS nbcontrat
FROM (Dcom D LEFT JOIN Rcontact R1
ON D.Nom=R1.idCial) LEFT JOIN Rcontrat R2 ON D.Nom=R2.idCial

Si avec ça tu n’obtiens toujours pas le résultat, il va falloir détailler ce que tu entends précisément par "cela ne fonctionne pas".

[ijunior]

Merci beaucoup f-leb, cela fonctionne enfin correctement !

Ayant peu de temps, je vais adopter cette solution de contournement. Je vais passer le statut de cette discussion en résolu et une fois que j'aurais plus de temps, je regarderais pourquoi avec mes recordset cela ne fonctionne pas.

Si je trouve la solution, je la posterai car cela pourrais débloquer quelqu'un d'autre !

En tout cas merci à tous pour votre aide !