Discussion :

[morobaboumar]

Bonsoir membres du forum,
Je reviens avec la seconde partie de la discussion résolue ici https://www.developpez.net/forums/d2...es-intervalle/.
En effet, j'ai essayé d'adapter le code à la saisie des notes de compositions des matières arabes

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
 
Private Sub Note_BeforeUpdate(Cancel As Integer)
If Me.Parent.ClasseArabe = "Maternelle" Or Me.Parent.ClasseArabe = _
"CP1 A" Or Me.Parent.ClasseArabe = "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.ClasseArabe = "CE2 A" Or Me.Parent.ClasseArabe = _
"CM1 A" Or Me.Parent.ClasseArabe = "CM1 A" Or Me.Parent.ClasseArabe = _
"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

mais voici l'erreur qui survient:





Dans la première partie du code, les notes sont comprises entre 0 et 10 mais ce n'est pas le cas au moment de l'enregistrement des notes.
Même en entrant 0 le code ne marche Pas.
Quelle serait la solution ?
Vous trouverez la pièce jointe ici https://www.developpez.net/forums/d2...es-intervalle/.
Cordialement.

[hyperion13]

Salut
Étonnant, je viens de faire un essai sur les 2 bdd que vous avez fourni dans l'autre forum, et chez moi cela fonctionne.
Dans le frm form NOTES CLASSES ARABES SF :

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.ClasseArabe = "MATERNELLE" Or Me.Parent.ClasseArabe = "CP1 A" Or Me.Parent.ClasseArabe = "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.ClasseArabe = "CE1 A" Or Me.Parent.ClasseArabe = "CE2 A" And Me.Parent.ClasseArabe = "CM1 A" Or Me.Parent.ClasseArabe = "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

[morobaboumar]

Salut
Étonnant, je viens de faire un essai sur les 2 bdd que vous avez fourni dans l'autre forum, et chez moi cela fonctionne.
Dans le frm form NOTES CLASSES ARABES SF :

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.ClasseArabe = "MATERNELLE" Or Me.Parent.ClasseArabe = "CP1 A" Or Me.Parent.ClasseArabe = "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.ClasseArabe = "CE1 A" Or Me.Parent.ClasseArabe = "CE2 A" And Me.Parent.ClasseArabe = "CM1 A" Or Me.Parent.ClasseArabe = "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

Bonsoir hyperion13
Effectivement cela marche du côté français mais celui de de l'arabe ne marche pas chez moi.
Quelle est mon erreur ?
Cordialement.

[hyperion13]

re
Comment voulez-vous que je sache !

...Quelle est mon erreur ?

J'ai utilisé les 2 bdd que vous avez fourni dans l'autre forum qui traitait des notes FR.
Peut-être avez-vous entre temps bricolé des trucs qui font que ça ne marche pas chez vous.
Regardez dans le module du frm.

[morobaboumar]

Bonsoir,
les codes sont bons mais c'est une touche de mon clavier qui fait des pointillés tout seul.
Comment éviter cela par code....... ;..?
....... désolé CECI .EST hors sujet.
Comment y remédier ?

[morobaboumar]

re
Comment voulez-vous que je sache !

J'ai utilisé les 2 bdd que vous avez fourni dans l'autre forum qui traitait des notes FR.
Peut-être avez-vous entre temps bricolé des trucs qui font que ça ne marche pas chez vous.
Regardez dans le module du frm.

peut on placer le code dans cette zone ?

[hyperion13]

re,
je doute que Me.Parent, soit reconnu dans la règle et de la complexité de la règle.

[morobaboumar]

re,
je doute que Me.Parent, soit reconnu dans le règle et de la complexité de la règle.

Bonjour hyperion13
Merci infiniment
Vous êtes e formidable.