Discussion :

[morobaboumar]

Bonsoir membres du forum,
Je recherche une méthode permettant
de contrôler les notes scolaires
dans un intervalle de 0 à 50.
J'ai une zone de texte déroulante
nommée Statut à partir de laquelle
un code avec MsgBox me demandant
quel serait l'intervalle de points à donner aux élèves d'une classe pendant une compétition ?
Voir la capture.


Exemple : s'agissant des classes
de la MATERNELLE jusqu'en CP2, les notes seront entre 0 et 10. Ensuite les autres niveaux CE1 jusqu'aux secondaires, de 0 à 50.
Cordialement.

[Belga16]

Au lieu de demander l'intervalle de points, pourquoi ne pas se baser sur la classe de l'élève :
Si classe <= CP2, alors intervalle = 0 à 10
sinon, intervalle = 0 à 50

[morobaboumar]

Au lieu de demander l'intervalle de points, pourquoi ne pas se baser sur la classe de l'élève :
Si classe <= CP2, alors intervalle = 0 à 10
sinon, intervalle = 0 à 50

Bonsoir Belga16,
Pièces jointes




Cordialement.

[Belga16]

Il y a quelque chose qui m'échappe; puisque le niveau d'évaluation est connu (=CE1), donc l'intervalle de points doit être 0-50; n'est-ce pas ?
J'avoue que je n'ai pas ouvert la BD; j'ai juste lu l'info sur l'image de votre formulaire.

[morobaboumar]

Bonsoir Belga16,

J'avoue que je n'ai pas ouvert la BD; j'ai juste lu l'info sur l'image de votre formulaire.

Je vous prie de l'exploiter afin que nous puissions trouver une bonne solution à notre discussion.

Voici comment j'ai créé les tables des classes:




je n'y ai pas placé de clé primaire

Il y a quelque chose qui m'échappe; puisque le niveau d'évaluation est connu (=CE1), donc l'intervalle de points doit être 0-50; n'est-ce pas ?

Oui je vous rappelle que l'intervalle de notes des niveaux de la Maternelle jusqu'en CE1 est de 0 à 10,
ensuite celui du CE2 à la Terminale est de 0 à 50.

Cordialement.

[hyperion13]

Salut
Il serait bon d'indiquer sur quel form il faut travailler, parce que les jeux de piste et moi faisons deux.
Votre bdd, plus tôt usine à gaz, n'est pas fonctionnelle.
- img1 on ne peut rien sélectionner dans frm_Eval...ECINF.lstAnnee_Evaluation !
- img2 idem pour NOTES...._FR.lstAnneeFR !
- img3 dans une autre discussion j'avais signalé le problème de doublons dans votre combobox NOTES...._FR.ListeNiveauEVALUATION_FR. Le problème n'a pas été réglé !
- img4 quel rapport avec la question posée. Que signifie classé/non classé?
Comme indiqué par Belga16 que je salue, la classe (ou niveau) est connue. Il suffirait de créer une fct style IF ... THEN ... EN IF ou un SELECT CASE ... pour déterminer le bon intervalle souhaité.

[morobaboumar]

Bonjour hyperion13,
Content de vous retrouver!

Salut
Il serait bon d'indiquer sur quel form il faut travailler, parce que les jeux de piste et moi faisons deux.
Votre bdd, plus tôt usine à gaz, n'est pas fonctionnelle.

Voici comment ça fonctionne (NB: suivez l'ordre des captures d'écran):
1°) sélectionnez le 1er établissement


2°) sélectionnez la 1ere ou 2e composition puis le CP2 Français
ensuite, cliquez sur la cmd enregistrer notes de composition:


3°) cliquez sur la commande Traitement Notes de Composition du Frm du 2e onglet



Ici, le statut désigne l'élève qui a composé donc classé


Là, on clique sur la commande Initialiser pour afficher les matières dont les notes seront enregistrées


Voici un exemple de l'état final du classement


NB: je vous envoie une nouvelle pièce jointe corrigée.
Cordialement.

[morobaboumar]

Bonsoir membres du forum,
Ceci est un exemple banal:

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
.    Sub IntervalleNotesScolaires()
Dim rep As Integer
rep = MsgBox("VOULEZ-VOUS NOTER" & vbCrLf & _
"LES COMPOSANTS" & vbCrLf & "DE 0 à 10 ? ---> OUI" & _
vbCrLf & "" & vbCrLf & "OUBIEN DE 0 à 50 ? ---> NON" & vbCrLf & _
"" & vbCrLf & "QUITTER SANS RIEN FAIRE ---> ANNULER", _
vbYesNoCancel + vbQuestion, "Choisir un traitement")
Select Case rep
Case vbYes
Me.[NOTES_CLASSES_FRANCAIS_SF].Form![Note] <= "10"
Case vbNo
 Me.[NOTES_CLASSES_FRANCAIS_SF].Form![Note] <= "50"
 
Case vbCancel
Case Else
End Select
End Sub

Je souhaiterais me focaliser sur la condition if avec MsgBox qui pourrait être plus simple
me simplifier la tâche sans me baser sur la classe
Cordialement.

[hyperion13]

re,
Déjà signalé dans d'autres discussions, vous n"avez jamais mis en relation vos tbl ! Ce qui rend difficile la compréhension du cheminement de toutes les données et l'interaction des dépendances. Je rappelle qu'Access appartient au SGDBR.
Il y a même des tbl qui n'ont pas de clé primaire ou composée (clés multiples)
- dans frm CompositionsEntamees, des combobox sont verrouillées (img1) ! Autant les remplacer par des textbox ! Et pour mettre à jour ces combobox, il faut faire un exercice de style (img2)
- dans frm NOTES_....._FR (img3) d'où viennent les notes ? Comment procèdez-vous pour ajouter une nouvelle note ?
Si c'est dans ce form que les nouvelles notes sont saisies, il faut éventuellement jouer sur l'évènement BeforUpdate de NoteFr pour s'assurer que la note saisie est bien comprise dans les limites imposées. De plus, le Niveau est connu Niveau_E_Fr : CP2 A. Un IF ... THEN ... devrait faire l'affaire.

[morobaboumar]

re,
Déjà signalé dans d'autres discussions, vous n"avez jamais mis en relation vos tbl ! Ce qui rend difficile de comprendre le cheminement de toutes les données.
Il y a même des tbl qui n'ont pas de clé primaire ou composée (clés multiples)
- dans frm CompositionsEntamees, des combobox sont verrouillées (img1) ! Autant les remplacer par des textbox ! Et pour mettre à jour ces combobox, il faut faire un exercice de style (img2)
- dans frm NOTES_....._FR (img3) d'où viennent les notes ? Comment procèdez-vous pour ajouter une nouvelle note ?
Si c'est dans ce form que les nouvelles notes sont saisies, il faut éventuellement jouer sur l'évènement BeforUpdate de NoteFr pour s'assurer que la note saisie est bien comprise dans les limites imposées. De plus, le Niveau est connu Niveau_E_Fr : CP2 A. Un IF ... THEN ... devrait faire l'affaire.

Bonjour hyperion13,
Je vous ramène au post 7
Tout démarre à partir du formulaire menu en sélectionnant le premier établissement ensuite clique sur la cmde ANNEE_SCOLAIRE_SELECTIONNEE, puis sélectionner le 2e onglet du formulaire qui s'affiche...
Les images vous expliquent le reste.






Cordialement.

[hyperion13]

re,
Inutile de me refaire le jeu de piste !
J'ai posé une question dans le Post#9

- dans frm NOTES_....._FR (img3) d'où viennent les notes ? Comment procèdez-vous pour ajouter une nouvelle note ?
Si c'est dans ce form que les nouvelles notes sont saisies, il faut éventuellement jouer sur l'évènement BeforUpdate de NoteFr pour s'assurer que la note saisie est bien comprise dans les limites imposées. De plus, le Niveau est connu Niveau_E_Fr : CP2 A. Un IF ... THEN ... devrait faire l'affaire.

[morobaboumar]

re,
Inutile de me refaire le jeu de piste !
J'ai posé une question dans le Post#9

Le voici:
D'abord, je sélectionne les matières d'une nouvelle composition dans le formulaire prévu à cela.

Exemple: 3e composition.

Permettez moi de vous présenter le comment en images ?





Ensuite, je retourne au formulaire de saisie des notes pour sélectionner un composant dans la liste des élèves à droite
puis sélectionne le statut Classé et je clique sur la commande initialiser pour faire apparaître les matières à noter pour le composant en cours.
Ensuite, après avoir entré les notes, je clique sur la commande sa moyenne de la x composition pour comme l'indique la capture suivante



