Discussion :

[morobaboumar]

Salut membres du forum !
J'espère que vous allez bien.
Je souhaite bonne et parfaite sante de fer à tout le monde.
Que le Seigneur nous préserve du COVID 19.

Bien ! permettez moi de rebondir sur notre précédente discussion Post#27 du 01/05/2019:
https://www.developpez.net/forums/d1...ublons-access/
En effet, après plusieurs mois d'essai, je constate que le code suivant n'insert pas les noms des élèves redoublant la même classe
de l'année dernière 2019-2020. Exemple; les élèves suivants:
Diarra Ismaïl,
Diarrassouba Zéitoune et
Diomandé Assata
sont des redoublants de la classe du CP2. Donc, en cliquant sur la commande "Enregistrer les Elèves Composants Sélectionnés" afin d'enregistrer la liste des élèves composant de la nouvelle année 2020-2021, seuls les nouveaux élevés arrivés en CP2 sont enregistrés dans la table "Tbl_EVALUATION_NIVEAU_SCOLAIRE".
Mon objectif:
Tous devraient y être enregistrés (nouveaux élèves et anciens élèves doublant).

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
 
Private Sub BtnEnregisterElevesComposants_Click()
Dim stMsg As String
Dim Itm As Variant
Dim oDb As Database
Dim oRS As Recordset
Dim critere As String
 
With Me.ListeELEVES_ANNEE_CLASSE
    '' contrôle saisie élèves
    If .ItemsSelected.Count = 0 Then Exit Sub
    'contrôle saisie Classe
    If IsNull(Me.lstClasse_Evaluation) Then
        MsgBox "Sélectionnez une classe.", vbCritical
        Me.lstClasse_Evaluation.SetFocus
        'Me.lstClasse_Evaluation.Dropdown  **** Pour dérouler le combobox à l'aide de la méthode DROPDOWN
        SendKeys "{F4}"      '*** Pour dérouler le combobox à l'aide de l'envoi de touche clavier (F4)
        Exit Sub
    End If
 
 
    stMsg = "Voulez-vous insérer les élèves suivants:" & vbCrLf
    For Each Itm In .ItemsSelected
        stMsg = stMsg & .Column(4, Itm) & vbCrLf
    Next Itm
 
 'Confirmer l'insertion des élèves
    stMsg = stMsg & "?"
    If MsgBox(stMsg, vbQuestion + vbYesNo) = vbNo Then Exit Sub
 
    Set oDb = CurrentDb
    Set oRS = oDb.OpenRecordset("Tbl_EVALUATION_NIVEAU_SCOLAIRE", dbOpenDynaset)
 
