Discussion :

[taisherg]

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

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

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

Voili voilou...

Merci de votre aide !

[mout1234]

Oops , j'avais pas repéré que ton strSQL était passé par référence et donc que ta série de procédures consistait à contruire ta chaine SQL.

Je suppose donc qu'à la fin de tes call tu as une instruction strSQL à exécuter.

Dans ce cas remplaces ton RunSQL par

Code :

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

Currentdb.Execute strSQL, dbFailOnError

Si la requete plante, cela provoque une erreur (à intercepter par une gestion
d'erreurs).


SI tu veux savoir combien de lignes ont été impactées par la dernière requête, utilise la propriété

Code :

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

CurrentDb.RecordsAffected

[taisherg]

Merci de votre réponse...

D'aprés vous il y aurait un moyen plus simple d'écrire ce bout de code ???

Dans tout les cas, je vais essayer votre idée.
Encore merci.