Discussion :

[morobaboumar]

Salut Membres du forum !
J'Inséré les données dans la table Tbl_EVALUATION_NIVEAU_SCOLAIRE grâce à la méthode de Tee_grandbois.

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
Private Sub BtnEnregisterElevesComposants_Click()
Dim stMsg As String
Dim Itm As Variant
Dim oDb As Database
Dim oRS As Recordset
 
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
        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
 
    Next Itm
 
' enlever la sélection
    .RowSource = .RowSource
 
' affichage des éléments saisis
    Me.Refresh
End With
 
End Sub

Maintenant, je souhaite éviter d’insérer les doublons de lignes de données (c à d : ne pas entrer les mêmes données pour une même composition).
Je sollicite votre aide.

Voir pièces jointes:




Cordialement !

[morobaboumar]

J'ai écrit cette fonction me permettant de gérer les doublons.
Il marche quand il s'agit d'enregistrement individuel.
Par contre les clefs me manquent pour l'appliquer à plusieurs enregistrements qui
doivent être insérés en même temps dont les doublons doivent être contrôlésr:

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
''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

Voici comment j'appelle ma fonction dans le code d'insertion d'enregistrement:

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
Private Sub BtnEnregisterElevesComposants_Click()
Dim stMsg As String
Dim Itm As Variant
Dim oDb As Database
Dim oRS As Recordset

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)
         
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à enregistré pour cette: " & Me.ListeComposition_Evaluation.Column(1), vbCritical + vbOKOnly, "Risque de Doublons"
    Me.Tbl_EVALUATION_NIVEAU_SCOLAIRE_SFrm.Form!NumEnregistreComposant = ""
    Me.Tbl_EVALUATION_NIVEAU_SCOLAIRE_SFrm.Form!IdEcole = ""
    Me.Tbl_EVALUATION_NIVEAU_SCOLAIRE_SFrm.Form!AnneeScol = ""
    Me.Tbl_EVALUATION_NIVEAU_SCOLAIRE_SFrm.Form!COMPOSITION = ""
    Me.Tbl_EVALUATION_NIVEAU_SCOLAIRE_SFrm.Form!NumInsCreleve = ""
    Me.Tbl_EVALUATION_NIVEAU_SCOLAIRE_SFrm.Form!Mleeleve = ""
    Me.Tbl_EVALUATION_NIVEAU_SCOLAIRE_SFrm.Form!Nom_Prenoms_EleveComposant = ""
    Me.Tbl_EVALUATION_NIVEAU_SCOLAIRE_SFrm.Form!NiveauCompositionFrancais = ""

    End If

' ajout des éléments sélectionnés
    For Each Itm In .ItemsSelected
        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
       
    Next Itm
 
' enlever la sélection
    .RowSource = .RowSource
 
' affichage des éléments saisis
    Me.Refresh
    Me.ListeELEVES_ANNEE_CLASSE.Requery
    End With

End Sub

Cordialement.

[adama13]

Bonjour,

J'ai téléchargé ta BdD mais je comprends pas ce que tu veux obtenir comme résultat.

Donne moi plus d'explications

[adama13]

Re-Bonjour

D'après mon entendement si tu as déjà insérer les données de tel élève pour une composition donnée X, a la prochaine insertion cela ne doit pas marcher

Si tel est le cas alors je te propose cette option:

apres ton For Each juste avant oRS.AddNew

Fait une requette selection ou tu verifie que le Mleeleve n'existe pas déja, si c'est le cas alors soit tu supprime ou tu passe a l'enregistrement suivant sinon tu continue l'execution de ta boucle

Si j'ai pas été claire alors revient moi. Et je te donnerais le code VBA(Au faite je suis à une fête, c'est pourquoi j'entre pas trop dans les détail )

[morobaboumar]

Bonjour,
J'ai téléchargé ta BdD mais je comprends pas ce que tu veux obtenir comme résultat.
Donne moi plus d'explications

