Bonjour à Tous!

J'essaye de créer une requête ajout en VB afin de pouvoir executer une boucle sur cette requête.

J'ai crée la requête que je souhaite via le mode création d'Access et j'ai copié le SQL pour l'adapter à mon besoin... Mais je dois avoir un problème de syntaxe...

quelqu'un peut-il m'aider? Ci-dessous mes lignes de codes...

Merci par avance

OS

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
Function Leaders()
 
Dim bd As DAO.Database
Set bd = CurrentDb
Dim Leaders As QueryDef
Dim Effectifs As DAO.Recordset
Dim Sv As String
Dim chSQL1 As String
 
Set Effectifs = bd.OpenRecordset("EFFECTIFS")
 
DoCmd.SetWarnings False
 
Effectifs.MoveFirst
Do Until Effectifs.EOF
 
Sv = Effectifs![csv]
 
chSQL1 = "INSERT INTO [CA 2005 - 01 - " & Sv & "] ( [REF CA] ) _
SELECT [REFERENTIEL LOCAL]![Etablissement de rattachement] & [REFERENTIEL PRODUITS]![Codification] AS [REF CA] _
FROM ([CA 2005 - 2006] INNER JOIN [REFERENTIEL PRODUITS] ON ([CA 2005 - 2006].[Code Gamme Cabestan]=[REFERENTIEL PRODUITS].[CODE GAMME CABESTAN]) AND ([CA 2005 - 2006].[Code Famille Cabestan]=[REFERENTIEL PRODUITS].[CODE FAMILLE CABESTAN]) AND ([CA 2005 - 2006].[Code Produit/Service Cabestan]=[REFERENTIEL PRODUITS].[CODE PRODUIT/SERVICE CABESTAN])) INNER JOIN [REFERENTIEL LOCAL] ON [CA 2005 - 2006].[Coclico]=[REFERENTIEL LOCAL].[N° Coclico] _
GROUP BY [REFERENTIEL LOCAL]![Etablissement de rattachement] & [REFERENTIEL PRODUITS]![Codification], [REFERENTIEL LOCAL].[Secteur Vendeur / Position] _
HAVING ((([REFERENTIEL LOCAL].[Secteur Vendeur / Position])= sv ));"
 
Set Leaders = bd.CreateQueryDef("MAJ LEADERS", chSQL1)
 
Leaders.Execute
 
End Function
[Balises de code rajoutées par Thierry AIM, Merci d'y penser la prochaine fois]