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
Dim sql As String
Dim recSet As New adodb.Recordset
Dim strString As String
Dim i As Long
recSet.Open "qryRechercheColonne", CurrentProject.Connection
Do While Not recSet.EOF
   If i = 0 Then
       strString = "Avg(Temp_Liste_Base_Calc_HS.[" & recSet![expPériode] & "]) AS AvgOf" & recSet![expPériode]
   Else
    strString = strString & ", Avg(Temp_Liste_Base_Calc_HS.[" & recSet![expPériode] & "]) AS AvgOf" & recSet![expPériode]
   End If
   i = i + 1
  recSet.MoveNext
Loop
recSet.Close
 
sql = "SELECT 1 AS TRI, "" AS [Tri Moyenne], "" AS CODE, "" AS NOMSAN, "" AS PRENON, " & strString & ", "" AS Metier, "" AS [MOYENNE] "
sql = sql & "FROM (Temp_Liste_Base_Calc_HS LEFT JOIN Temp_Moyenne ON Temp_Liste_Base_Calc_HS.CODE = Temp_Moyenne.CMATR5) LEFT JOIN QRY_Effectifs_Temp_Base_Calc_HS ON Temp_Liste_Base_Calc_HS.CODE = QRY_Effectifs_Temp_Base_Calc_HS.CDMATN "
sql = sql & "GROUP BY 1, "", "", "", "", "" ;"

Bonjour à tous j'ai une petite erreur dans ce code...
Erreur d'execution 3075
Erreur de syntaxe dans la chaine dans l'expression '";'.
Quelqu'un peut m'aider ?