Discussion :

[morobaboumar]

Bonjour membres du forum,
Très heureux de vous retrouver.
La fonction suivante

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
' ++++ Fonct. pour Générer le RANG d'un ELEVE pour une COMPOSITION dans une Classe Arabe
Public Sub RangClasseCompoArabe(AnneeScol As String, claSar As String, Nat As Long)
Dim db As Database
Dim rst As Recordset
Dim sql As String
Dim i As Integer
Dim j As Integer
Dim K As Integer
Dim Moy As Single
Set db = CurrentDb
sql = "select * from INFOS_COMPOSITION_ARABE where anscol = '" & AnneeScol & "' and ClasseArabe = '" & claSar & "' and CompoArabe = " & Nat & " order by MoyenneCompo desc ;"
    Set rst = db.OpenRecordset(sql)
    If Not rst.EOF Then
    rst.MoveLast
    rst.MoveFirst
    'bolEx = True
    i = 1
    K = 1
        Do While Not rst.EOF
            rst.Edit
 
            If rst.Fields("Statut") = "Classé" Then 'L'élève est classé
 
                If i = 1 Then
                    If GenreEleve(rst.Fields("mle_Eleve")) = "Masculin" Then
                        rst.Fields("Classement") = i & "er"
                    Else
                        rst.Fields("Classement") = i & "ère"
                    End If
 
                Else
 
                    If Moy = rst.Fields("MoyenneCompo") Then
                        If K = 1 Then   'Traitement du 1er Ex-Equo
                            j = i - 1
                            rst.Fields("Classement") = j & "è ex."
                            K = K + 1
                        Else
                            rst.Fields("Classement") = j & "è ex."
                        End If
                    Else
                        K = 1
                        rst.Fields("Classement") = i & "è"
                    End If
                End If
 
                rst.Update
                Moy = rst.Fields("MoyenneCompo")
                i = i + 1
                rst.MoveNext
            Else
                'L'élève n'est pas classé
                rst.Fields("Classement") = "NC"
                rst.Update
                rst.MoveNext
            End If
            Loop
    End If
    rst.Close
    Set rst = Nothing
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
 
Public Function GenreEleve(idX As Long) As String
On Error GoTo ROUBABOU
If IsNull(idX) Then Exit Function
Dim db As Database
Dim rst As Recordset
Dim sql As String
    Set db = CurrentDb
    sql = "select * from ELEVE where mleeleve = " & idX & " ;"
    Set rst = db.OpenRecordset(sql)
    If Not rst.EOF Then
        GenreEleve = Trim(rst.Fields("genre"))
    Else
        GenreEleve = ""
    End If
Exit Function
ROUBABOU:
    MsgBox "Erreur n° " & err.Number & vbCrLf & err.Description, vbCritical + vbOKOnly, "Une erreur est survenue"
End Function

devrait ramener le générer le rang d'un élève pour une composition tel que :
a) si l’élève est du genre « masculin », ayant la plus grande moyenne des notes, son rang s’affiche comme : 1er,
b) si l’élève est du genre « féminin », ayant la plus grande moyenne des notes, son rang s’affiche comme : 1ère
c) en cas d’ex éco, les élèves du genre « masculin », ayant la plus grande moyenne des notes, leur rang s’affiche comme : 1er et 1er ex.
d) en cas d’ex éco, les élèves du genre « féminin », ayant la plus grande moyenne des notes, leur rang s’affiche comme : 1ère et 1ére ex., etc.

Mais il y a une erreur dans le fonctionnement de la 1ere fonction qui est:

- voici 2 èlèves qui sont 1er de la classe.
Au niveau du Rang: pour la fille 1ère, et le garçon au lieu de 1er ex.,
c'est 1è ex. qui est affiché.

Voir la capture:



Comment résoudre ce problème.
Cordialement

[morobaboumar]

