Discussion :

[laurent.w]

Private Sub chantier_Click()

Dim SQL As String


Dim SQLWhere As String
Dim rs As DAO.Recordset
Dim resultat As String
Dim table As Variant
table = Array(1, mg, m1, m2, m3, repq1, repq2, repq3, repq4, repq5, repq6, repq7, repq8, repq9, repq10, repq11, repq12a, repq12b, repq12c, repq13, repq14, repq15, repq16)

For i = 1 To 22
SQL = "SELECT AVG(QS!" & table(i) & ") as moyenne FROM QS WHERE QS!numero <> 0 " & " And QS!date_debut >= #" & Format(Me.txtRechdebut, "mm/dd/yyyy") & "# " & " And QS!date_debut >= #" & Format(Me.txtRechfin, "mm/dd/yyyy") & "# " & " ;"
Next i
resultat = ""

Set rs = CurrentDb.OpenRecordset(SQL)
Do While Not rs.EOF
resultat = resultat & rs!moyenne
rs.MoveNext
Loop
MsgBox (resultat)
Me.mg_qs = resultat

Me.lstResults.RowSource = SQL
Me.lstResults.Requery


End Sub

l'erreur vient de la requete, il ne veut pas reconnaitre mon tableau, aurais je oublier quelque chose?
svp , aidez moi

[pgz]

Bonjour,

TU pourrais modifier comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

table = Array("1", "mg", "m1", ...)

Pour éviter d'utiliser un variant, tu peux aussi déclarer table ainsi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim Table(1 to 22) as string

Si tu utilises un variant, l'indice commence à 0, sauf si tu as déclaré

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Option Base 1

Bon courage,

PGZ

[Strontium]

En plus des corrections de pgz je souhaiterais te signaler qqchose:

Ton for il sert à quoi?
à chaque itération tu écrase la String 'SQL' donc tu n'aura jamais que la chaine pour i = 22....

comme ca ca te donnera peut-être 22 moyennes à la suite

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
 
resultat = ""
 
For i = 1 To 22
SQL = "SELECT AVG(QS!" & table(i) & ") as moyenne FROM QS WHERE QS!numero <> 0 " & " And QS!date_debut >= #" & Format(Me.txtRechdebut, "mm/dd/yyyy") & "# " & " And QS!date_debut >= #" & Format(Me.txtRechfin, "mm/dd/yyyy") & "# " & " ;"
 
Set rs = CurrentDb.OpenRecordset(SQL)
Do While Not rs.EOF
resultat = resultat & rs!moyenne
rs.MoveNext
Loop
rs.close
Next i
 
 
MsgBox (resultat)
Me.mg_qs = resultat
 
Me.lstResults.RowSource = SQL
Me.lstResults.Requery