Discussion :

[morobaboumar]

Bonjour membres du forum !
Voici un autre état sur les notes scolaires de ma BD.
Sur l'état "LISTE_DES_COMPOSANTS_NOTES_EVALUATIONS_FR" , j'ai placé des zones de texte "de m1 à m17" à la partie entête de page
et des zones de texte "de n1 à n17" à la partie détail.

Voici les codes qui chargent les noms de matières dans les zones de texte "de m1 à m17" de la partie entête de page:

- Variables déclarées:

Code :

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

1
2
3
4
5
6
Option Compare Database
Option Explicit
 
Dim RstMatiere As Recordset  'Stocke le curseur
Dim NbM As Integer
Dim boolEstVide As Boolean

-Procédure:

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
Sub RemplirMatiere(Tableau As Variant)
On Error Resume Next
Dim i As Integer
Dim j As Integer
'Récupère le nombre d'enregistrements Lus
NbM = UBound(Tableau, 2) + 1

'affecte les valeurs aux zones de texte et labels
For i = 0 To NbM - 1
    Controls("m" & i + 1).Visible = True
    Controls("n" & i + 1).Visible = True
    Controls("m" & i + 1) = LibMatiereFr(CLng(Tableau(2, i)))
   '
 '__________________________________________________
    Controls("n" & i + 1) = LibNotesFr(Me.IdEcole, _
    Me.Txt_IdCompoFr, _
    Me.COMPOSITION, Me.AnneeScol, _
    Me.MleEleve, CLng(Tableau(2, i)))
   '___________________________________________________

Next i
  
'Masque les autres zones de textes et labels
    'NbM = NbM + 1
For j = NbM + 1 To 22
    Controls("m" & j).Visible = False
    Controls("n" & j).Visible = False
    '***Controls("idM" & j).Visible = False
    Controls("m" & j) = ""
Next j
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
 
Private Sub RaffraichirMatieres()
On Error Resume Next
Dim db As Database
Dim strSql As String
Set db = CurrentDb
'NumCompoMCFr
strSql = "select * from MATIERE_CLASSE_FR_Req where annee_scol = '" & Me.AnneeScol & "' and classe_francais = '" & Me.NiveauCompositionFrancais & "' and NumCompoMCFr = " & Me.TxtCompositionFR & "and Identif_EtablisFR = " & Me.IdEcole & "  order by CategorieMatiereFr asc;"
 
Set RstMatiere = db.OpenRecordset(strSql)
 
If RstMatiere.EOF Then
    boolEstVide = True
Else
    boolEstVide = False
    NbMat = RstMatiere.RecordCount
End If
End Sub

Ensuite, j'ai écrit une fonction qui devrait ramener les notes des élèves selon leurs cases respectives:

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
 
'Ramener les notes de compositions françaises           '
Public Function LibNotesFr(idecol As Long, idCompoFX As Long, CompoFran As Long, anscolN As String, mlelev As Long, idMatier As Integer) As Double
On Error GoTo OUMAR
If IsNull(idecol) Then Exit Function
If IsNull(idCompoFX) Then Exit Function
If IsNull(CompoFran) Then Exit Function
If IsNull(anscolN) Then Exit Function
If IsNull(mlelev) Then Exit Function
If IsNull(idMatier) Then Exit Function
 
Dim bd As Database
Dim R As Recordset
Dim sql As String
 
Set bd = CurrentDb
sql = "select * from Req_INFOS_COMPOSITION_FRANCAIS_NOTES_CLASSES_FRANCAIS where ID_Etab = " & idecol & _
" and idCompoF = " & idCompoFX & _
" and CompoFRANCAIS = " & CompoFran & _
" and anscol ='" & anscolN & " 'and mle_Eleve = " & mlelev & " and matiereFr= " & idMatier & ";"
Set R = bd.OpenRecordset(sql)
With R
    If Not .EOF Then
    LibNotesFr = .Fields("NoteFr")
    Else
    LibNotesFr = 0
    End If
End With
Exit Function
OUMAR:
    MsgBox "Erreur n° " & err.Number & vbCrLf & err.Description, vbCritical + vbOKOnly, "Une erreur est survenue"
 
End Function

que j'ai introduite dans la procédure "RemplirMatiere" après la ligne 13.
Voici comment:

Code :

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

1
2
3
4
5
6
7
  '
 '__________________________________________________
    Controls("n" & i + 1) = LibNotesFr(Me.IdEcole, _
    Me.Txt_IdCompoFr, _
    Me.COMPOSITION, Me.AnneeScol, _
    Me.MleEleve, CLng(Tableau(2, i)))
   '___________________________________________________