Bonsoir membre du forum,
J'ai essayé d'améliorer 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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
 
 
' ++++ Fonct. pour Générer le RANG d'un ELEVE pour une COMPOSITION dans une Classe Arabe
Public Sub RangClasseCompoArabe(AnneeScol As String, claSar As String, Nat As Long)
Dim db As Database
Dim rst As Recordset
Dim sql As String
Dim i As Integer
Dim j As Integer
Dim K As Integer
Dim Moy As Single
Set db = CurrentDb
sql = "select * from INFOS_COMPOSITION_ARABE where anscol = '" & AnneeScol & "' and ClasseArabe = '" & claSar & "' and CompoArabe = " & Nat & " order by MoyenneCompo desc ;"
    Set rst = db.OpenRecordset(sql)
    If Not rst.EOF Then
    rst.MoveLast
    rst.MoveFirst
    'bolEx = True
    i = 1
    K = 1
        Do While Not rst.EOF
            rst.Edit
 
            If rst.Fields("Statut") = "Classé" Then 'L'élève est classé
 
                If i = 1 Then
                    If GenreEleve(rst.Fields("mle_Eleve")) = "Masculin" Then
                        rst.Fields("Classement") = i & "er"
 
                     ElseIf GenreEleve(rst.Fields("mle_Eleve")) = "Féminin" Then
                        rst.Fields("Classement") = i & "ère"
 
                    End If
 
                Else
 
                    'If Moy = rst.Fields("MoyenneCompo") Then
                        'If K = 1 Then   'Traitement du 1er Ex-Equo
                            'j = i - 1
                            'rst.Fields("Classement") = j & "è ex."
                           ' K = K + 1
                        'Else
                            'rst.Fields("Classement") = j & "è ex."
                        'End If
            If Moy = rst.Fields("MoyenneCompo") _
And GenreEleve(rst.Fields("mle_Eleve")) = "Masculin" Then
                        If K = 1 Then   'Traitement du 1er Ex-Equo
                            j = i - 1
                            rst.Fields("Classement") = j & "er ex."
                            K = K + 1
                ElseIf GenreEleve(rst.Fields("mle_Eleve")) = "Féminin" Then
             If K = 1 Then   'Traitement de la 1ère Ex-Equo
                            j = i - 1
                            rst.Fields("Classement") = j & "è ex."
                            K = K + 1
                End If
                        Else
                            rst.Fields("Classement") = j & "è ex."
                        End If
 
                    Else
                        K = 1
                        rst.Fields("Classement") = i & "è"
                    End If
                End If
 
                rst.Update
                Moy = rst.Fields("MoyenneCompo")
                i = i + 1
                rst.MoveNext
            Else
                'L'élève n'est pas classé
                rst.Fields("Classement") = "NC"
                rst.Update
                rst.MoveNext
            End If
            Loop
    End If
    rst.Close
    Set rst = Nothing
End Sub

Voici le résultat obtenu:



L'erreur que je constate est que les quatre élèves ont tous la même moyenne mais le rang est différent.
Le code devrait ramener quatre ex écots dont deux filles 1ère ex. et garçons 1er ex.

Voila la structure de la table:




Pièce jointe de BD

Cordialement.

[morobaboumar]

Bonsoir membres du forum,
Voici un autre essai contenant des erreurs le champ Rang des des élèves composants:

Je sollicite encore une fois votre aide précieuse.
Cordialement.

[morobaboumar]

Bonsoir membres du forum,
J'ai adapté un code SQL trouvé à partir d'une discussion du forum devloppez.net:

Code :

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