Bonsoir membres du forum !
Bonsoir adama13 !
Très heureux de recevoir votre réponse. Bref!
Mon objectif est d'enregistrer des élèves de la zone de liste"ListeELEVES_ANNEE_CLASSE" basée sur la requête"Eleve_INSCRIT_Req_Plus" dans le sous-formulaire "Tbl_EVALUATION_NIVEAU_SCOLAIRE_SFr" qui lui est basé sur
la table "Tbl_EVALUATION_NIVEAU_SCOLAIRE".

Code du bouton"Enregistrer les Elèves Composants Sélectionnés":

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
Private Sub BtnEnregisterElevesComposants_Click()
Dim stMsg As String
Dim Itm As Variant
Dim oDb As Database
Dim oRS As Recordset

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)
 '________________________________________________________________________
'Ici; appel de la fonction de gestion de doublons. 
'Cette fonction devrait empêcher toutes les informations déjà enregistrées dans la table "Tbl_EVALUATION_NIVEAU_SCOLAIRE" d'y être insérées  une nouvelle fois pour une composition.
'________________________________________________________________________

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à enregistré pour cette: " & Me.ListeComposition_Evaluation.Column(1), vbCritical + vbOKOnly, "Risque de Doublons"
    Me.Tbl_EVALUATION_NIVEAU_SCOLAIRE_SFrm.Form!NumEnregistreComposant = ""
    Me.Tbl_EVALUATION_NIVEAU_SCOLAIRE_SFrm.Form!IdEcole = ""
    Me.Tbl_EVALUATION_NIVEAU_SCOLAIRE_SFrm.Form!AnneeScol = ""
    Me.Tbl_EVALUATION_NIVEAU_SCOLAIRE_SFrm.Form!COMPOSITION = ""
    Me.Tbl_EVALUATION_NIVEAU_SCOLAIRE_SFrm.Form!NumInsCreleve = ""
    Me.Tbl_EVALUATION_NIVEAU_SCOLAIRE_SFrm.Form!Mleeleve = ""
    Me.Tbl_EVALUATION_NIVEAU_SCOLAIRE_SFrm.Form!Nom_Prenoms_EleveComposant = ""
    Me.Tbl_EVALUATION_NIVEAU_SCOLAIRE_SFrm.Form!NiveauCompositionFrancais = ""

    End If
'____________________________________________________________________
'_____________________________________________________________________

' ajout des éléments sélectionnés
    For Each Itm In .ItemsSelected
        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
       
    Next Itm
 
' enlever la sélection
    .RowSource = .RowSource
 
' affichage des éléments saisis
    Me.Refresh
    Me.ListeELEVES_ANNEE_CLASSE.Requery
    End With

End Sub

Le résultat recherché est d'éviter les doublons.
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
''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.

[hyperion13]

Peut-être qu'avec une simple fonction de domaine, vous pouvez contrôler et éviter d'insérer des doublons
A adapter à votre bdd

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
Private Sub btnclick1_Click()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim MesCriteres As String
Dim ctl As Control
Dim i As Variant
 
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Table2_tmp", dbOpenDynaset)
Set ctl = Me.maListbox
 
If ctl.ItemsSelected.Count = 0 Then
MsgBox "Veuillez sélectionner au moins une ligne !"
Exit Sub
End If
 
MesCriteres = _
"idfk = " & ctl.Column(0) & " " & _
"AND date1 = #" & Format(ctl.Column(1), "mm/dd/yyyy") & "#"
 
If DCount("*", "Table2_tmp", MesCriteres) > 0 Then
MsgBox "Cet enregistrement existe déjà !"
Me.Undo
Else
    For Each i In ctl.ItemsSelected
        rst.AddNew
        rst!idfk = ctl.Column(0, i)
        rst!date1 = ctl.Column(1, i)
        rst.Update
    Next i
End If
 
Set rst = Nothing
Set dbs = Nothing
End Sub

[morobaboumar]

Peut-être qu'avec une simple fonction de domaine, vous pouvez contrôler et éviter d'insérer des doublons
A adapter à votre bdd

Bonsoir hyperion13 !
Très heureux de votre réponse !
Pourriez vous me commenter les différentes parties de votre code afin de me faciliter la tache à l'adapter à ma BDD ?
Cordialement.

[morobaboumar]

Salut membres du forum !
Voici ce que j'ai réalisé comme adaptation du code proposé par hyperion13

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
Private Sub btnclick1_Click()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim MesCriteres As String
Dim ctl As Control
Dim i As Variant
 
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Table2_tmp", dbOpenDynaset)
Set ctl = Me.maListbox
 
If ctl.ItemsSelected.Count = 0 Then
MsgBox "Veuillez sélectionner au moins une ligne !"
Exit Sub
End If
 
MesCriteres = _
"idfk = " & ctl.Column(0) & " " & _
"AND date1 = #" & Format(ctl.Column(1), "mm/dd/yyyy") & "#"
 
If DCount("*", "Table2_tmp", MesCriteres) > 0 Then
MsgBox "Cet enregistrement existe déjà !"
Me.Undo
Else
    For Each i In ctl.ItemsSelected
        rst.AddNew
        rst!idfk = ctl.Column(0, i)
        rst!date1 = ctl.Column(1, i)
        rst.Update
    Next i
End If
 
Set rst = Nothing
Set dbs = Nothing
End Sub

et mon essai d'aptation du 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
Private Sub btnclick1_Click()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim MesCriteres As String
Dim ctl As Control
Dim i As Variant
 
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Tbl_EVALUATION_NIVEAU_SCOLAIRE", dbOpenDynaset)
Set ctl = Me.ListeELEVES_ANNEE_CLASSE
 
If ctl.ItemsSelected.Count = 0 Then
MsgBox "Veuillez sélectionner au moins une ligne !"
Exit Sub
End If
 
MesCriteres = "IdEcole = " & Me.ID_ETABL_FREQ & "and NumInsCreleve =" & Me.NumInscriptionEleveInscrit & "and MleEleve =" & Me.Mleeleve & "and AnneeScol ='" & Me.ANNEE_SCOL & "'and COMPOSITION =" & Me.ListeComposition_Evaluation & "and NiveauCompositionFrancais ='" & Me.ListeNiveauEVALUATION & "'"
 
 
If DCount("*", "Tbl_EVALUATION_NIVEAU_SCOLAIRE", MesCriteres) > 0 Then
MsgBox "Cet enregistrement existe déjà !"
Me.Undo
Else
    For Each i In ctl.ItemsSelected
        rst.AddNew
        rst!NumEnregistreComposant = f_NumAutoEnregistrementElevesComposants() + 1 'ctl.Column(0)
        rst!IdEcole = Me.ID_ETABL_FREQ 'ctl.Column(1)
        rst!AnneeScol = Me.ANNEE_SCOL
        rst!COMPOSITION = Me.ListeComposition_Evaluation
        rst!NumInsCreleve = ctl.Column(2) 'Me.NumInscriptionEleveInscrit
        rst!Mleeleve = ctl.Column(3) 'Me.Mleeleve
        rst!Nom_Prenoms_EleveComposant = ctl.Column(4) 'Me.NPrenomsEleves
        rst!NiveauCompositionFrancais = Me.ListeNiveauEVALUATION
        e 
    Next i
End If
 
Set rst = Nothing
Set dbs = Nothing
End Sub

Mais j'ai toujours des doublons de la part de mon code adapté.
Voir la capture d'image:


Je sollicite votre aide.
Cordialement

[morobaboumar]

Bonjour membres du forum !
J'ai retouché mon code adapté:

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
Private Sub btnclick1_Click()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim MesCriteres As String
Dim ctl As Control
Dim i As Variant
 
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Tbl_EVALUATION_NIVEAU_SCOLAIRE", dbOpenDynaset)
Set ctl = Me.ListeELEVES_ANNEE_CLASSE
 
If ctl.ItemsSelected.Count = 0 Then
MsgBox "Veuillez sélectionner au moins une ligne !"
Exit Sub
End If
 
' 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
 
MesCriteres = "IdEcole = " & Me.ID_ETABL_FREQ & "and NumInsCreleve =" & Me.NumInscriptionEleveInscrit & "and MleEleve =" & Me.Mleeleve & "and AnneeScol ='" & Me.ANNEE_SCOL & "'and COMPOSITION =" & Me.ListeComposition_Evaluation & "and NiveauCompositionFrancais ='" & Me.ListeNiveauEVALUATION & "'"
 
 
If DCount("*", "Tbl_EVALUATION_NIVEAU_SCOLAIRE", MesCriteres) > 0 Then
MsgBox "Cet enregistrement existe déjà !"
Me.Undo
Else
    For Each i In ctl.ItemsSelected
        rst.AddNew
        rst!NumEnregistreComposant = f_NumAutoEnregistrementElevesComposants() + 1 'ctl.Column(0)
        rst!IdEcole = Me.ID_ETABL_FREQ 'ctl.Column(1)
        rst!AnneeScol = Me.ANNEE_SCOL
        rst!COMPOSITION = Me.ListeComposition_Evaluation
        rst!NumInsCreleve = ctl.Column(2, i) 'Me.NumInscriptionEleveInscrit
        rst!Mleeleve = ctl.Column(3, i) 'Me.Mleeleve
        rst!Nom_Prenoms_EleveComposant = NomPrenomEleveFrancais(Me.Mleeleve) ' ctl.Column(4, 1)
        rst!NiveauCompositionFrancais = Me.ListeNiveauEVALUATION
        rst.Update
    Next i
End If
 
' affichage des éléments saisis
    Me.Refresh
    Me.ListeELEVES_ANNEE_CLASSE.Requery
    Me.Requery
 'enlever la sélection
    '.RowSource = .RowSource
  'Me.RowSource.Requery
 
Set rst = Nothing
Set dbs = Nothing
End Sub

1°) j'ai toujours des doublons au niveau du champ "Nom_Prenoms_EleveComposant" de la table "Tbl_EVALUATION_NIVEAU_SCOLAIRE".



2°) j'ai essayé d'enlever la sélection avec l'objet ".RowSource = .RowSource" dont voici le message d'erreur:



Je vous envoie la pièce jointe de ma BDD.
Cordialement.

[tee_grandbois]

bonjour,
je n'ai pas le temps de regarder dans le détail la pièce jointe mais je vois déjà 2 erreurs à corriger :
1) il manque un espace avant chaque and

Code :

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

MesCriteres = "IdEcole = " & Me.ID_ETABL_FREQ & " and NumInsCreleve =" & Me.NumInscriptionEleveInscrit & " and MleEleve =" & Me.Mleeleve & " and AnneeScol ='" & Me.ANNEE_SCOL & "' and COMPOSITION =" & Me.ListeComposition_Evaluation & " and NiveauCompositionFrancais ='" & Me.ListeNiveauEVALUATION & "'"

2) .Rowsource = .Rowsource ne fonctionne que si il y a un With avant pour qualifier l'objet auquel on se réfère, ce qui montre que tu ne sais pas comment l'utiliser car je n'ai pas vu de With dans le code posté,

Code :

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

1
2
3
With maZonedeListe
    .Rowsource = .Rowsource
End With

cette méthode évite de répéter le nom de l'objet à chaque fois qu'on l'utilise dans une multitude de lignes d'instructions, mais pour une seule, ce n'est vraiment pas la peine de s'embêter:

Code :

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

maZonedeListe.Rowsource = maZonedeListe.Rowsource

[hyperion13]

Re,
Pourtant le bout de code donné dans mon précédent post aurait dû vous permettre d'y arriver !

Capture d'écran de votre form Post#9. Vous avez dû vous mélanger les pinceaux dans votre sub puisqu'aucun rapport entre les 3 MleEleve et le NomPrenomEleve !

Est-ce pour une motivation impériale que vous avez créé cette fonction ?

Code :

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