Cordialement.

[hyperion13]

re,
Comme indiqué dans le Post#9 n BeforeUpdate() sur Note devrait le faire
A adapter.

Code :

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

1
2
3
4
5
6
7
8
Private Sub Note_BeforeUpdate(Cancel As Integer)
If Me.Parent.NiveauEvaluationFr = "maternelle" Or Me.Parent.NiveauEvaluationFr = "CP1 A" etc. And Me.Note > 10 Then
    MsgBox "La note doit être entre 0 et 10 !"
    Me!Note.Undo
    Cancel = True
    Exit Sub
End If
End Sub

[morobaboumar]

Bonsoir hyperion13,
Voici comment j'ai essayé d'adapter votre code à ma recherche:

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
Private Sub Note_BeforeUpdate(Cancel As Integer)
'If Me.Note > 10 Then
    'MsgBox "La note doit être entre 0 et 10 !"
    'Me!Note.Undo
    'Cancel = True
    'Exit Sub
'End If
IntervalleNotesScolaires
End Sub
 
Sub IntervalleNotesScolaires()
Dim rep As Integer
 
rep = MsgBox("VOULEZ-VOUS NOTER" & vbCrLf & _
"LES COMPOSANTS" & vbCrLf & "DE 0 à 10 ? ---> OUI" & _
vbCrLf & "" & vbCrLf & "OUBIEN DE 0 à 50 ? ---> NON" & vbCrLf & _
"" & vbCrLf & "QUITTER SANS RIEN FAIRE ---> ANNULER", _
vbYesNoCancel + vbQuestion, "Choisir un traitement")
Select Case rep
Case vbYes
 If Me.Note > 10 Then
    MsgBox "La note doit être entre 0 et 10 !"
    Me!Note.Undo
    'Cancel = True
    Exit Sub
End If
Case vbNo
    If Me.Note > 50 Then
    MsgBox "La note doit être entre 0 et 10 !"
    Me!Note.Undo
    'Cancel = True
    Exit Sub
End If
 Case vbCancel
Case Else
End Select
End Sub

Ecrit Si valide [NoteFr]>=0 Et [NoteFr]<=50 dans l'onglet Général de la feuille de propriété du champ NoteFr




Quel est votre avis ?

Cordialement.

[hyperion13]

re,
Donc si je comprends votre approche, et franchement j'ai un peu de mal, votre évènement "Choisir un traitement" va se déclencher pour chaque note que vous allez valider de Dictée préparée à Mathématiques, pour demander à l'utilisateur de forcément cliquer sur OUI dans le cas imagé puisqu'en CP2 A !
Vous m'expliquez l'intérêt, à part vouloir peut-être chercher à stresser l'utilisateur avec ce bombardement d(évènements !
Selon l'exemple imagé, vous traitez une classe de CP2 A, ce qui implique que les notes sont comprises entre 0 et 10 (voir Post#1)
Expliquez-nous comment vous pouvez avoir une note 50 en mathématiques ? Alors que on ne peut dépasser 10 !
Plus étonnant le message "La note doit être entre 0 et 50" n'a pas sa place, la classe est CP2 A, donc la note max ne peut être que 10. Le message devrait être normalement "La note doit être entre 0 et 10" !

[morobaboumar]

Bonsoir membres du forum,
Bref! Voici mon objectif:
- 1°) Ecrire un code qui me permette de noter les élèves entre 0 et 10 pas plus lorsque je clique sur le oui de la boite de dialogue.

- 2°) Par contre si je clique sur le Non de la boite de dialogue, les élèves seront noter entre 0 et 50.
Pour tout cela je souhaite éviter le rebondissement de la Msgbox. Alors quel code me faut il et dans quel évènement ?

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
 
Sub IntervalleNotesScolaires()
Dim rep As Integer
 
