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 :
merci et bonne journée
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
Partager