f_NumAutoEnregistrementElevesComposants() + 1

Parce que Microsoft a mis au point le NuméroAuto !

A adapter à votre "usine à gaz"

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
Private Sub test_Click()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim MesCriteres As String
Dim ctl As Control, ctl1 As Control, ctl2 As Control
Dim i As Variant
 
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Tbl_EVALUATION_NIVEAU_SCOLAIRE", dbOpenDynaset)
Set ctl = Me.ListeELEVES_ANNEE_CLASSE
Set ctl1 = Me.ListeComposition_Evaluation
Set ctl2 = Me.ListeNiveauEVALUATION
 
If ctl.ItemsSelected.Count = 0 Then
MsgBox "Veuillez sélectionner un enregistrement au moins !"
Exit Sub
End If
 
MesCriteres = _
"IdEcole = " & ctl.Column(0) & " " & _
"AND AnneeScol = '" & ctl.Column(1) & "' " & _
"AND NumInsCreleve = " & ctl.Column(2) & " " & _
"AND MleEleve = " & ctl.Column(3) & " " & _
"AND Nom_Prenoms_EleveComposant = '" & ctl.Column(4) & "' " & _
"AND COMPOSITION = " & ctl1.Column(0) & " " & _
"AND NiveauCompositionFrancais = '" & ctl2.Column(0) & "' "
 
If DCount("*", "Tbl_EVALUATION_NIVEAU_SCOLAIRE", MesCriteres) > 0 Then
    MsgBox "Cet enregistrement a deja ete insere"
    Me.Undo
Else
    For Each i In ctl.ItemsSelected
        rst.AddNew
        rst!IdEcole = ctl.Column(0, i)
        rst!AnneeScol = ctl.Column(1, i)
        rst!NumInsCreleve = ctl.Column(2, i)
        rst!MleEleve = ctl.Column(3, i)
        rst!Nom_Prenoms_EleveComposant = ctl.Column(4, i)
        rst!COMPOSITION = ctl1.Column(0)
        rst!NiveauCompositionFrancais = ctl2.Column(0)
        rst.Update
    Next i
End If
With ctl
    .RowSource = .RowSource
End With
Set rst = Nothing
Set dbs = Nothing
End Sub

[morobaboumar]

Bonsoir membres du forum !
Merci infiniment à vous tous:
tee_grandbois
hyperion13
adama13

Grace à vous, j'ai obtenu la solution à notre discussion.
J'ai ajouté des contrôles au code.
Le temps de tester avant de fermer la discussion.

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
 
Private Sub EnregistrerlesComposants_Click()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim MesCriteres As String
Dim ctl As Control, ctl1 As Control, ctl2 As Control
Dim i As Variant
 
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Tbl_EVALUATION_NIVEAU_SCOLAIRE", dbOpenDynaset)
Set ctl = Me.ListeELEVES_ANNEE_CLASSE
Set ctl1 = Me.ListeComposition_Evaluation
Set ctl2 = Me.ListeNiveauEVALUATION
 
' 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
 
' contrôle de la sélection d'enregistrement(s)
If ctl.ItemsSelected.Count = 0 Then
MsgBox "Veuillez sélectionner un enregistrement au moins !"
Exit Sub
End If
 
MesCriteres = _
"IdEcole = " & ctl.Column(0) & " " & _
"AND AnneeScol = '" & ctl.Column(1) & "' " & _
"AND NumInsCreleve = " & ctl.Column(2) & " " & _
"AND MleEleve = " & ctl.Column(3) & " " & _
"AND Nom_Prenoms_EleveComposant = '" & ctl.Column(4) & "' " & _
"AND COMPOSITION = " & ctl1.Column(0) & " " & _
"AND NiveauCompositionFrancais = '" & ctl2.Column(0) & "' "
 
If DCount("*", "Tbl_EVALUATION_NIVEAU_SCOLAIRE", MesCriteres) > 0 Then
    MsgBox "Cet enregistrement a deja ete insere"
    Me.Undo
