Requête SQL en VBA

Je termine parce que ça à été publié avant que je puisse finir...

Donc le code pour executer les requêtes lorsque je clic sur le bouton de commande 11

Code:

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
Private Sub Commande11_Click()
 
Dim i As Integer
Dim strsql As String
 
For i = 1 To (Form_Formulaire2.lst_resultat.ListCount + 1)
    If Form_Formulaire2.lst_resultat.Selected(i) Then
        'Execution du SQL permettant le compte des effectifs
        Call COMPTE_NOTE(i, strsql)
        CurrentDb.Execute strsql, dbFailOnError
        Call ECHL_1à5(i, strsql)
        CurrentDb.Execute strsql, dbFailOnError
        Call NB_ECHL_1à5(i, strsql)
        CurrentDb.Execute strsql, dbFailOnError
        Call NE_ECHL_1à5(i, strsql)
        CurrentDb.Execute strsql, dbFailOnError
        Call SOM_1à5(i, strsql)
        CurrentDb.Execute strsql, dbFailOnError
        Call SEUIL_1à5(i, strsql)
        CurrentDb.Execute strsql, dbFailOnError
        Call Rqt_Graph_1à5(i, strsql)
        CurrentDb.Execute strsql, dbFailOnError
    End If
Next i
 
End Sub

Avec la 1ère procédure appelée dans le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub COMPTE_NOTE(ByVal ligne As Integer, strsql As String)
Dim strtable As String
Dim strcriteria As String
 
strtable = "PROFILS, QUESTIONS"
strcriteria = "PROFILS.no_etude = """ & Form_Formulaire2.lst_resultat.Column(0, ligne) & """"
strcriteria = strcriteria & " AND PROFILS.no_etude = QUESTIONS.no_etude AND PROFILS.question = QUESTIONS.question"
strsql = "SELECT PROFILS.no_etude, PROFILS.no_produit, PROFILS.no_conso, PROFILS.question, QUESTIONS.type_question, QUESTIONS.modalite_min, QUESTIONS.modalite_max, PROFILS.note, Count(PROFILS.note) AS CompteDenote "
strsql = strsql + " FROM " & strtable
strsql = strsql + " WHERE ((" & strcriteria & "))"
strsql = strsql & " GROUP BY PROFILS.no_etude, PROFILS.no_produit, PROFILS.no_conso, PROFILS.question, QUESTIONS.type_question, QUESTIONS.modalite_min, QUESTIONS.modalite_max, PROFILS.note;"
 
End Sub

Et j'ai donc besoin de cette requête pour réaliser la suivante et ainsi de suite...

ça parle à quelqu'un ???

Merci de votre aide... :bug: