Discussion :

[morobaboumar]

Bonjour Membres du forum !
Permettez de reprendre notre discussion.
En effet, toutes les corrections précédentes marchent parfaitement.
Maintenant après avoir créé une commande:CmdMoyennes_Classe "Moyennes globales classe" dont voici les codes:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CmdMoyennes_Classe_Click()
'INFOS_COMPOSITION_ARABE
If MsgBox("Calcul global des moyennes : " & Me.ClasseArabe & " - " & Me.CompoArabe.Column(1) & " (" & Me.anscol & ") ?", vbQuestion + vbYesNo, "Calcul des Moyennes") = vbNo Then Exit Sub
CalculTouteslesMoyennes
DoEvents
 
    MsgBox "Les moyennes de : " & Me.ClasseArabe & ", Compo : " & Me.CompoArabe.Column(1) & " (" & Me.anscol & ") ont été calculées.", vbInformation + vbOKOnly, "Calcul des Moyennes"
Actualiser_Click
cmdCalcul01_Click
End Sub

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
'**********CALCUL DE LA MOYENNE D'UN ELEVE***********************
Function MoyenneEleve(NoCompo As Long) As Single
'On Error Resume Next
Dim db As Database
Dim rst As Recordset
Dim rstNCoef As Recordset
Dim rstCoef As Recordset
Dim sqlNotesCoef As String
Dim sqlCoef As String
Dim idX As Long
 
Set db = CurrentDb
 
'Mise à jour du total des notes
sql = "SELECT SUM(NoteAr*coef) AS TotalDesNotes FROM NOTES_CLASSES_ARABES WHERE idCA = " & NoCompo & ";"
Set rst = db.OpenRecordset(sql)
If Not rst.EOF Then
    'Me.Total_Notes = rst.Fields("TotalDesNotes")
    N_TotalNotes = rst.Fields("TotalDesNotes")
Else
    'Me.Total_Notes = 0
    N_TotalNotes = 0
End If
 
'Mise à jour du total des Coef et de la Moyenne
sqlCoef = "SELECT SUM(coef) AS TotalDesCoef FROM NOTES_CLASSES_ARABES WHERE idCA = " & NoCompo & ";"
 
sqlNotesCoef = "SELECT SUM(NoteAr*coef) AS NotesCoef FROM NOTES_CLASSES_ARABES WHERE idCA = " & NoCompo & ";"
 
Set rstCoef = db.OpenRecordset(sqlCoef)
 
Set rstNCoef = db.OpenRecordset(sqlNotesCoef)
 
If Not rstNCoef.EOF And Not rstCoef.EOF Then
    'Me.MoyenneCompo = Round(rstNCoef.Fields("NotesCoef") / rstCoef.Fields("TotalDesCoef"), 2)
    MoyenneEleve = Round(rstNCoef.Fields("NotesCoef") / rstCoef.Fields("TotalDesCoef"), 2)
Else
    'Me.MoyenneCompo = 0
    MoyenneEleve = 0
End If
 
'Mise à jour du total de l'appréciation
 
Me.Appreciation = AppreciationMoyenne(Me.MoyenneCompo)
End Function

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
'********************************************************************************
'********************************************************************************
'********************************************************************************
Sub CalculTouteslesMoyennes()
On Error GoTo CCIW
Dim db As Database
Dim rst As Recordset
Dim strSQL As String
Set db = CurrentDb
 
strSQL = "SELECT * FROM INFOS_COMPOSITION_ARABE WHERE anscol='" & Me.anscol & "'AND ClasseArabe='" & Me.ClasseArabe & "'AND CompoArabe=" & Me.CompoArabe & "AND ID_Etab=" & Me.ID_Etab & ";"
 
Set rst = db.OpenRecordset(strSQL)
 
If Not rst.EOF Then
    rst.MoveFirst
        Do While Not rst.EOF
            rst.Edit
            DoEvents
            'Calcul de la moyenne
            rst.Fields("MoyenneCompo") = MoyenneEleve(rst.Fields("idCompoA"))
 
            'Génération de l'appréciation
            rst.Fields("Appreciation") = AppreciationMoyenne(MoyenneEleve(rst.Fields("idCompoA")))
 
            'Total des Notes * Coef
            rst.Fields("Total_Notes") = N_TotalNotes
 
            rst.Update
 
            rst.MoveNext
 
            DoEvents
        Loop
    Else
