Discussion :

[sedcacvgdms2016]

Bonjour à tous
J'ai un souci dans la gestion de mes contacts. Ayant créer une classe M.E.L.A pour la saisie des données, je me suis rendu compte
qu'un contact peut être enregistré plusieurs fois. j'ai tenté de mettre le macro ' Valider un contact 'suivant sur le bouton 'Créer' du formulaire

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
Option Compare Database
 
'------------------------------------------------------------
' Valider_un_Contact_ValiderMatricule
'
'------------------------------------------------------------
Function Valider_un_Contact_ValiderMatricule()
On Error GoTo Valider_un_Contact_ValiderMatricule_Err
 
    ' Macros attachées au formulaire Clients.
    ' Macro attachée à l'événement Avant MAJ du champ Code client.
    If (Eval("DLookUp(""[Mle d'incorporation]"",""[Contacts]"",""[Mle d'incorporation] = Form.[Mle d'incorporation] "") Is Not Null")) Then
        ' Si la valeur de Code client n'est pas unique, afficher un message.
        Beep
        MsgBox "La personne dont le matricule vient d'être tapé existe déjà. Veuillez Passer au suivant S.V.P.", vbInformation, "Matricule dupliqué"
        ' Revient au contrôle Code client.
        DoCmd.CancelEvent
    End If
 
 
Valider_un_Contact_ValiderMatricule_Exit:
    Exit Function
 
Valider_un_Contact_ValiderMatricule_Err:
    MsgBox Error$
    Resume Valider_un_Contact_ValiderMatricule_Exit
 
End Function
 
 
'------------------------------------------------------------
' Valider_un_Contact_MAJListeNom
'
'------------------------------------------------------------
Function Valider_un_Contact_MAJListeNom()
On Error GoTo Valider_un_Contact_MAJListeNom_Err
 
    ' Macro attachée à l'événement Après MAJ du formulaire.
    ' Actualise le contrôle Nom.
    DoCmd.Requery "First Name"
 
 
Valider_un_Contact_MAJListeNom_Exit:
    Exit Function
 
Valider_un_Contact_MAJListeNom_Err:
    MsgBox Error$
    Resume Valider_un_Contact_MAJListeNom_Exit
 
End Function

qui devrait d'après moi contrôler et m'alerter en cas de doublon, sur le matricule d'incorporation unique attribué à chaque contact, voir le formulaire suivant . Le MSGBox suivant apparait . je ne sais plus comment résoudre ce problème. quelqu'un peut-il m'aider ?

[loufab]

Bonjour,

La classe MELA ne prend pas en charge la détection de doublon, celle-ci doit être faites en amont, directement dans la table en réglant le champ correspondant comme ceci :

Indexé : Oui Sans Doublon.

et en vérifiant lors de la saisie de celui-ci qu'il n'existe pas déjà. Via le Avant MAJ du contrôle correspondant.

Par contre l'utilisation de EVAL() est tout à fait inutile ici :

Code :

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

   If (Eval("DLookUp(""[Mle d'incorporation]"",""[Contacts]"",""[Mle d'incorporation] = Form.[Mle d'incorporation] "") Is Not Null")) Then

il faut simplement utiliser :

Code :

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

1
2
 
 If not isnull(DLookUp("[Mle d'incorporation]","[Contacts]","[Mle d'incorporation] =" &  me.[Mle d'incorporation] )) Then

Cordialement,