1
2
3
SELECT INFOS_COMPOSITION_ARABE.idCompoA, INFOS_COMPOSITION_ARABE.anscol, INFOS_COMPOSITION_ARABE.mle_Eleve, INFOS_COMPOSITION_ARABE.ClasseArabe, INFOS_COMPOSITION_ARABE.CompoArabe, INFOS_COMPOSITION_ARABE.MoyenneCompo, INFOS_COMPOSITION_ARABE.ID_Etab, DCount("*","[INFOS_COMPOSITION_ARABE]","[MoyenneCompo] > " & [MoyenneCompo])+1 AS Rang, IIf(Val(DCount("*","[INFOS_COMPOSITION_ARABE]","[MoyenneCompo] > " & [MoyenneCompo])+1)=1,Trim(Val(DCount("*","[INFOS_COMPOSITION_ARABE]","[MoyenneCompo] > " & [MoyenneCompo])+1))+"er",Trim(Val(DCount("*","[INFOS_COMPOSITION_ARABE]","[MoyenneCompo] > " & [MoyenneCompo])+1))+"ème") AS RangTexte, DCount("*","[INFOS_COMPOSITION_ARABE]","[MoyenneCompo] > " & [MoyenneCompo])+1 AS Expr1
FROM INFOS_COMPOSITION_ARABE
ORDER BY DCount("*","[INFOS_COMPOSITION_ARABE]","[MoyenneCompo] > " & [MoyenneCompo])+1;

mais voici l'erreur qui survient au moment de son exécution:




Ensuite,
1- comment corriger les problèmes signaler par les messages d'erreurs,
2- comment afficher le classement des notes, moyennes et rangs selon l'idEcole, la classe, l'année scolaire et la composition ?

Code :

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

Rang: CpteDom("*";"[INFOS_COMPOSITION_ARABE]";"[MoyenneCompo] > " & [MoyenneCompo])+1

Code :

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

RangTexte: VraiFaux(Val(CpteDom("*";"[INFOS_COMPOSITION_ARABE]";"[MoyenneCompo] > " & [MoyenneCompo])+1)=1;SupprEspace(Val(CpteDom("*";"[INFOS_COMPOSITION_ARABE]";"[MoyenneCompo] > " & [MoyenneCompo])+1))+"er";SupprEspace(Val(CpteDom("*";"[INFOS_COMPOSITION_ARABE]";"[MoyenneCompo] > " & [MoyenneCompo])+1))+"ème")

Code :

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

Execo: CpteDom("*";"[INFOS_COMPOSITION_ARABE]";"[MoyenneCompo]*100 = " & [MoyenneCompo]*100)

Code :

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

txtaequo: VraiFaux([Execo]>1;"Ex";"")

Code :

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

RangExeco: [RangTexte] & " " & [txtaequo]

Cordialement.

[tee_grandbois]

bonjour,
pour l'erreur de syntaxe (virgule) dans l'expression ... il faut multiplier le champ MoyenneCompo par 100 pour tous les calculs ou comparaisons utilisant ce champ afin de supprimer les résultats contenant une virgule car c'est un caractère réservé à SQL.

[morobaboumar]

bonjour,
pour l'erreur de syntaxe (virgule) dans l'expression ... il faut multiplier le champ MoyenneCompo par 100 pour tous les calculs ou comparaisons utilisant ce champ afin de supprimer les résultats contenant une virgule car c'est un caractère réservé à SQL.

Bonsoir tee_grandbois,
Après avoir appliqué votre conseil, les mêmes erreurs se répétaient car au niveau de la propriété générale du
champ "MoyenneCompo" de type numérique était (taille: réel simple, Format; 00 et Décimales: 2).

Ensuite, j'ai remis la propriété générale du champ "MoyenneCompo" à la taille: entier long et les erreurs ne se
sont plus reproduites.

Puis j'ai remis la propriété générale du champ "MoyenneCompo" à la
taille: réel simple, Format; 00 et Décimales: 2 comme par hasard çà marche.

Voici le code SQL de la requête INFOS_RANGS_ARABE:

Code :

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

