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, "", "", "", "", "" ;" |
Partager