rep = MsgBox("VOULEZ-VOUS NOTER" & vbCrLf & _
"LES COMPOSANTS" & vbCrLf & "DE 0 à 10 ? ---> OUI" & _
vbCrLf & "" & vbCrLf & "OUBIEN DE 0 à 50 ? ---> NON" & vbCrLf & _
"" & vbCrLf & "QUITTER SANS RIEN FAIRE ---> ANNULER", _
vbYesNoCancel + vbQuestion, "Choisir un traitement")
Select Case rep
Case vbYes
 If Me.Note > 10 Then
    MsgBox "La note doit être entre 0 et 10 !"
    Me!Note.Undo
    'Cancel = True
    Exit Sub
End If
Case vbNo
    If Me.Note > 50 Then
    MsgBox "La note doit être entre 0 et 10 !"
    Me!Note.Undo
    'Cancel = True
    Exit Sub
End If
 Case vbCancel
Case Else
End Select
End Sub
Ecrit

Cordialement.

[hyperion13]

re,
Rappelez-nous la règle de gestion du Post#1 ?
Si de Maternelle à CP2, les notes vont de 0 à 10.
Si de CM1 à au-delà, les notes vont de 0 à 50.

Dans le dernier exemple imagé nous avons l'élève 625 qui est en CP2 A. Donc ses notes ne peuvent aller que de 0 à 10 !
Étonnamment, en mathématiques il a 50 ce qui selon vos règles est impossible ! Au maximum, il ne peut avoir que 10. Me trompe-je ?
Et que viendrait faire dans "Choix du traitement" le OUBIEN DE 0 à 50 ? ---> NON, alors que nous sommes en CP2 A et des notes de 0 à 10 ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Note_BeforeUpdate(Cancel As Integer)
If Me.Parent.NiveauEvaluationFr = "maternelle" Or Me.Parent.NiveauEvaluationFr = "CP1 A" Or Me.Parent.NiveauEvaluationFr = "etc." And Me.Note > 10 Then
    MsgBox "La note doit être entre 0 et 10 !"
    Me!Note.Undo
    Cancel = True
    Exit Sub
End If
If Me.Parent.NiveauEvaluationFr = "CM1 A" Or Me.Parent.NiveauEvaluationFr = "CM2 A" Or Me.Parent.NiveauEvaluationFr = "etc." And Me.Note > 50 Then
    MsgBox "La note doit être entre 0 et 50 !"
    Me!Note.Undo
    Cancel = True
    Exit Sub
End If
End Sub

[morobaboumar]

Merci infiniment hyperion13,
merci à vous Belga16;
Désolé de ne vous avoir pas compris. Vous savez ce sont les mots parent. et etc. qui m'ont surpris dans le code.
Finalement mon usine à gaz marche

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
Private Sub Note_BeforeUpdate(Cancel As Integer)
If Me.Parent.NiveauEvaluationFr = "Maternelle" Or Me.Parent.NiveauEvaluationFr = _
"CP1 A" Or Me.Parent.NiveauEvaluationFr = "CP2 A" And Me.Note > 10 Then
    MsgBox "La note doit être entre 0 et 10 !"
    Me!Note.Undo
    Cancel = True
    Exit Sub
End If
If Me.Parent.NiveauEvaluationFr = "CE2 A" Or Me.Parent.NiveauEvaluationFr = _
"CM1 A" Or Me.Parent.NiveauEvaluationFr = "CM1 A" Or Me.Parent.NiveauEvaluationFr = _
"CM2 A" And Me.Note > 50 Then
    MsgBox "La note doit être entre 0 et 50 !"
    Me!Note.Undo
    Cancel = True
    Exit Sub
End If
End Sub
 
 
Sub IntervalleNotesScolaires()
Dim Cancel As Integer
If Me.Parent.NiveauEvaluationFr = "Maternelle" Or Me.Parent.NiveauEvaluationFr = _
"CP1 A" Or Me.Parent.NiveauEvaluationFr = "CP2 A" And Me.Note > 10 Then
    MsgBox "La note doit être entre 0 et 10 !"
    Me!Note.Undo
    Cancel = True
    Exit Sub
End If
If Me.Parent.NiveauEvaluationFr = "CE2 A" Or Me.Parent.NiveauEvaluationFr = _
"CM1 A" Or Me.Parent.NiveauEvaluationFr = "CM1 A" Or Me.Parent.NiveauEvaluationFr = _
"CM2 A" And Me.Note > 50 Then
    MsgBox "La note doit être entre 0 et 50 !"
    Me!Note.Undo
    Cancel = True
    Exit Sub
End If
End Sub

Cordialement.