1
2
3
SELECT INFOS_COMPOSITION_ARABE.idCompoA, INFOS_COMPOSITION_ARABE.anscol, INFOS_COMPOSITION_ARABE.mle_Eleve, INFOS_COMPOSITION_ARABE.ClasseArabe, INFOS_COMPOSITION_ARABE.CompoArabe, INFOS_COMPOSITION_ARABE.MoyenneCompo, INFOS_COMPOSITION_ARABE.ID_Etab, DCount("*","[INFOS_COMPOSITION_ARABE]","[MoyenneCompo]*100 > " & [MoyenneCompo]*100)+1 AS Rang, IIf(Val(DCount("*","[INFOS_COMPOSITION_ARABE]","[MoyenneCompo]*100 > " & [MoyenneCompo]*100)+1)=1,Trim(Val(DCount("*","[INFOS_COMPOSITION_ARABE]","[MoyenneCompo]*100 > " & [MoyenneCompo]*100)+1))+"er",Trim(Val(DCount("*","[INFOS_COMPOSITION_ARABE]","[MoyenneCompo]*100 > " & [MoyenneCompo]*100)+1))+"ème") AS RangTexte, DCount("*","[INFOS_COMPOSITION_ARABE]","[MoyenneCompo]*100 = " & [MoyenneCompo]*100) AS Execo, IIf([Execo]>1,"Ex","") AS txtaequo, [RangTexte] & " " & [txtaequo] AS RangExeco
FROM INFOS_COMPOSITION_ARABE
ORDER BY DCount("*","[INFOS_COMPOSITION_ARABE]","[MoyenneCompo]*100 > " & [MoyenneCompo]*100)+1;

Voici le résultat:



Maintenant, je souhaite afficher ce résultat selon l'idEcole, la classe, l'année scolaire et la composition.
Comment procéder ?
Cordialement.

[tee_grandbois]

Après avoir appliqué votre conseil, les mêmes erreurs se répétaient car au niveau de la propriété générale du
champ "MoyenneCompo" de type numérique était (taille: réel simple, Format; 00 et Décimales: 2).

Ensuite, j'ai remis la propriété générale du champ "MoyenneCompo" à la taille: entier long et les erreurs ne se
sont plus reproduites.

Puis j'ai remis la propriété générale du champ "MoyenneCompo" à la
taille: réel simple, Format; 00 et Décimales: 2 comme par hasard çà marche.

il fallait juste faire les modifications dans la requête, pas dans la table ...

il faut multiplier le champ MoyenneCompo par 100 pour tous les calculs ou comparaisons

un calcul ce n'est pas dans une table mais une requête

[tee_grandbois]

Maintenant, je souhaite afficher ce résultat selon l'idEcole, la classe, l'année scolaire et la composition.
Comment procéder ?

à priori, il faudrait ajouter ces conditions dans toutes les parties critères des domaines modifiés précédemment (pour le problème de virgule), pas une mince affaire ...
à essayer, par exemple pour Rang:

Code :

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

 DCount("*","[INFOS_COMPOSITION_ARABE]","[MoyenneCompo]*100 > " & [MoyenneCompo]*100 & " And idEcole=" & [IDEcole] & " and ClasseArabe=" & [ClasseArabe] & " and anscol=" & [anscol] & " and CompoArabe=" & [CompoArabe])+1 AS Rang

[morobaboumar]

à priori, il faudrait ajouter ces conditions dans toutes les parties critères des domaines modifiés précédemment (pour le problème de virgule), pas une mince affaire ...
à essayer, par exemple pour Rang:

Code :

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

 DCount("*","[INFOS_COMPOSITION_ARABE]","[MoyenneCompo]*100 > " & [MoyenneCompo]*100 & " And idEcole=" & [IDEcole] & " and ClasseArabe=" & [ClasseArabe] & " and anscol=" & [anscol] & " and CompoArabe=" & [CompoArabe])+1 AS Rang

Bonsoir tee_gradbois,
Voici comment j'ai opéré:

Code :

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

1
2
3
SELECT INFOS_COMPOSITION_ARABE.idCompoA, INFOS_COMPOSITION_ARABE.anscol, INFOS_COMPOSITION_ARABE.mle_Eleve, INFOS_COMPOSITION_ARABE.ClasseArabe, INFOS_COMPOSITION_ARABE.CompoArabe, INFOS_COMPOSITION_ARABE.MoyenneCompo, INFOS_COMPOSITION_ARABE.ID_Etab, DCount("*","[INFOS_COMPOSITION_ARABE]","[MoyenneCompo]*100 > " & [MoyenneCompo]*100 & " And ID_Etab=" & [ID_Etab] & " and ClasseArabe=" & [ClasseArabe] & " and anscol=" & [anscol] & " and CompoArabe=" & [CompoArabe])+1 AS Rang, IIf(Val(DCount("*","[INFOS_COMPOSITION_ARABE] & " And [ID_Etab]=" & [ID_Etab] & " And [ClasseArabe]=" & [ClasseArabe] & " And [anscol]=" & [anscol] & " And [CompoArabe]=" & [CompoArabe]","[MoyenneCompo]*100 > " & [MoyenneCompo]*100)+1)=1,Trim(Val(DCount("*","[INFOS_COMPOSITION_ARABE] & " And [ID_Etab]=" & [ID_Etab] & " And [ClasseArabe]=" & [ClasseArabe] & " And [anscol]=" & [anscol] & " And [CompoArabe]=" & [CompoArabe]","[MoyenneCompo]*100 > " & [MoyenneCompo]*100)+1))+"er",Trim(Val(DCount("*","[INFOS_COMPOSITION_ARABE] & " And [ID_Etab]=" & [ID_Etab] & " And [ClasseArabe]=" & [ClasseArabe] & " And [anscol]=" & [anscol] & " And [CompoArabe]=" & [CompoArabe]","[MoyenneCompo]*100 > " & [MoyenneCompo]*100)+1))+"ème") AS RangTexte, DCount("*","[INFOS_COMPOSITION_ARABE] & " And [ID_Etab]=" & [ID_Etab] & " And [ClasseArabe]=" & [ClasseArabe] & " And [anscol]=" & [anscol] & " And [CompoArabe]=" & [CompoArabe]","[MoyenneCompo]*100 = " & [MoyenneCompo]*100) AS Execo, IIf([Execo]>1,"Ex","") AS txtaequo, [RangTexte] & " " & [txtaequo] AS RangExeco
FROM INFOS_COMPOSITION_ARABE
ORDER BY DCount("*","[INFOS_COMPOSITION_ARABE] & " And [ID_Etab]=" & [ID_Etab] & " And [ClasseArabe]=" & [ClasseArabe] & " And [anscol]=" & [anscol] & " And [CompoArabe]=" & [CompoArabe]","[MoyenneCompo]*100 > " & [MoyenneCompo]*100)+1;

Message d'erreur;



Cordialement.

[tee_grandbois]

erreur de syntaxe, le deuxième paramètre, c'est le domaine donc la table, regardez l'aide Access concernant la commande, relisez-vous et corrigez :
ORDER BY DCount("*","[INFOS_COMPOSITION_ARABE] & " And [ID_Etab]=" & [ID_Etab] & " And [ClasseArabe]=" & [ClasseArabe] & " And [anscol]=" & [anscol] & " And [CompoArabe]=" & [CompoArabe]","[MoyenneCompo]*100 > " & [MoyenneCompo]*100)+1;

[morobaboumar]

il fallait juste faire les modifications dans la requête, pas dans la table ... un calcul ce n'est pas dans une table mais une requête

Effectivement, j'ai effectué les calculs dans une requête "INFOS_RANGS_ARABE" qui a pour source la table "INFOS_COMPOSITION_ARABE".

Je vous poste la pièce jointe.
Cordialement.

[tee_grandbois]

bonjour,

Effectivement, je fait les calculs dans une requête "INFOS_RANGS_ARABE" qui a pour source la table "INFOS_COMPOSITION_ARABE".

Je vous poste la pièce jointe.

et quelle est la question ?

[morobaboumar]

bonjour,
et quelle est la question ?

Bonjour tee_grandbois,
Tout simplement je ne maîtrise pas la fonction DCount. Sans une aide de votre part, ce sera difficile pour moi.
Voici la salade que j'ai pu faire suivie de messages d'erreurs:

Code :

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

