Bonjour à tous,

J'ai créer un formulaire qui permet de rentrer de nouvelles références dans une table, cette table est constituée des champs : contact 1, contact 2, cable et référence, à chaque référence il y a une conbinaison différente.

Dans la formulaire, l'utilisateur choisit son contact1, le contact 2 et le cable, et saisie sa référence. Dans le cas où la référence serait déjà dans la table un message d'erreur apparaît, seulement dans ma table un nouvel enregistrement est créé avec le contact 1, le contact 2 et le cable choisit, sans la référence car déjà connue.

Mon problème est que si la référence est déjà connue je ne veux qu'aucun enregistrement nouveau soit créer et que la table ne soit pas modifié.

Comment dois-je procéder?

Voici 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
Private Sub RefHarnais_BeforeUpdate(Cancel As Integer)
 
If (DLookup("[RefHarnais]", _
"Harnais", "[RefHarnais] ='" _
& Me!RefHarnais & "'")) Then
 
MsgBox "Cette référence est déjà assignée à une combinaison. Assurez que vous avez correctement saisie votre référence (cette référence doit obligatoirement comportée 4 digits exemple : 0258)."
 
Termini1 = Null
Termini2 = Null
Cable = Null
 
 
Cancel = True
 
Me!RefHarnais.Undo
 
End If
End Sub
merci et bonne journée