Discussion :

[taisherg]

Bonjour,

Quelqu'un saurait-il comment faire pour executer une requête à partir des résultats d'une autre requête en VBA ???

Pour le moment, j'ai écrit le code suivant, mais je sens que ça ne peut pas fonctionner... Problème je sais pas où ça marche pas !!!

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
 
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)
        Call NB_ECHL_1à5(i, strsql)
        Call NE_ECHL_1à5(i, strsql)
        Call SOM_1à5(i, strsql)
        Call SEUIL_1à5(i, strsql)
        Call Rqt_Graph_1à5(i, strsql)
 
    End If
Next i
 
End Sub

Avec comme procédure SQL

[taisherg]

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 :

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
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 :

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

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...