Else
    For Each i In ctl.ItemsSelected
        rst.AddNew
        rst!NumEnregistreComposant = f_NumAutoEnregistrementElevesComposants() + 1
        rst!IdEcole = ctl.Column(0, i)
        rst!AnneeScol = ctl.Column(1, i)
        rst!NumInsCreleve = ctl.Column(2, i)
        rst!Mleeleve = ctl.Column(3, i)
        rst!Nom_Prenoms_EleveComposant = ctl.Column(4, i)
        rst!COMPOSITION = ctl1.Column(0)
        rst!NiveauCompositionFrancais = ctl2.Column(0)
        rst.Update
    Next i
End If
With ctl
    .RowSource = .RowSource
End With
Set rst = Nothing
Set dbs = Nothing
End Sub

Cordialement.

[morobaboumar]

Bonsoir membres du forum !

En effet, après avoir testé 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
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
 
Private Sub EnregistrerlesComposants_Click()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim MesCriteres As String
Dim ctl As Control, ctl1 As Control, ctl2 As Control
Dim i As Variant
 
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Tbl_EVALUATION_NIVEAU_SCOLAIRE", dbOpenDynaset)
Set ctl = Me.ListeELEVES_ANNEE_CLASSE
Set ctl1 = Me.ListeComposition_Evaluation
Set ctl2 = Me.ListeNiveauEVALUATION
 
' 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
 
' contrôle de la sélection d'enregistrement(s)
If ctl.ItemsSelected.Count = 0 Then
MsgBox "Veuillez sélectionner un enregistrement au moins !"
Exit Sub
End If
 
MesCriteres = _
"IdEcole = " & ctl.Column(0) & " " & _
"AND AnneeScol = '" & ctl.Column(1) & "' " & _
"AND NumInsCreleve = " & ctl.Column(2) & " " & _
"AND MleEleve = " & ctl.Column(3) & " " & _
"AND Nom_Prenoms_EleveComposant = '" & ctl.Column(4) & "' " & _
"AND COMPOSITION = " & ctl1.Column(0) & " " & _
"AND NiveauCompositionFrancais = '" & ctl2.Column(0) & "' "
 
If DCount("*", "Tbl_EVALUATION_NIVEAU_SCOLAIRE", MesCriteres) > 0 Then
    MsgBox "Cet enregistrement a deja ete insere"
    Me.Undo
Else
    For Each i In ctl.ItemsSelected
        rst.AddNew
        rst!NumEnregistreComposant = f_NumAutoEnregistrementElevesComposants() + 1
        rst!IdEcole = ctl.Column(0, i)
        rst!AnneeScol = ctl.Column(1, i)
        rst!NumInsCreleve = ctl.Column(2, i)
        rst!Mleeleve = ctl.Column(3, i)
        rst!Nom_Prenoms_EleveComposant = ctl.Column(4, i)
        rst!COMPOSITION = ctl1.Column(0)
        rst!NiveauCompositionFrancais = ctl2.Column(0)
        rst.Update
    Next i
End If
With ctl
    .RowSource = .RowSource
End With
Set rst = Nothing
Set dbs = Nothing
End Sub

je constate des doublons dans la table "Tbl_EVALUATION_NIVEAU_SCOLAIRE".

Voir la capture d'image:



Voici comment les erreurs de doublons arrivent:

1°) quand je sélectionne nouvellement des données de la zone de liste "ListeELEVES_ANNEE_CLASSE", elles
sont insérées correctement dans le table "Tbl_EVALUATION_NIVEAU_SCOLAIRE" sans doublons grâce à la commande "EnregistrerlesComposants".

2°) par contre quand je sélectionne les mêmes données sélectionnées au paravent plus de nouvelles données, ces nouvelles
données sont envoyées en même que les anciennes qui furent envoyées créant ainsi des doublons.

Mais individuellement, il n y a pas de problème doublons mais lors de l'envoie par groupe; c'est à ce moment que surviennent
des doublons.

Cordialement.

[marot_r]

Bonjour.

