1. #1
    Nouveau membre du Club Avatar de morobaboumar
    Inscrit en
    septembre 2009
    Messages
    114
    Détails du profil
    Informations forums :
    Inscription : septembre 2009
    Messages : 114
    Points : 39
    Points
    39

    Par défaut Pourquoi le total général des notes scolaires disparaît ?

    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

    Nom : Commande Moyenne générale_Page_1.jpg
Affichages : 181
Taille : 130,6 KoNom : Commande Moyenne générale_Page_2.jpg
Affichages : 88
Taille : 125,7 KoNom : Commande Moyenne générale_Page_3.jpg
Affichages : 89
Taille : 144,1 Ko

    Merci infiniment.
    Fichiers attachés Fichiers attachés
    Le savoir est la lumière de l'esprit
    Le chemin de la réussite

    Qui cherche positivement trouve
    Tout ce qui brille n'est pas l'or ou diamant
    Mais l'or et le diamant se trouvent avec sagesse, intelligence et effort

  2. #2
    Membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    juin 2014
    Messages
    76
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Guinée

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Finance

    Informations forums :
    Inscription : juin 2014
    Messages : 76
    Points : 55
    Points
    55

    Par défaut

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

  3. #3
    Nouveau membre du Club Avatar de morobaboumar
    Inscrit en
    septembre 2009
    Messages
    114
    Détails du profil
    Informations forums :
    Inscription : septembre 2009
    Messages : 114
    Points : 39
    Points
    39

    Par défaut Salutation

    Bonjour Kabamel!
    Je voudrais bien t'envoyer le fichier complet.
    Alors envoie moi ton adresse mail.
    Cordialement
    Le savoir est la lumière de l'esprit
    Le chemin de la réussite

    Qui cherche positivement trouve
    Tout ce qui brille n'est pas l'or ou diamant
    Mais l'or et le diamant se trouvent avec sagesse, intelligence et effort

  4. #4
    Membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    juin 2014
    Messages
    76
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Guinée

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Finance

    Informations forums :
    Inscription : juin 2014
    Messages : 76
    Points : 55
    Points
    55

    Par défaut

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

  5. #5
    Nouveau membre du Club Avatar de morobaboumar
    Inscrit en
    septembre 2009
    Messages
    114
    Détails du profil
    Informations forums :
    Inscription : septembre 2009
    Messages : 114
    Points : 39
    Points
    39

    Par défaut

    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
    Le savoir est la lumière de l'esprit
    Le chemin de la réussite

    Qui cherche positivement trouve
    Tout ce qui brille n'est pas l'or ou diamant
    Mais l'or et le diamant se trouvent avec sagesse, intelligence et effort

Discussions similaires

  1. [AC-2010] Comment afficher un état selon des critère
    Par kenthsmile dans le forum IHM
    Réponses: 2
    Dernier message: 18/09/2014, 20h27
  2. Réponses: 0
    Dernier message: 30/12/2011, 16h00
  3. [1.x] Comment afficher un pdf à partir des données
    Par farhaenis dans le forum Symfony
    Réponses: 6
    Dernier message: 11/07/2011, 12h09
  4. [Débutant] Comment afficher plusieurs images dans des axes differents
    Par DOUBLE_H dans le forum Interfaces Graphiques
    Réponses: 8
    Dernier message: 08/06/2011, 00h22
  5. Comment afficher dans un formulaire des requetes?
    Par Camdel dans le forum Access
    Réponses: 5
    Dernier message: 28/06/2006, 12h28

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo