Discussion :

[tee_grandbois]

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+

bonjour marot_r,
l'unicité est dans le critère du DCount() même si on peut en éliminer nom et prénom de l'élève qui n'a pas de sens puisqu'on a l'identifiant (MleEleve):

Code :

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

1
2
3
4
5
6
7
8
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) & "' "

Mais comme l'a dit hyperion13, cette application ressemble tellement à une usine à gaz qu'il est difficile de proposer une solution fiable et viable à la fois ...

[morobaboumar]

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+

Bonsoir membres du forum !

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

Elle devrait empecher les "NumInsCreleve", "MleEleve" et "Nom_Prenoms_EleveComposant" d'avoir des
doublons dans la table "Tbl_EVALUATION_NIVEAU_SCOLAIRE".
Maintenant, les autres champs pas de soucis à en avoir.

Peut être que je n'arrive pas à vous convaincre mais si vous observez bien ma fonction de gestion de doublons, vous pourriez
savoir qu'est ce que je recherche comme résultat final. Loin de baisser les bras, je pense qu'on aura la solution qui marche.
Cordialement.

[marot_r]

Bonjour.

Elle devrait empecher les "NumInsCreleve", "MleEleve" et "Nom_Prenoms_EleveComposant" d'avoir des doublons

Donc déjà il faut que tu définisses un index unique composé des champs :

• "NumInsCreleve",
• "MleEleve"
• "Nom_Prenoms_EleveComposant"

Pas trois indexes uniques composés d'un champ mais bien un seul index qui prend les 3 champs.

Et en toute honnêteté, utiliser le nom et le prénom au lieu d'un identifiant unique est une mauvaise idée.
Il y a assez souvent des gens qui portent le même nom et le même prénom.
Utiliser un numéro ou un code unique serait plus sécuritaire.

Ensuite on peut écrire ta fonction de manière beaucoup plus directe :

Code :

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

1
2
3
dim nbElement as long
nbElement=DCount("*", "Tbl_EVALUATION_NIVEAU_SCOLAIRE", "IdEcole = " & ETABL & "and NumInsCreleve =" & NumInsc & "and MleEleve =" & Mleelv & "and AnneeScol ='" & Ansco & "'and COMPOSITION =" & Composi & "and NiveauCompositionFrancais ='" & NivCompo & "'")
fEstEleveDejaComposant=(nbElement<>0)

Et peux-tu poster le code qui fait vraiment l'ajout ?

A+

[morobaboumar]

Et peux-tu poster le code qui fait vraiment l'ajout ?
A+

Bonsoir marot_r !
Voici le code d'ajout:
il y en a deux:
1°)

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
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
    'Forms("FrmEnregistreCmdeArticlesScol_Divers").ArticlesScolairesEnregistres_Achetes_SF_Plus.Requery
    ListeELEVES_ANNEE_CLASSE.RowSource = ListeELEVES_ANNEE_CLASSE.RowSource
    End With
 
End Sub

oubien

2°)

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
 
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
Dim stMsg As String
 
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
 
 '__________________________________________
 '__________________________________________
 If Not IsNull(ctl.ItemsSelected.Count) Then
 MsgBox "Voulez-vous insérer les élèves suivants:"
For Each i In ctl.ItemsSelected
        stMsg = stMsg & ctl.Column(4, i) & vbCrLf
    Next i
 
' Confirmer l'insertion des élèves
    'stMsg = stMsg & "?"
    If MsgBox(stMsg, vbQuestion + vbYesNo) = vbNo Then 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
    ListeELEVES_ANNEE_CLASSE.RowSource = ListeELEVES_ANNEE_CLASSE.RowSource
 
End With
Set rst = Nothing
Set dbs = Nothing
End Sub

Donc déjà il faut que tu définisses un index unique composé des champs :
"NumInsCreleve",
"MleEleve"
"Nom_Prenoms_EleveComposant"

Dois je créer un nouveau champ contenant les 3 index en même temps ?

Cordialement.

[marot_r]

Bonjour.

Dois je créer un nouveau champ contenant les 3 index en même temps ?

Non tu dois créer un index qui utilise les 3 champs, pas un nouveau champ.

L'index unique va garantir que tu n'auras pas de doublons.

Je regarde ton code et je te reviens.

A+

[marot_r]

Re-Bonjour.

Je te suggère la modif 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
 
    dim critere as string
 
    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)
 
        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

Un autre solution consisterai à ajouter sans s'occuper de savoir si c'est un doublon et de gérer l'erreur de doublon en ignorant l'insertion mais je trouve cela moins "propre".
Note que si tu avais beaucoup de données dans ta table cette option serait sans doute plus rapide que de valider avant si l'enregistrement existe.

Pour ton autre code, si j'ai bien compris, il ne crée déjà pas de doublon donc pas de modif à faire selon moi.

A+

[morobaboumar]

Bonsoir membres du forum !
Le code proposé par marot_r marche.
J'y ai ajouté 2 critères supplémentaires (& " and [COMPOSITION]=" & Me.ListeComposition_Evaluation _
& " and [NiveauCompositionFrancais]='" & Me.ListeNiveauEVALUATION & "'")

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

Résultats:




Cordialement.

[morobaboumar]

Bonsoir membres du forum !
Je vous remercie infiniment tous sans exception.

Franchement, vous m'avez particulièrement rendu très solide
car vous êtes d'éminents experts qui arrivez à former même les plus nuls.

Je crois que mon "Usine à gaz" ne fera pas de fuites de gaz !

Merci merci merci votre galanterie vous confère l'honneur et la dignité du bon sens.

Cordialement.