Discussion :

[CrasherSEP]

Bonjour,

J'aimerais éviter des doublons, mais sur deux critères, je m'explique...

Structure:
Une table [Personnes], contenant les champs ID, Nom et Prénom
Une table (Encodage], contenant plusieurs champs, dont un champ [Année] (2018,2019,2020,2021...) et une liste déroulante contenant la table [Personnes]
Un formulaire reprenant le table [Encodage]

Demande :
J'aimerais pouvoir encoder par exemple:

• LOUIS Lambert avec l'année 2019
• LOUIS Lambert avec l'année 2020
• ...

Mais surtout, ne pas pouvoir encoder:

• LOUIS Lambert avec l'année 2019
• LOUIS Lambert avec l'année 2019

Auriez-vous une astuce pour cela ? Car il est très simple d'empêcher un doublon via l'option (Sans doublons), mais juste pour un champ...

Merci d'avance pour votre aide

[marot_r]

Bonjour.

Tu peux utiliser un index unique composé pour cela :

1. Tu vas dans ta table en mode conception.
2. Tu appuis sur l'icône Index (celle avec l'éclair)
3. Sur une ligne vierge dans la 1ère colonne tu donnes un nom à ton index (ex : Unicite) puis dans la seconde colonnes tu choisis le champs idPersonne.
4. En bas sous les lignes, tu coches "Unique".
5. Sur la ligne en dessous, dans la 2ième colonne, tu choisis l'année.

Attention il y a 2 soucis avec cette solutions :

1. Tu n'es prévenu du doublon qu'au moment de la confirmation de l'ajout ou de la modification.
   Si tu veux autre chose que le message standard, il faut prévoir du code dans l'événement Sur Erreur du formulaire.
2. Si un des champs est null, Access ne voit plus l'unicité.
   Donc tu peux avoir un nombre infini de IdPersonne, Null ou de Null, Annee.
   Si c'est une possibilité, il faut du code pour valider cela et l'empécher.

A+

[tee_grandbois]

bonjour CrasherSEP et marot_r

Attention il y a 2 soucis avec cette solutions :

Tu n'es prévenu du doublon qu'au moment de la confirmation de l'ajout ou de la modification.
Si tu veux autre chose que le message standard, il faut prévoir du code dans l'événement Sur Erreur du formulaire.
Si un des champs est null, Access ne voit plus l'unicité.
Donc tu peux avoir un nombre infini de IdPersonne, Null ou de Null, Annee.
Si c'est une possibilité, il faut du code pour valider cela et l'empécher.

une illustratoin de la proposition de marot_r
MAIS on peut empêcher la saisie de valeur nulle avec la propriété Nul interdit à Oui:


et le message d'erreur de doublon apparait lors de la saisie:

[CrasherSEP]

Bonjour,

Super ! Merci beaucoup, je regarde à cela tantôt...

[CrasherSEP]

Bonjour,

Super cela fonctionne :-)

Est-il possible de modifier le message affiché lors d'un doublon ? Que dois-je mettre dans [Avant enregistrement] pour afficher un message d'erreur ?

J'aimerais aussi que le test se fasse dès l'ajout d'une personne ou de l'année, ne pas attendre la fin de tout l'encodage pour voir qu'il y a un problème à la base... donc faire qu'[Après mise à jour] l'enregistrement se fasse automatiquement... :-)

Merci pour votre aide :-)

[tee_grandbois]

bonjour,

Que dois-je mettre dans [Avant enregistrement] pour afficher un message d'erreur ?

Est-ce que l'évènement [Avant enregistrement] correspond à [Avant MAJ] ou BeforeUpdate dans la version 2007 ?

Peu importe car ce n'est pas ici qu'il faut trapper l'erreur, c'est dans Form.Error [Sur erreur].
Un exemple ici:https://docs.microsoft.com/fr-FR/off...ess.Form.Error

[CrasherSEP]

J'aimerais sur l'erreur afficher une boîte de dialogue me donnant soit le choix de modifier les champs, soit de simuler un Esc, mais mon code ne fonctionne pas...

Code :

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

1
2
3
4
5
6
7
Private Sub Form_Error(DataErr As Integer, Response As Integer)
If MsgBox("Voulez-vous faire une remise à zéro !", vbYesNo + vbInformation, "Message") = vbYes Then
       SendKeys "{Escape}"
    Else
       MsgBox "Modifiez les champs !", vbInformation, "Message"
    End If
End Sub

[tee_grandbois]

pourquoi faire compliqué ?
le SendKeys "{Escape}" est la pire des solutions d'autant plus que la commande Undo fait la même chose.

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
Private Sub Form_Error(DataErr As Integer, Response As Integer)
    Select Case DataErr
        Case 3022      ' doublon dans un index
            MsgBox "Cette valeur existe déjà dans la table"    ' ici ton message personnalisé 
            Response = acDataErrContinue
            If Me.NewRecord Then   ' si c'est un nouvel enregistrement
                Me.Undo         ' Annulation complète de la saisie (même effet que la touche Echap)
            Else
                Me.ActiveControl.Value = Me.ActiveControl.OldValue  ' on restaure l'ancienne valeur si c'est un enregistrement existant
            End If
        Case Else
            Response = acDataErrDisplay
    End Select
 
End Sub

[CrasherSEP]

Super, cela fonctionne nickel :-)
Merci :-)

[tee_grandbois]

de rien. Si cela fonctionne n'oublie pas de fermer la discussion (bouton )

[CrasherSEP]

Bonjour,

J'ai un problème... lorsque ma réponse est "Non", il n'y a pas de problème, mais lorsque ma réponse est "Oui", il faudrait que mes trois champs soient en [Enabled = True] et cela ne fonctionne pas..., j'ai l'impression que la ligne n'est même pas lue...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Select Case DataErr
        Case 3022      ' doublon dans un index
            MsgBox "Cette fiche existe déjà pour ce bénéficiaire "    ' ici ton message personnalisé
            Response = acDataErrContinue
            If Me.NewRecord Then   ' si c'est un nouvel enregistrement
                If MsgBox("Voulez-vous pouvoir modifier le nom ou l'année ?", vbYesNo, "Titre") = vbNo Then Me.Undo: DoCmd.GoToRecord , , acFirst     ' Annulation complète de la saisie (même effet que la touche Echap)
            Else
            Me.AFFILIE.Enabled = True: Me.ANNEE_EN_COURS.Enabled = True: Me.COMPTE_BANQUE.Enabled = True
            End If
        Case Else
            Response = acDataErrDisplay
    End Select

Une idée ?

[tee_grandbois]

bonjour,
tu persistes dans la complexité... ce n'est pas ce que je t'ai conseillé de faire:

Code :

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

1
2
3
4
                If MsgBox("Voulez-vous pouvoir modifier le nom ou l'année ?", vbYesNo, "Titre") = vbNo Then Me.Undo: DoCmd.GoToRecord , , acFirst     ' Annulation complète de la saisie (même effet que la touche Echap)
            Else
            Me.AFFILIE.Enabled = True: Me.ANNEE_EN_COURS.Enabled = True: Me.COMPTE_BANQUE.Enabled = True
            End If

Ici il faut faire un Me.Undo et rien d'autre ...

[CrasherSEP]

Ok