Donc il faut que : [NumInCrel.. ] et [MleEleve] soient uniques ?

Tu peux ajouter à ta table un index unique comme décrit ici :
https://www.developpez.net/forums/d1...ublons-lignes/
Mon post du 18/02/2019, 18h15.

Cela empêchera les doublons mais tu as sans doute un problème dans ton code d'ajout qu'il serait bon de régler.
Ce genre de soucis vient généralement d'une jointure qui "multiplie" les enregistrements.
Par exemple tu ajoutes l'élève autant de fois qu'il a déjà des notes, donc si ton élève a 3 notes, il va être ajouter 3 fois, la prochaine fois, 4 fois et ainsi de suite.
L'Index unique va les empêcher mais c'est un peu une perte de temps et d'efficacité.

A+

[morobaboumar]

Bonsoir marot_r !
Bonsoir membres du forum !

Voici les captures d'erreurs qui surviennent après avoir suivi vos conseils.

A+

[tee_grandbois]

bonsoir,

Voici les captures d'erreurs qui surviennent après avoir suivi vos conseils.

pas sûr que cela a quelque chose à voir avec le conseil donné par marot_r: l'erreur de syntaxe c'est parce que les valeurs de la liste déroulante, ctl0.column(0) à ctl.column(4) sont vides

[morobaboumar]

Bonsoir tee_grandbois !
Très très heureux de vous retrouver !
Selon vous, comment dois je solutionner ce problème.
Votre aide encore plus ne peut que me donner la solution parfaite.
Le code suivant c'est à partir de votre exemple et explication je l'ai adapté à mon cas:

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
 
Private Sub BtnEnregisterElevesComposants_Click()
Dim stMsg As String
Dim Itm As Variant
Dim oDb As Database
Dim oRS As Recordset
 
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
        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
 
    Next Itm
 
' enlever la sélection
    .RowSource = .RowSource
 
' affichage des éléments saisis
    Me.Refresh
    Me.ListeELEVES_ANNEE_CLASSE.Requery
    End With
 
End Sub

Ce qui me manque dans ce code, et bien c'est le contrôle des doublons.
Je voudrais dire une fonction qui permettrais d’empercher les doublons lors d'un enregistrement individuel
ou d'un ensemble d'enregistrements.

De toutes les manières vos codes marchent bien. Le manque est le contrôle total des doublons d'une manière ou d'une autre.

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
Private Sub EnregistrerlesComposants_Click()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim MesCriteres As String
Dim ctl As Control, ctl1 As Control, ctl2 As Control
Dim i As Variant
 
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Tbl_EVALUATION_NIVEAU_SCOLAIRE", dbOpenDynaset)
Set ctl = Me.ListeELEVES_ANNEE_CLASSE
Set ctl1 = Me.ListeComposition_Evaluation
Set ctl2 = Me.ListeNiveauEVALUATION
 
' 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
 
' contrôle de la sélection d'enregistrement(s)
If ctl.ItemsSelected.Count = 0 Then
MsgBox "Veuillez sélectionner un enregistrement au moins !"
Exit Sub
End If
 
MesCriteres = _
"IdEcole = " & ctl.Column(0) & " " & _
"AND AnneeScol = '" & ctl.Column(1) & "' " & _
"AND NumInsCreleve = " & ctl.Column(2) & " " & _
"AND MleEleve = " & ctl.Column(3) & " " & _
"AND Nom_Prenoms_EleveComposant = '" & ctl.Column(4) & "' " & _
"AND COMPOSITION = " & ctl1.Column(0) & " " & _
"AND NiveauCompositionFrancais = '" & ctl2.Column(0) & "' "
 
If DCount("*", "Tbl_EVALUATION_NIVEAU_SCOLAIRE", MesCriteres) > 0 Then
    MsgBox "Cet enregistrement a deja ete insere"
    Me.Undo