1
2
3
SELECT INFOS_COMPOSITION_ARABE.idCompoA, INFOS_COMPOSITION_ARABE.anscol, INFOS_COMPOSITION_ARABE.mle_Eleve, INFOS_COMPOSITION_ARABE.ClasseArabe, INFOS_COMPOSITION_ARABE.CompoArabe, INFOS_COMPOSITION_ARABE.MoyenneCompo, INFOS_COMPOSITION_ARABE.ID_Etab, DCount("*","[INFOS_COMPOSITION_ARABE]","[MoyenneCompo]*100 > " & [MoyenneCompo]*100 & " And ID_Etab=" & [ID_Etab] & " and ClasseArabe=" & [ClasseArabe] & " and anscol=" & [anscol] & " and CompoArabe=" & [CompoArabe])+1 AS Rang, IIf(Val(DCount("*","[INFOS_COMPOSITION_ARABE]","[MoyenneCompo]*100 > " & [MoyenneCompo]*100& " And ID_Etab=" & [ID_Etab] & " and ClasseArabe=" & [ClasseArabe] & " and anscol=" & [anscol] & " and CompoArabe=" & [CompoArabe])+1)=1,Trim(Val(DCount("*","[INFOS_COMPOSITION_ARABE]","[MoyenneCompo]*100 > " & [MoyenneCompo]*100& " And ID_Etab=" & [ID_Etab] & " and ClasseArabe=" & [ClasseArabe] & " and anscol=" & [anscol] & " and CompoArabe=" & [CompoArabe])+1))+"er",Trim(Val(DCount("*","[INFOS_COMPOSITION_ARABE]","[MoyenneCompo]*100 > " & [MoyenneCompo]*100 & " And ID_Etab=" & [ID_Etab] & " and ClasseArabe=" & [ClasseArabe] & " and anscol=" & [anscol] & " and CompoArabe=" & [CompoArabe])+1))+"ème") AS RangTexte, DCount("*","[INFOS_COMPOSITION_ARABE]","[MoyenneCompo]*100 = " & [MoyenneCompo]*100& " And ID_Etab=" & [ID_Etab] & " and ClasseArabe=" & [ClasseArabe] & " and anscol=" & [anscol] & " and CompoArabe=" & [CompoArabe]) AS Execo, IIf([Execo]>1,"Ex","") AS txtaequo, [RangTexte] & " " & [txtaequo] AS RangExeco
FROM INFOS_COMPOSITION_ARABE
ORDER BY DCount("*","[INFOS_COMPOSITION_ARABE]","[MoyenneCompo]*100 > " & [MoyenneCompo]*100 & " And ID_Etab=" & [ID_Etab] & " and ClasseArabe=" & [ClasseArabe] & " and anscol=" & [anscol] & " and CompoArabe=" & [CompoArabe])+1;

Cordialement.

[morobaboumar]

à priori, il faudrait ajouter ces conditions dans toutes les parties critères des domaines modifiés précédemment (pour le problème de virgule), pas une mince affaire ...
à essayer, par exemple pour Rang:

Code :

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

 DCount("*","[INFOS_COMPOSITION_ARABE]","[MoyenneCompo]*100 > " & [MoyenneCompo]*100 & " And idEcole=" & [IDEcole] & " and ClasseArabe=" & [ClasseArabe] & " and anscol=" & [anscol] & " and CompoArabe=" & [CompoArabe])+1 AS Rang

Bonsoir tee_grandbois,
Votre code génère des erreurs:

Code :

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

