Message erreur doublon

Le
Jorge
Bonjour à tous,

Comment faut-il s'y prendre pour remplacer sur un formulaire, le message
d'erreur access qui signal un risque de doublon, par un autre message plus
sympa.

Merci pour vos lumières.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Eric
Le #6193921
Bonjour,

Sur l'évènement Avant Mise à jour du formulaire, faire une recherche de
l'existence via la fonction Dcount() et suivant le cas Mettre Cancel à True
Ca pourrait donner quelque chose comme:
Private Sub Form_BeforeUpdate(Cancel As Integer)
If Dcount("NomChamp","LaTable","NomChamp='" & Me.NomChamp & "'") >0 Then
MsgBox "Existe déjà", vbInformation
Cancel=True
End If
End Sub

A adapter. NomChamp est supposé de type Texte. Si numérique :
If Dcount("NomChamp","LaTable","NomChamp=" & Me.NomChamp ) >0 Then

Bonjour à tous,

Comment faut-il s'y prendre pour remplacer sur un formulaire, le message
d'erreur access qui signal un risque de doublon, par un autre message plus
sympa.

Merci pour vos lumières.




--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Publicité
Poster une réponse
Anonyme