Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Membre habitué Avatar de morobaboumar
    Homme Profil pro
    Enseignant
    Inscrit en
    septembre 2009
    Messages
    438
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Côte d'Ivoire

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : septembre 2009
    Messages : 438
    Points : 139
    Points
    139
    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 : 246
Taille : 130,6 KoNom : Commande Moyenne générale_Page_2.jpg
Affichages : 128
Taille : 125,7 KoNom : Commande Moyenne générale_Page_3.jpg
Affichages : 126
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

    Les savants sont les héritiers de la science
    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 régulier
    Homme Profil pro
    Étudiant
    Inscrit en
    juin 2014
    Messages
    113
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Guinée

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Finance

    Informations forums :
    Inscription : juin 2014
    Messages : 113
    Points : 98
    Points
    98
    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
    Membre habitué Avatar de morobaboumar
    Homme Profil pro
    Enseignant
    Inscrit en
    septembre 2009
    Messages
    438
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Côte d'Ivoire

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : septembre 2009
    Messages : 438
    Points : 139
    Points
    139
    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

    Les savants sont les héritiers de la science
    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 régulier
    Homme Profil pro
    Étudiant
    Inscrit en
    juin 2014
    Messages
    113
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Guinée

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Finance

    Informations forums :
    Inscription : juin 2014
    Messages : 113
    Points : 98
    Points
    98
    Par défaut
    Salut, je viens de t'envoyer mon Email par MP.
    Merci encore une fois.

  5. #5
    Membre habitué Avatar de morobaboumar
    Homme Profil pro
    Enseignant
    Inscrit en
    septembre 2009
    Messages
    438
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Côte d'Ivoire

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : septembre 2009
    Messages : 438
    Points : 139
    Points
    139
    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

    Les savants sont les héritiers de la science
    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

  6. #6
    Membre habitué Avatar de morobaboumar
    Homme Profil pro
    Enseignant
    Inscrit en
    septembre 2009
    Messages
    438
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Côte d'Ivoire

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : septembre 2009
    Messages : 438
    Points : 139
    Points
    139
    Par défaut
    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.
    Le savoir est la lumière de l'esprit
    Le chemin de la réussite

    Les savants sont les héritiers de la science
    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, 19h27
  2. Réponses: 0
    Dernier message: 30/12/2011, 15h00
  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, 11h09
  4. [Débutant] Comment afficher plusieurs images dans des axes differents
    Par DOUBLE_H dans le forum Interfaces Graphiques
    Réponses: 8
    Dernier message: 07/06/2011, 23h22
  5. Comment afficher dans un formulaire des requetes?
    Par Camdel dans le forum Access
    Réponses: 5
    Dernier message: 28/06/2006, 11h28

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