Discussion :

[vivicente]

Bonjour, voilà j'ai un problème dans un formulaire.J'ai crée une base de données qui gère des équipements.

J'ai aussi ajouter sur le formulaire un bouton permettant d'ajouter un enregistrement.
Pour éviter les doublons, j'ai exécuté sur sortie du code VBA:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
Private Sub TMODELE_LIBELLEMODELE_Exit(Cancel As Integer)
If DCount("TMODELE_LIBELLEMODELE", "TMODELEEQUIPEMENT", "TMODELE_LIBELLEMODELE = Formulaires![Formulairev2]![TMODELEEQUIPEMENT].Form![TMODELE_LIBELLEMODELE] ") = 0 Then
 
Else
MsgBox "Cet équipement existe déjà !"
End If
 
End Sub

J'ai bien un message d'erreur qui s'ouvre lorsque je rentre un équipement existant. cependant quand je clique sur OK sur le message d'erreur, l'équipement est rajouté à la base alors qu'il ne devrait pas l'être.

Qu'est ce que je dois rajouter ?? Dois je modifier la macro du bouton ou ajouter du code VBA.

Merci de vos réponses !!

[vavou]

Regarde dans les propriété de ton bouton

[alaingui]

Et un petit
me.undo dans le code pour annuler ta saisie ?

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub TMODELE_LIBELLEMODELE_Exit(Cancel As Integer)
If DCount("TMODELE_LIBELLEMODELE", "TMODELEEQUIPEMENT", "TMODELE_LIBELLEMODELE = Formulaires![Formulairev2]![TMODELEEQUIPEMENT].Form![TMODELE_LIBELLEMODELE] ") = 0 Then
 
Else
MsgBox "Cet équipement existe déjà !"
me.undo
End If
 
End Sub

[vivicente]

Je te remercie en générant du code sur entrée et en rajoutant cette petite ligne de code , ça fonctionne