Else
    For Each i In ctl.ItemsSelected
        rst.AddNew
        rst!NumEnregistreComposant = f_NumAutoEnregistrementElevesComposants() + 1
        rst!IdEcole = ctl.Column(0, i)
        rst!AnneeScol = ctl.Column(1, i)
        rst!NumInsCreleve = ctl.Column(2, i)
        rst!Mleeleve = ctl.Column(3, i)
        rst!Nom_Prenoms_EleveComposant = ctl.Column(4, i)
        rst!COMPOSITION = ctl1.Column(0)
        rst!NiveauCompositionFrancais = ctl2.Column(0)
        rst.Update
    Next i
End If
With ctl
    .RowSource = .RowSource
End With
Set rst = Nothing
Set dbs = Nothing
End Sub

Encore merci de bien vouloir m'aider.

Cordialement.

[hyperion13]

Re
Pourquoi vous entêtez-vous à utiliser cette fonction, alors qu'il suffirait dans la tbl Tbl_EVALUATION_NIVEAU_SCOLAIRE de mettre NumEnregistreComposant en NuméroAuto !

Code :

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

oRS.Fields("NumEnregistreComposant") = f_NumAutoEnregistrementElevesComposants() + 1 '.Column(0, Itm)

Je suis étonné de votre erreur 3075, puisqu'en arrière plan les lignes sélectionnées dans votre listbox contiennent des valeurs et les 2 combobox également. Le problème ne vient pas de la portion de code que je vous ai donné.
Concernant le problème de doublon malgré la sub, le problème vient de SelectItem et Dcount(), puisque le traitement se fait par bloc de lignes.
Selon capture d'écran Post#15
- vous sélectionnez seulement le MleEleve 517 et cliquez sur le btn, il est inséré dans votre Tbl_EVALUATION_NIVEAU_SCOLAIRE
- vous le re-sélectionnez à nouveau et cliquez sur le btn, le msg vous indique qu'il est déjà inséré.
- vous sélectionnez maintenant les MleEleve 517 et 592 et cliquez sur le btn, le bloc de ces 2 lignes est inséré dans votre Tbl_EVALUATION_NIVEAU_SCOLAIRE puisqu'il n'existe pas dans votre Tbl_EVALUATION_NIVEAU_SCOLAIRE.
- vous le re-sélectionnez à nouveau ce bloc de 2 lignes et cliquez sur le btn, le msg vous indique qu'il est déjà inséré.

A mon avis, il n'y a pas 36 solutions pour résoudre ce défaut.
- soit vous faites en sorte de rafraichir votre listbox pour ne plus afficher les MleEleve qui ont été insérés dans votre Tbl_EVALUATION_NIVEAU_SCOLAIRE
- soit vous créez une tbl temporaire dans laquelle vous insérez vos lignes ou bloc de lignes, que l'on vide à chaque traitement, pour traitez ensuite les doublons.

[morobaboumar]

Bonjour membres du forum !

Pourquoi vous utilisez cette fonction, alors qu'il suffirait dans la tbl Tbl_EVALUATION_NIVEAU_SCOLAIRE de mettre NumEnregistreComposant en NuméroAuto !

Code :

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

oRS.Fields("NumEnregistreComposant") = f_NumAutoEnregistrementElevesComposants() + 1

1°) Après plusieurs essais, le NuméroAuto de Access est incontestablement efficace et meilleur. Néanmoins ma fonction ci dessus me donne
satisfaction.

2°) J'insiste sur:

Ce qui me manque dans ce code, et bien c'est le contrôle des doublons.
Je voudrais dire une fonction qui permettrais d’empercher les doublons lors d'un enregistrement individuel
ou d'un ensemble d'enregistrements.

Le manque est le contrôle total des doublons d'une manière ou d'une autre.

Je sus sure que vous avez les clefs (les moyens intellectuels) me permettant d'y arriver.
Je vous rappelle que je ne suis spécialiste en programmation.
Mais qui aime la programmation.

Cordialement.

[marot_r]

Bonjour.

J'avoue être un peu submergé par les informations.

Qu'est-ce qui doit être unique ? La valeur dans le champ [MleEleve] ? Une combinaison avec d'autre champ ?

A+