1
2
SELECT INFOS_COMPOSITION_ARABE.anscol, INFOS_COMPOSITION_ARABE.mle_Eleve, INFOS_COMPOSITION_ARABE.ID_Etab, INFOS_COMPOSITION_ARABE.ClasseArabe, INFOS_COMPOSITION_ARABE.Total_Notes, INFOS_COMPOSITION_ARABE.MoyenneCompo, DCount("*","[INFOS_COMPOSITION_ARABE]","[MoyenneCompo]*100 & [MoyenneCompo]*100 > " & [MoyenneCompo]*100 & " And ID_Etab=" & [ID_Etab] & " and ClasseArabe=" & [ClasseArabe] & " and anscol=" & [anscol] & " and CompoArabe=" & [CompoArabe])+1 AS Rang, IIf(Val(DCount("*","[INFOS_COMPOSITION_ARABE]","[MoyenneCompo]*100 > " & [MoyenneCompo]*100)+1)=1,Trim(Val(DCount("*","[INFOS_COMPOSITION_ARABE]","[MoyenneCompo]*10 > " & [MoyenneCompo]*100)+1))+"er",Trim(Val(DCount("*","[INFOS_COMPOSITION_ARABE]","[MoyenneCompo]*100 > " & [MoyenneCompo]*100)+1))+"ème") AS RangTexte, DCount("*","[INFOS_COMPOSITION_ARABE]","[MoyenneCompo]*100 = " & [MoyenneCompo]*100) AS Execo, IIf([Execo]>1,"Ex","") AS txtaequo, [RangTexte] & " " & [txtaequo] AS RangExeco
FROM INFOS_COMPOSITION_ARABE;

Cordialement.

[tee_grandbois]

bonsoir,
ce n'est pas mon code c'est le votre que j'essaie de corriger . Visiblement la classe est de type texte, il faut donc mettre les délimiteurs de texte (apostrophes) autour de la variable:

Code :

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

& " and ClasseArabe='" & [ClasseArabe] & "' and anscol="

ce serait bien de retenir les quelques fondamentaux que l'on vous a déjà appris

[morobaboumar]

bonsoir,
ce n'est pas mon code c'est le votre que j'essaie de corriger . Visiblement la classe est de type texte, il faut donc mettre les délimiteurs de texte (apostrophes) autour de la variable:

Code :

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

& " and ClasseArabe='" & [ClasseArabe] & "' and anscol="

ce serait bien de retenir les quelques fondamentaux que l'on vous a déjà appris

Bonjour tee_grandbois,
Messager compris.
J'ai fait la correction mais il y a toujours des erreurs dans les rangs des élèves.
Ensuite les nombres décimaux provoquent des erreurs.

Code :

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

1
2
SELECT INFOS_COMPOSITION_ARABE.anscol, INFOS_COMPOSITION_ARABE.mle_Eleve, NomPrenomEleveFrancais([INFOS_COMPOSITION_ARABE]![mle_Eleve]) AS NomEleve, INFOS_COMPOSITION_ARABE.ClasseArabe, INFOS_COMPOSITION_ARABE.CompoArabe, INFOS_COMPOSITION_ARABE.ID_Etab, INFOS_COMPOSITION_ARABE.Total_Notes, INFOS_COMPOSITION_ARABE.MoyenneCompo, DCount("*","[INFOS_COMPOSITION_ARABE]","[MoyenneCompo]*100 & [MoyenneCompo]*100 > " & [MoyenneCompo]*100 & " And anscol =" & [anscol] & " and ClasseArabe='" & [ClasseArabe] & "' and CompoArabe =" & [CompoArabe] & " and ID_Etab=" & [ID_Etab])+1 AS Rang, IIf(Val(DCount("*","[INFOS_COMPOSITION_ARABE]","[MoyenneCompo]*100 > " & [MoyenneCompo]*100 & " And anscol =" & [anscol] & " and ClasseArabe='" & [ClasseArabe] & "' and CompoArabe =" & [CompoArabe] & " and ID_Etab=" & [ID_Etab])+1)=1,Trim(Val(DCount("*","[INFOS_COMPOSITION_ARABE]","[MoyenneCompo]*10 > " & [MoyenneCompo]*100)+1 & " And anscol =" & [anscol] & " and ClasseArabe='" & [ClasseArabe] & "' and CompoArabe =" & [CompoArabe] & " and ID_Etab=" & [ID_Etab]))+"er",Trim(Val(DCount("*","[INFOS_COMPOSITION_ARABE]","[MoyenneCompo]*100 > " & [MoyenneCompo]*100 & " And anscol =" & [anscol] & " and ClasseArabe='" & [ClasseArabe] & "' and CompoArabe =" & [CompoArabe] & " and ID_Etab=" & [ID_Etab])+1))+"ème") AS RangTexte, DCount("*","[INFOS_COMPOSITION_ARABE]","[MoyenneCompo]*100 = " & [MoyenneCompo]*100) AS Execo, IIf([Execo]>1,"Ex","") AS txtaequo, [RangTexte] & " " & [txtaequo] AS RangExeco
FROM INFOS_COMPOSITION_ARABE;