End If
 
Exit Sub
CCIW:
    MsgBox err.description, vbExclamation + vbOKOnly, "Erreur n° " & err.Number
End Sub
'********************************************************************************
'********************************************************************************

le total des notes s'efface "Total_Notes".
Ensuite, le formulaire suivant qui s'affiche est:"CALCUL_RANG_CLASSES_ARABES", et le champ"Total_Notes" de son sous-formulaire le total des notes ne s'affiche pas.
Je vous prie de résoudre cette anomalie.
Je vous signale que lorsque je clique individuellement sur la commande cmdCalcul01"SA MOYENNE DE LA 1ÈRE COMPOSITION", tout se passe parfaitement.

1 pièce jointe



Merci infiniment.

[kabamel]

Slt, Je suis très intéressé à cette base de donnée.
Peut-tu mettre le fichier complet ? Merci pour tout

[morobaboumar]

Bonjour Kabamel!
Je voudrais bien t'envoyer le fichier complet.
Alors envoie moi ton adresse mail.
Cordialement

[kabamel]

Salut, je viens de t'envoyer mon Email par MP.
Merci encore une fois.

[morobaboumar]

Bonjour membres du forum !
J'ai bien reçu ton email.

Donne un peu de temps afin que je puisse publier le "Comment ai-je réussi à concevoir ma Base de Données"
afin que tout le monde puisse apprécier et m'apporter conseille.
Merci de patienter.

Cordialement

[morobaboumar]

Bonsoir membres du forum !
Je suis toujours à la recherche de solution me permettant de calculer toutes les moyennes d'une composition de l'ensemble des élèves composants d'une classe.
Voici mon code.

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
'********************************************************************************
'********************************************************************************
'********************************************************************************
Sub CalculTouteslesMoyennes()
On Error GoTo CCIW
Dim db As Database
Dim rst As Recordset
Dim strSQL As String
Set db = CurrentDb
 
strSQL = "SELECT * FROM INFOS_COMPOSITION_ARABE WHERE anscol='" & Me.anscol & "'AND ClasseArabe='" & Me.ClasseArabe & "'AND CompoArabe=" & Me.CompoArabe & "AND ID_Etab=" & Me.ID_Etab & ";"
 
Set rst = db.OpenRecordset(strSQL)
 
If Not rst.EOF Then
    rst.MoveFirst
        Do While Not rst.EOF
            rst.Edit
            DoEvents
            'Calcul de la moyenne
            rst.Fields("MoyenneCompo") = MoyenneEleve(rst.Fields("idCompoA"))
 
            'Génération de l'appréciation
            rst.Fields("Appreciation") = AppreciationMoyenne(MoyenneEleve(rst.Fields("idCompoA")))
 
            'Total des Notes * Coef
            rst.Fields("Total_Notes") = N_TotalNotes
 
            rst.Update
 
            rst.MoveNext
 
            DoEvents
        Loop
    Else
End If
 
Exit Sub
CCIW:
    MsgBox err.description, vbExclamation + vbOKOnly, "Erreur n° " & err.Number
End Sub
'********************************************************************************
'********************************************************************************

Remarque: Les difficultés (le 1er post plus en haut).

Voici comment accéder au formulaires de gestion des notes scolaires :
1- Bouton « SCOLARISATION _ Ajout Informations »
2- Bouton « ETABLISSEMENT SCOLAIRES ET SERVICES DIVERS _ Ajout Informations » de l’onglet » SERVICES DIVERS _ Ajout Informations »
3- Bouton « APERCU DES ELEVES DE L'ECOLE EN COURS « de l’onglet » COMPOSITIONS SCOLAIRES ... CANDIDATS AUX EXAMENS ARABE ET FRANCAIS »
4- Bouton «LISTE_DE_COMPOSITIONS Mtle && Primair « du formulaire » FormListeDeTousLesEleves_AnneeScolaire »
5- Bouton de commande «Moyennes globales classe«

Cordialement.