' ajout des éléments sélectionnés
    For Each Itm In .ItemsSelected
        critere = "[Nom_Prenoms_EleveComposant]=""" & .Column(4, Itm) _
        & """ and [NumInsCreleve]=" & .Column(2, Itm) _
        & " and [MleEleve]=" & .Column(3, Itm) _
        & " and [COMPOSITION]=" & Me.ListeComposition_Evaluation _
        & " and [NiveauCompositionFrancais]='" & Me.ListeNiveauEVALUATION & "'"
 
        Call oRS.FindFirst(critere) 'Cherche si il y a déjà un enregistrement avec ces valeurs
 
        If oRS.NoMatch Then
                'L'enregistrement n'existe pas déjà, on va l'ajouter.
                oRS.AddNew
 
               oRS.Fields("NumEnregistreComposant") = f_NumAutoEnregistrementElevesComposants() + 1 '.Column(0, Itm)
 
                oRS.Fields("Nom_Prenoms_EleveComposant") = .Column(4, Itm)
 
                oRS.Fields("COMPOSITION") = Me.ListeComposition_Evaluation '.Column(2, Itm)
                oRS.Fields("NiveauCompositionFrancais") = Me.ListeNiveauEVALUATION '.Column(2, Itm)
 
                oRS.Fields("IdEcole") = Me.ID_ETABL_FREQ '.Column(9, Itm)
                oRS.Fields("AnneeScol") = Me.ANNEE_SCOL '.Column(8, Itm)
 
                oRS.Fields("NumInsCreleve") = .Column(2, Itm)
                oRS.Fields("MleEleve") = .Column(3, Itm)
 
                oRS.Update
        End If
 
    Next Itm
' enlever la sélection
    .RowSource = .RowSource
 
' affichage des éléments saisis
    Me.Refresh
    Me.ListeELEVES_ANNEE_CLASSE.Requery
    Forms("Frm_EvaluationScolaireElevesECIND").Tbl_EVALUATION_NIVEAU_SCOLAIRE_SFrm.Requery
    ListeELEVES_ANNEE_CLASSE.RowSource = ListeELEVES_ANNEE_CLASSE.RowSource
    End With
 
End Sub

Cordialement.

[Zekraoui_Jakani]

Si l'élève existe déjà, il ne le rajoute pas à cause de "If oRS.NoMatch Then".
Si vous voulez ajouter un élève existant, il faudra insérer une "message box (oui/non)" demandant de rajouter l'élève repéré; si oui, le rajouter, sinon passer à l'élève suivant.

[morobaboumar]

Si l'élève existe déjà, il ne le rajoute pas à cause de "If oRS.NoMatch Then".
Si vous voulez ajouter un élève existant, il faudra insérer une "message box (oui/non)" demandant de rajouter l'élève repéré; si oui, le rajouter, sinon passer à l'élève suivant.

Salut membres du forum !
Bonjour Zekraoui_Jakani !
Heureux de vous retrouver.
Merci de m'ouvrir la voie. Je vais essayer votre proposition et vous poster la suite.
Voici une 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
32
 
Sub GestionDesEnregistrements()
On Error Resume Next
Dim stDocName As String
Dim stLinkCriteria As String
Dim rep As Integer
 
'stDocName = "SuppressionComposantFR_BoiteDialogue "
 
rep = MsgBox("ENREGISTRER TOUS LES COMPOSANTS SELECTIONNES ?" _
& vbCrLf & "AJOUTER DES DONNEES ---> OUI" & _
vbCrLf & "" _
& vbCrLf & "" & vbCrLf & "QUITTER SANS RIEN FAIRE ---> NON", _
vbYesNo + vbQuestion, "Choisir un traitement")
Select Case rep
'Case vbYes
    'DoCmd.OpenForm stDocName, , , , acFormAdd ', , "Nouveau"
'Case vbYes
    'If Me.NewRecord = True Then
       'If MsgBox("AUCUNE NOUVELLE DONNEE N'EST ACTIVE POUR CET ELEVE !!" _
       '& vbCrLf & "VOULEZ-VOUS AJOUTER DES DONNEES ?", vbOKCancel + vbQuestion, _
       "AJOUTER NOUVELLES DONNEES") = vbYes Then
           'DoCmd.OpenForm stDocName, , , , acFormAdd ', , "Nouveau"
       'End If
    'Else
        'stLinkCriteria = "[NumEnregistreComposant]=" & Me.NumEnregistreComposant
        'DoCmd.OpenForm stDocName, , , stLinkCriteria
    'End If
Case vbCancel
Case Else
End Select
End Sub

Comment pourrais je l'adapter au code d'enregistrement ci dessous ?

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
 
Private Sub BtnEnregisterElevesComposants_Click()
Dim stMsg As String
Dim Itm As Variant
Dim oDb As Database
Dim oRS As Recordset
Dim critere As String
 
With Me.ListeELEVES_ANNEE_CLASSE
    '' contrôle saisie élèves
    If .ItemsSelected.Count = 0 Then Exit Sub
    'contrôle saisie Classe
    If IsNull(Me.lstClasse_Evaluation) Then
        MsgBox "Sélectionnez une classe.", vbCritical
        Me.lstClasse_Evaluation.SetFocus
        'Me.lstClasse_Evaluation.Dropdown  **** Pour dérouler le combobox à l'aide de la méthode DROPDOWN
        SendKeys "{F4}"      '*** Pour dérouler le combobox à l'aide de l'envoi de touche clavier (F4)
        Exit Sub
    End If
 
 
    stMsg = "Voulez-vous insérer les élèves suivants:" & vbCrLf
    For Each Itm In .ItemsSelected
        stMsg = stMsg & .Column(4, Itm) & vbCrLf
    Next Itm
 
 'Confirmer l'insertion des élèves
    stMsg = stMsg & "?"
    If MsgBox(stMsg, vbQuestion + vbYesNo) = vbNo Then Exit Sub
 
    Set oDb = CurrentDb
    Set oRS = oDb.OpenRecordset("Tbl_EVALUATION_NIVEAU_SCOLAIRE", dbOpenDynaset)
 
' ajout des éléments sélectionnés
    For Each Itm In .ItemsSelected
        critere = "[Nom_Prenoms_EleveComposant]=""" & .Column(4, Itm) _
        & """ and [NumInsCreleve]=" & .Column(2, Itm) _
        & " and [MleEleve]=" & .Column(3, Itm) _
        & " and [COMPOSITION]=" & Me.ListeComposition_Evaluation _
        & " and [NiveauCompositionFrancais]='" & Me.ListeNiveauEVALUATION & "'"
 
        Call oRS.FindFirst(critere) 'Cherche si il y a déjà un enregistrement avec ces valeurs
 
        If oRS.NoMatch Then
                'L'enregistrement n'existe pas déjà, on va l'ajouter.
                oRS.AddNew
 
               oRS.Fields("NumEnregistreComposant") = f_NumAutoEnregistrementElevesComposants() + 1 '.Column(0, Itm)
 
                oRS.Fields("Nom_Prenoms_EleveComposant") = .Column(4, Itm)
 
                oRS.Fields("COMPOSITION") = Me.ListeComposition_Evaluation '.Column(2, Itm)
                oRS.Fields("NiveauCompositionFrancais") = Me.ListeNiveauEVALUATION '.Column(2, Itm)
 
                oRS.Fields("IdEcole") = Me.ID_ETABL_FREQ '.Column(9, Itm)
                oRS.Fields("AnneeScol") = Me.ANNEE_SCOL '.Column(8, Itm)
 
                oRS.Fields("NumInsCreleve") = .Column(2, Itm)
                oRS.Fields("MleEleve") = .Column(3, Itm)
 
                oRS.Update
        End If
 
    Next Itm
' enlever la sélection
    .RowSource = .RowSource
 
' affichage des éléments saisis
    Me.Refresh
    Me.ListeELEVES_ANNEE_CLASSE.Requery
    Forms("Frm_EvaluationScolaireElevesECIND").Tbl_EVALUATION_NIVEAU_SCOLAIRE_SFrm.Requery
    ListeELEVES_ANNEE_CLASSE.RowSource = ListeELEVES_ANNEE_CLASSE.RowSource
    End With
 
End Sub

Cordialement.

[morobaboumar]

Bonsoir membres du forum,
Je remarque qu'en mettant en commentaire le bout de code

Code :

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

If oRS.NoMatch Then

et le

Code :

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

End If

,
le code d'enregistrement fonctionne.
Je souhaite supprimer les doublons avec du code vba. Besoin de coup de mains ici.

NB: je reviens sur la remarque de tee_grandbois qui avait signalé que la partie criteres dans le code était inutile:
https://www.developpez.net/forums/d1...ublons-access/

Pièce jointe

Cordialement.

[morobaboumar]

Bonjour membres du forum.
Aidez moi à réécrire mon
code avec la méthode

Code :

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

With me

Code gestion de doublons:

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
 ''FONCTION POUR CONTROLER LES DOUBLONS DE L'ENREGISTREMENT DES ELEVES
''COMPOSANTS PAR COMPOSITION, Niveau de Composition ET ANNEE SCOLAIRE, ECOLE
 
Public Function fEstEleveDejaComposant(ETABL As Long, NumInsc As Long, Mleelv As Long, Ansco As String, Composi As Long, NivCompo As String) As Boolean
On Error GoTo MOROBABOUMAR
If IsNull(ETABL) Then Exit Function
If IsNull(NumInsc) Then Exit Function
If IsNull(Mleelv) Then Exit Function
If IsNull(Ansco) Then Exit Function
If IsNull(Composi) Then Exit Function
If IsNull(NivCompo) Then Exit Function
Dim db As Database
Dim rst As Recordset
Dim sql As String
    Set db = CurrentDb
    sql = "select * from Tbl_EVALUATION_NIVEAU_SCOLAIRE where  IdEcole = " & ETABL & "and NumInsCreleve =" & NumInsc & "and MleEleve =" & Mleelv & "and AnneeScol ='" & Ansco & "'and COMPOSITION =" & Composi & "and NiveauCompositionFrancais ='" & NivCompo & "'"
    Set rst = db.OpenRecordset(sql)
    If Not rst.EOF Then
        fEstEleveDejaComposant = True
        Else
        fEstEleveDejaComposant = False
    End If
Exit Function
MOROBABOUMAR:
    MsgBox "Erreur n° " & err.Number & vbCrLf & err.description, vbCritical + vbOKOnly, "Une erreur est survenue"
End Function

Cordialement.

[tee_grandbois]

bonjour,
quel intérêt sachant que Me n'est même pas présent ?

[morobaboumar]

bonjour,
quel intérêt sachant que Me n'est même pas présent ?

Bonsoir tee_grandbois.
Très heureux de vous retrouver.
Je suis désolé de m'être mal exprimé.
Je voudrais dire comment pourrais je empêcher
les doublons dans les données que j'enregistre
dans la table "Tbl_EVALUATION_NIVEAU_SCOLAIRE" selon les paramètres indiqués dans mon code.

NB: au moment où je clique sur la cmd enregistrer,
tous les doublons sont empêchés par le code de
traitement doublons.
Cordialement.

[morobaboumar]

Si l'élève existe déjà, il ne le rajoute pas à cause de "If oRS.NoMatch Then".
Si vous voulez ajouter un élève existant, il faudra insérer une "message box (oui/non)" demandant de rajouter l'élève repéré; si oui, le rajouter, sinon passer à l'élève suivant.

Bonjour membres du forum !
Pourriez vous m'aider selon l'explication de Zekraoui_Jakani en introduisant un message box dans le code suivant:

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
 
Private Sub BtnEnregisterElevesComposants_Click()
Dim stMsg As String
Dim Itm As Variant
Dim oDb As Database
Dim oRS As Recordset
Dim critere As String
 
With Me.ListeELEVES_ANNEE_CLASSE
    '' contrôle saisie élèves
    If .ItemsSelected.Count = 0 Then Exit Sub
    'contrôle saisie Classe
    If IsNull(Me.lstClasse_Evaluation) Then
        MsgBox "Sélectionnez une classe.", vbCritical
        Me.lstClasse_Evaluation.SetFocus
        'Me.lstClasse_Evaluation.Dropdown  **** Pour dérouler le combobox à l'aide de la méthode DROPDOWN
        SendKeys "{F4}"      '*** Pour dérouler le combobox à l'aide de l'envoi de touche clavier (F4)
        Exit Sub
    End If
 
 
    stMsg = "Voulez-vous insérer les élèves suivants:" & vbCrLf
    For Each Itm In .ItemsSelected
        stMsg = stMsg & .Column(4, Itm) & vbCrLf
    Next Itm
 
 'Confirmer l'insertion des élèves
    stMsg = stMsg & "?"
    If MsgBox(stMsg, vbQuestion + vbYesNo) = vbNo Then Exit Sub
 
    Set oDb = CurrentDb
    Set oRS = oDb.OpenRecordset("Tbl_EVALUATION_NIVEAU_SCOLAIRE", dbOpenDynaset)
 
' ajout des éléments sélectionnés
    For Each Itm In .ItemsSelected
        critere = "[Nom_Prenoms_EleveComposant]=""" & .Column(4, Itm) _
        & """ and [NumInsCreleve]=" & .Column(2, Itm) _
        & " and [MleEleve]=" & .Column(3, Itm) _
        & " and [COMPOSITION]=" & Me.ListeComposition_Evaluation _
        & " and [NiveauCompositionFrancais]='" & Me.ListeNiveauEVALUATION & "'"
 
        Call oRS.FindFirst(critere) 'Cherche si il y a déjà un enregistrement avec ces valeurs
 
        If oRS.NoMatch Then
                'L'enregistrement n'existe pas déjà, on va l'ajouter.
                oRS.AddNew
 
               oRS.Fields("NumEnregistreComposant") = f_NumAutoEnregistrementElevesComposants() + 1 '.Column(0, Itm)
 
                oRS.Fields("Nom_Prenoms_EleveComposant") = .Column(4, Itm)
 
                oRS.Fields("COMPOSITION") = Me.ListeComposition_Evaluation '.Column(2, Itm)
                oRS.Fields("NiveauCompositionFrancais") = Me.ListeNiveauEVALUATION '.Column(2, Itm)
 
                oRS.Fields("IdEcole") = Me.ID_ETABL_FREQ '.Column(9, Itm)
                oRS.Fields("AnneeScol") = Me.ANNEE_SCOL '.Column(8, Itm)
 
                oRS.Fields("NumInsCreleve") = .Column(2, Itm)
                oRS.Fields("MleEleve") = .Column(3, Itm)
 
                oRS.Update
        End If
 
    Next Itm
' enlever la sélection
    .RowSource = .RowSource
 
' affichage des éléments saisis
    Me.Refresh
    Me.ListeELEVES_ANNEE_CLASSE.Requery
    Forms("Frm_EvaluationScolaireElevesECIND").Tbl_EVALUATION_NIVEAU_SCOLAIRE_SFrm.Requery
    ListeELEVES_ANNEE_CLASSE.RowSource = ListeELEVES_ANNEE_CLASSE.RowSource
    End With
 
End Sub

?

Selon les critères (ETABL, Ansco, NumInsc, Mleelv, Composi, NivCompo) afin de m'éviter des doublons d'élèves composants à chacune des compositions dans une année scolaires ?

Voir la pièce jointe au post 4.

Cordialement

[morobaboumar]

Voici ma fonction de gestion de doublons:

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
 ''FONCTION POUR CONTROLER LES DOUBLONS DE L'ENREGISTREMENT DES ELEVES
''COMPOSANTS PAR COMPOSITION, Niveau de Composition ET ANNEE SCOLAIRE, ECOLE
 
Public Function fEstEleveDejaComposant(ETABL As Long, NumInsc As Long, Mleelv As Long, Ansco As String, Composi As Long, NivCompo As String) As Boolean
On Error GoTo MOROBABOUMAR
If IsNull(ETABL) Then Exit Function
If IsNull(NumInsc) Then Exit Function
If IsNull(Mleelv) Then Exit Function
If IsNull(Ansco) Then Exit Function
If IsNull(Composi) Then Exit Function
If IsNull(NivCompo) Then Exit Function
Dim db As Database
Dim rst As Recordset
Dim sql As String
    Set db = CurrentDb
    sql = "select * from Tbl_EVALUATION_NIVEAU_SCOLAIRE where  IdEcole = " & ETABL & "and NumInsCreleve =" & NumInsc & "and MleEleve =" & Mleelv & "and AnneeScol ='" & Ansco & "'and COMPOSITION =" & Composi & "and NiveauCompositionFrancais ='" & NivCompo & "'"
    Set rst = db.OpenRecordset(sql)
    If Not rst.EOF Then
        fEstEleveDejaComposant = True
        Else
        fEstEleveDejaComposant = False
    End If
Exit Function
MOROBABOUMAR:
    MsgBox "Erreur n° " & err.Number & vbCrLf & err.description, vbCritical + vbOKOnly, "Une erreur est survenue"
End Function

Je souhaiterais éviter l'ensemble de doublons en même temps, lorsque je clique sur la commande enregistrer de mon application.

L ‘objectif de mon application est d’évaluer le niveau des élèves pendant trois (3) trimestre d’une année scolaire.
Étant une école confessionnelle islamique, l’enseignement est reparti entre les matières islamiques (قرأن، حديث، فقه .....) en arabe et matières laïques françaises (Français, math, sciences et technologies, histoire-géographie ….). D’où l’application comprend deux parties :
1°) EVALUATION DU NIVEAU SCOLAIRE FRANÇAIS DES ELEVES
2°) EVALUATION DU NIVEAU SCOLAIRE ARABE DES ELEVES
Je rappelle que chaque partie est gérée séparément.
Voici quelques images qui pourraient vous aider à mieux comprendre le fonctionnement de mon application.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
'__Appel de la fonction de doublons______________________________________
If fEstEleveDejaComposant(Me.ID_ETABL_FREQ, _
Me.NumInscriptionEleveInscrit, _
Me.Mleeleve, Me.ANNEE_SCOL, _
Me.ListeComposition_Evaluation, _
Me.ListeNiveauEVALUATION) = True Then
    MsgBox "ATTENTION !!" & vbCrLf & "Cet élève est déjà sur la liste des composants pour cette : " _
    & Me.ListeNiveauEVALUATION.Column(1), vbCritical + vbOKOnly, "Risque de Doublons"
End If
'Exit Sub
'_________________________

Je vous renvoie une nouvelle copie de mon Application
Cordialement.

[morobaboumar]

Si l'élève existe déjà, il ne le rajoute pas à cause de "If oRS.NoMatch Then".
Si vous voulez ajouter un élève existant, il faudra insérer une "message box (oui/non)" demandant de rajouter l'élève repéré; si oui, le rajouter, sinon passer à l'élève suivant.

Bonjour membres du forum !
Finalement la méthode de Zekraoui_Jakani est parfaite.



Le code 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
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
82
83
84
85
 
Private Sub BtnEnregisterElevesComposants_Click()
Dim stMsg As String
Dim Itm As Variant
Dim oDb As Database
Dim oRS As Recordset
Dim critere As String
Dim Eleve As String
Dim ajouter As Boolean
 
On Error GoTo OUMAR
 
With Me.ListeELEVES_ANNEE_CLASSE
    '' contrôle saisie élèves
    If .ItemsSelected.Count = 0 Then Exit Sub
    'contrôle saisie Classe
    If IsNull(Me.lstClasse_Evaluation) Then
        MsgBox "Sélectionnez une classe.", vbCritical
        Me.lstClasse_Evaluation.SetFocus
        'Me.lstClasse_Evaluation.Dropdown  **** Pour dérouler le combobox à l'aide de la méthode DROPDOWN
        SendKeys "{F4}"      '*** Pour dérouler le combobox à l'aide de l'envoi de touche clavier (F4)
        Exit Sub
    End If
 
    Set oDb = CurrentDb
    Set oRS = oDb.OpenRecordset("Tbl_EVALUATION_NIVEAU_SCOLAIRE", dbOpenDynaset)
 
    For Each Itm In .ItemsSelected
        Eleve = .Column(4, Itm)
        oRS.FindFirst "[Nom_Prenoms_EleveComposant] LIKE '*" & Eleve & "*'"
        ajouter = False
 
        If oRS.NoMatch Then
            ajouter = True  'Add the record to the table and
            stMsg = "L'élève " & Eleve & " a été rajouté à la liste, avec succès !"
        Else
            Dim fld As Field
            stMsg = "L'élève " & Eleve & " existe déjà dans la table !" & vbLf    '**********************
            stMsg = stMsg & " avec les dnnées suivantes :" & vbCrLf
            For Each fld In oRS.Fields
                stMsg = stMsg & fld.Name & " : " & fld.Value & vbCrLf
            Next fld
            stMsg = stMsg & vbCrLf & "Voulez-vous le rajouter ?"
            If MsgBox(stMsg, vbQuestion + vbYesNo, "Ajouter un Elève") = vbNo Then
                ajouter = False
            Else
                ajouter = True  'Add the record to the table
            End If
        End If        'stMsg = stMsg & .Column(4, Itm) & vbCrLf
 
        If ajouter = True Then
            With oRS
                .AddNew
                ![NumEnregistreComposant] = f_NumAutoEnregistrementElevesComposants() + 1
                ![Nom_Prenoms_EleveComposant] = Me.ListeELEVES_ANNEE_CLASSE.Column(4, Itm)
                ![COMPOSITION] = Me.ListeComposition_Evaluation
                ![NiveauCompositionFrancais] = Me.ListeNiveauEVALUATION
                ![IdEcole] = Me.ID_ETABL_FREQ
                ![AnneeScol] = Me.ANNEE_SCOL
                ![NumInsCreleve] = Me.ListeELEVES_ANNEE_CLASSE.Column(2, Itm)
                ![Mleeleve] = Me.ListeELEVES_ANNEE_CLASSE.Column(3, Itm)
                .Update
            End With
            MsgBox stMsg, vbInformation + vbOKOnly, "Elève ajouté"
        End If
    Next Itm
 
' enlever la sélection
    .RowSource = .RowSource
 
' affichage des éléments saisis
    Me.Refresh
    Me.ListeELEVES_ANNEE_CLASSE.Requery
    Forms("Frm_EvaluationScolaireElevesECIND").Tbl_EVALUATION_NIVEAU_SCOLAIRE_SFrm.Requery
    ListeELEVES_ANNEE_CLASSE.RowSource = ListeELEVES_ANNEE_CLASSE.RowSource
    End With
Forms!Frm_EvaluationScolaireElevesECIND!CtlTabEVALUATION_COMPOSITION.Pages(1).SetFocus
 
OUMAR_Exit:
    Exit Sub
 
OUMAR:
    MsgBox err.Description, vbExclamation + vbOKOnly, err.Number
    Resume OUMAR_Exit
End Sub

NB: il y a une remarque: voir les images suivantes:
La Msgbox devrait afficher les infos concernant l'année scolaire
en cours. Exemple: l'élève 625 BALLO Maïmouna est redoublante de l'année
dernière 2019-2020. La msgbox devrait afficher les infos de l'année en cours.
Hormis cette remarque, votre code est parfait. Peut être avez vous des
remarques et suggestions à me soumettre.

Merci infiniment à tous,
Merci Zekraoui_Jakani.
Bien à vous.