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
[Balises de code rajoutées par Thierry AIM, Merci d'y penser la prochaine fois]
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
Partager