Elle permet d'afficher les notes du 1er élève affiché sur l'état "LISTE_DES_COMPOSANTS_NOTES_EVALUATIONS_FR", ces mêmes notes se répètent chez tous les élèves.
Aidez moi à y remédier.

Voici la source de l'état:


Cordialement.

[marot_r]

Bonjour.

Si c'est un état alors je pense qu'il faut que tu appelles tes procédures d'assignation (ou ta procédure, je n'ai pas bien compris) dans les événements Sur Formatage et Sur Impression de la section détail.

Note que je trouve ta méthode complexe et que personnellement j'aurai fait un requête croisée dynamique pour avoir les notes par matière et élèves et je m'en serait servi comme source du rapport.
Quitte à assigner la source des champs dynamiquement au moment de l'ouverture du rapport. Ça dépend un peu si ta liste de matières est très variable ou pas.
Ça ferait sans doute moins de travail.

A+

[morobaboumar]

Bonjour.
Note que je trouve ta méthode complexe et que personnellement j'aurai fait une requête croisée dynamique pour avoir les notes par matière et élèves et je m'en serait servi comme source du rapport.
Quitte à assigner la source des champs dynamiquement au moment de l'ouverture du rapport. Ça dépend un peu si ta liste de matières est très variable ou pas.
Ça ferait sans doute moins de travail.
A+

Bonsoir marot_r !
Oui effectivement cette requête croisée dynamique existe "RESULTATS_LISTE_NOTES_FR" dans mon application.
Mais voici le massage d'erreur qu'elle provoque quand je le place dans ma fonction:

Code :

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

LibNotesFr