Encore fois votre aide est très précieuse afin de solutionner mon problème.
Cordialement.

[tee_grandbois]

bonjour,

Ensuite les nombres décimaux provoquent des erreurs.

il ne devrait plus y en avoir puisque c'est sensé être multiplié par 100, donc erreur ci-dessous à corriger:



et il faut prévoir également que lorsque DCount retourne nul, cela génère une erreur, il faut donc ajouter Nz():

Code :

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

 Nz(DCount("*","[INFOS_COMPOSITION_ARABE]","[MoyenneCompo]*100 > " & [MoyenneCompo]*100 & " And idEcole=" & [IDEcole] & " and ClasseArabe=" & [ClasseArabe] & " and anscol=" & [anscol] & " and CompoArabe=" & [CompoArabe]),0)+1 AS Rang

[morobaboumar]

et il faut prévoir également que lorsque DCount retourne nul, cela génère une erreur, il faut donc ajouter Nz():

Code :

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

 Nz(DCount("*","[INFOS_COMPOSITION_ARABE]","[MoyenneCompo]*100 > " & [MoyenneCompo]*100 & " And idEcole=" & [IDEcole] & " and ClasseArabe=" & [ClasseArabe] & " and anscol=" & [anscol] & " and CompoArabe=" & [CompoArabe]),0)+1 AS Rang

Bonsoir tee_grandbois,
Les mêmes erreurs sont toujours là malgré l'ajout du Nz() à Dcount():

Code :

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

Nz(CpteDom("*";"[INFOS_COMPOSITION_ARABE]";"[MoyenneCompo]*100 > " & [MoyenneCompo]*100 & " And ID_Etab=" & [ID_Etab] & " and ClasseArabe='" & [ClasseArabe] & "' and anscol=" & [anscol] & " and CompoArabe=" & [CompoArabe]);0)+1 as Rang

Et tous les Rangs sont à 1er pour tous les élèves.
Le champ "MoyenneCompo" Numérique Réel simple de Format 00 Décimal à 2.



J'ai une suggestion de 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
 
Public Function RamenerRangCompoEleve(Ane As String, claSar As String, idComp As Long, ideta As Long) As Double
Dim db As Database
Dim rst As Recordset
Dim sql As String
Set db = CurrentDb
sql = "select * from INFOS_COMPOSITION_ARABE where anscol = '" & Ane & _
"' and ClasseArabe ='" & claSar & _
" 'and CompoArabe =" & idComp & " 'and ID_Etab =" _
& ideta & ";"
Set rst = db.OpenRecordset(sql)
    If Not rst.EOF Then
    RamenerRangCompoEleve = Nz(CpteDom("*", "[INFOS_COMPOSITION_ARABE]", "[MoyenneCompo]*100 > " & [MoyenneCompo] * 100 & " And ID_Etab=" & [ID_Etab] & " and ClasseArabe='" & [ClasseArabe] & "' and anscol=" & [anscol] & " and CompoArabe=" & [CompoArabe]), 0) + 1
    Else
        RamenerRangCompoEleve = "0"
    End If
End Function

Qu'en dites vous ?
Je ne l'ai pas essayé.
Cordialement.

[tee_grandbois]

Je ne l'ai pas essayé.

il faudrait le faire, ce n'est pas moi qui peut ...

[morobaboumar]

il faudrait le faire, ce n'est pas moi qui peut ...

D'accord je vais patienter en espérant avoir une suite favorable à l'ensemble de cette discussion
notamment les posts#1; 2;3.
Cordialement.