Discussion :

[Jupaysan]

Bonjour,

J'ai parcouru le forum et trouver quelques sujets traitant des alertes de doublons mais malheureusement je n'arrive pas à adapter le code.
Je n'arrive pas à détecter l'erreur.

Voici mon code:
CE_ID est un champ type numéroautomatique,
ETU_ID est un champ de type texte

La clé primaire est constituée des champs CE_ID et ETU_ID. Donc, il y aura doublon si pour un enregistrement, on a la même valeur de CE_ID et ETU_ID.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CE_ID_BeforeUpdate(Cancel As Integer)
If IsNull(CE_ID) Then Exit Sub
If DCount([CE_ID], "74_T_Etude+Centre", "[CE_ID] =" & Me.CE_ID And "[ETU_ID] = '" & Me.ETU_ID & "'") <> 0 Then
Dim reponse As String
reponse = MsgBox("Cet ajout ferait doublons", vbYesNo + vbQuestion, "Question")
    If reponse = vbNo Then
    Cancel = True
    Me.Undo
    End If
End If
End Sub

Merci pour votre précieuse aide.

[Jeannot45]

Je pense que le type des données étant différent, cela ne peut pas fonctionner.
Petite question : CE_ID et ETU_ID sont -ils dans la même table ?
Que représentent ces deux champs. Si CE_ID est un numéro auto que représente ETU_ID

Bonne continuation

[Jupaysan]

Je pense que le type des données étant différent, cela ne peut pas fonctionner.
Petite question : CE_ID et ETU_ID sont -ils dans la même table ?
Que représentent ces deux champs. Si CE_ID est un numéro auto que représente ETU_ID

Bonne continuation

Bonjour Jeannot,

Oui, CE_ID et ETU_ID sont dans la même table.
En effet, CE_ID de type numérique, est la clé primaire d'une autre table (Table 1), ETU_ID, de type texte, et est la clé primaire d'une autre table (Table 2).
La relation entre la table 1 et table 2 étant de type plusieurs à plusieurs, j'ai créé une table 3 composé de CE_ID et ETU_ID comme clé primaire.

Je ne sais pas si c'est un peu plus claire.

Merci