(voir capture d'écran.

Par contre avec la requête simple "Req_INFOS_COMPOSITION_FRANCAIS_NOTES_CLASSES_FRANCAIS " la fonction

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
 
'Ramener les notes de compositions françaises           '
Public Function LibNotesFr(idecol As Long, idCompoFX As Long, CompoFran As Long, anscolN As String, mlelev As Long, idMatier As Integer) As Double
On Error GoTo OUMAR
If IsNull(idecol) Then Exit Function
If IsNull(idCompoFX) Then Exit Function
If IsNull(CompoFran) Then Exit Function
If IsNull(anscolN) Then Exit Function
If IsNull(mlelev) Then Exit Function
If IsNull(idMatier) Then Exit Function
 
Dim bd As Database
Dim R As Recordset
Dim sql As String
 
Set bd = CurrentDb
sql = "select * from Req_INFOS_COMPOSITION_FRANCAIS_NOTES_CLASSES_FRANCAIS where ID_Etab = " & idecol & _
" and idCompoF = " & idCompoFX & _
" and CompoFRANCAIS = " & CompoFran & _
" and anscol ='" & anscolN & " 'and mle_Eleve = " & mlelev & " and matiereFr= " & idMatier & ";"
Set R = bd.OpenRecordset(sql)
With R
    If Not .EOF Then
    LibNotesFr = .Fields("NoteFr")
    Else
    LibNotesFr = 0
    End If
End With
Exit Function
OUMAR:
    MsgBox "Erreur n° " & err.Number & vbCrLf & err.Description, vbCritical + vbOKOnly, "Une erreur est survenue"
 
End Function

marche mais avec les erreurs que j'ai notées dans mon post#1:

Elle permet d'afficher les notes du 1er élève affiché sur l'état "LISTE_DES_COMPOSANTS_NOTES_EVALUATIONS_FR", malheureusement les mêmes notes de ce premier élève se répètent chez tous les autres élèves.
Aidez moi à y remédier.

Malheureusement les mêmes notes de ce premier élève se répètent chez tous les autres élèves.

Ça dépend un peu si ta liste de matières est très variable ou pas.

Bien sûre, la liste de matières est très variable.









Aidez moi à y remédier.

Pièce jointe de mon application;

Cordialement.

[morobaboumar]

Bonsoir membres du forum !

J'ai trouvé à mon avis la solution en plaçant la procédure sur l’événement au formatage du détail de l'état "LISTE_DES_COMPOSANTS_NOTES_EVALUATIONS_FR":

Code :

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

1
2
3
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
majLesCtrl
End Sub

Reste à vérifier.

Cordialement.

[morobaboumar]

Bonsoir membres du forum !
J'ai trouvé à mon avis la solution en plaçant la procédure sur l’événement au formatage du détail de l'état "LISTE_DES_COMPOSANTS_NOTES_EVALUATIONS_FR":

Code :

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

1
2
3
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
majLesCtrl
End Sub

Reste à vérifier.

Après plusieurs essais, j'ai créé une requête Sql à l'intérieur de l'état "LISTE_DES_COMPOSANTS_NOTES_EVALUATIONS_FR":

Code SQL :

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

1
2
3
SELECT Tbl_EVALUATION_NIVEAU_SCOLAIRE.NumEnregistreComposant, Tbl_EVALUATION_NIVEAU_SCOLAIRE.IdEcole, Tbl_EVALUATION_NIVEAU_SCOLAIRE.AnneeScol, Tbl_EVALUATION_NIVEAU_SCOLAIRE.NumInsCreleve, Tbl_EVALUATION_NIVEAU_SCOLAIRE.MleEleve, Tbl_EVALUATION_NIVEAU_SCOLAIRE.Nom_Prenoms_EleveComposant, Tbl_EVALUATION_NIVEAU_SCOLAIRE.COMPOSITION, Tbl_EVALUATION_NIVEAU_SCOLAIRE.NiveauCompositionFrancais, INFOS_COMPOSITION_FRANCAIS.Total_Notes, INFOS_COMPOSITION_FRANCAIS.MoyenneCompo, INFOS_COMPOSITION_FRANCAIS.Classement, INFOS_COMPOSITION_FRANCAIS.Appreciation
FROM INFOS_COMPOSITION_FRANCAIS INNER JOIN Tbl_EVALUATION_NIVEAU_SCOLAIRE ON (INFOS_COMPOSITION_FRANCAIS.ID_Etab = Tbl_EVALUATION_NIVEAU_SCOLAIRE.IdEcole) AND (INFOS_COMPOSITION_FRANCAIS.anscol = Tbl_EVALUATION_NIVEAU_SCOLAIRE.AnneeScol) AND (INFOS_COMPOSITION_FRANCAIS.mle_Eleve = Tbl_EVALUATION_NIVEAU_SCOLAIRE.MleEleve)
ORDER BY INFOS_COMPOSITION_FRANCAIS.Total_Notes DESC;

ce qui me donne ce résultat:





Mon problème actuel est que je souhaite trouver la méthode dans le 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
 
'Ramener les notes de compositions françaises           '
Public Function LibNotesFr(idecol As Long, idCompoFX As Long, CompoFran As Long, anscolN As String, mlelev As Long, idMatier As Integer) As Double
On Error GoTo OUMAR
If IsNull(idecol) Then Exit Function
If IsNull(idCompoFX) Then Exit Function
If IsNull(CompoFran) Then Exit Function
If IsNull(anscolN) Then Exit Function
If IsNull(mlelev) Then Exit Function
If IsNull(idMatier) Then Exit Function
 
Dim bd As Database
Dim R As Recordset
Dim sql As String
 
Set bd = CurrentDb
sql = "select * from Req_INFOS_COMPOSITION_FRANCAIS_NOTES_CLASSES_FRANCAIS where ID_Etab = " & idecol & _
" and idCompoF = " & idCompoFX & _
" and CompoFRANCAIS = " & CompoFran & _
" and anscol ='" & anscolN & " 'and mle_Eleve = " & mlelev & " and matiereFr= " & idMatier & ";"
Set R = bd.OpenRecordset(sql)
With R
    If Not .EOF Then
    LibNotesFr = .Fields("NoteFr")
    Else
    LibNotesFr = 0
    End If
End With
Exit Function
OUMAR:
    MsgBox "Erreur n° " & err.Number & vbCrLf & err.Description, vbCritical + vbOKOnly, "Une erreur est survenue"
 
End Function

qui permet d'afficher les notes des matières au format 00,00.

Cordialement.

[tee_grandbois]

bonjour,

qui permet d'afficher les notes des matières au format 00,00.

Sauf si vous avez changé la structure de l'état, essayez en changeant les propriétés des contrôles n1 à n17 (ou dans les contrôles de l'état concerné):
Format: Standard
Décimales: 2

[morobaboumar]

En changeant les propriétés des contrôles n1 à n17 (ou dans les contrôles de l'état concerné):
Format: Standard
Décimales: 2

Bonsoir tee_grandbois,
ça marche !



Bien que cette partie soit résolue, je suis avec vous car il y a deux autres parties en rapport avec cette discussion ci.

Merci infiniment à vous et toute la famille developpez.net.
Cordialement.