Discussion :

[ludovicparis]

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

[helas]

plus exactement

Code :

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

1
2
3
4
 
If (DLookup("[RefHarnais]", _
"Harnais", "[RefHarnais] ='" _
& Me!RefHarnais & "'")) Then

remplacé par

Code :

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

1
2
If Not IsNull(DLookup("[RefHarnais]", "Harnais", "[RefHarnais] ='" & Me!RefHarnais & "'")) Then

[ludovicparis]

Je te remercie, ça a résolue une partie de mon problème, mais j'ai toujours une nouvel enregistrement de créer, tous les champs sont vides dans cet enregistrement mais j'aimerais que ce nouvel enregistrement ne soit pas créer ou sinon si c'est pas possible, de la supprimer lorsque l'on ferme le formulaire.

[PASCAL_CD]

bonjour Essaie

Code :

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

Me.form.Undo