Bonjour,
Voilà, je dois effectuer plusieurs requêtes à la suite. Souhaitant automatiser tout cela, j'ai écrit un petit module qui semble fonctionner, or je ne sais si mes requêtes sont effectivement executer puisque ce ne sont que des requêtes permettant de réaliser divers calculs et regroupement.
Comment faire alors pour savoir si les calculs ont bien été faits ? Je pourrais peut-être afficher la table correspondante ? Mais comment ?
Je vous met le code des fois que...
Avec COMPTE_NOTE par exemple écrit comme ceci :
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 Form_Open(Cancel As Integer) Dim i As Integer Dim trouve As Boolean 'Execeution des requêtes permettant le calcul des seuils 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) 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) 'DoCmd.RunSQL (strsql) End If Next i End Sub
Voili voilou...
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 'Requête COMPTE_NOTE permettant de comptabiliser le nbr d'individus 'A garder car utiliser dans requête suivante 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
Merci de votre aide !
Partager