Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Eviter les doublons

Eviter les doublons

5 réponses
Avatar
Luis
Bonjour,
Comment faire pour que lors de la saisie d'un client dans un formulaire, le
champ dans lequel on saisi le nom aille chercher dans la table si ce nom
existe et créer un message d'avertissement.
Luis
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Eric
Bonjour,

La réponse de Pierre(3Stone) ne convient pas ?
<Copie>
Dans l'événement "Avant mise à jour" de champ, tu mets:

if DCount("*","NomTable","Champ='" & Me.Champ & "'")>0 then
msgBox "Existe déjà..."
Cancel = True
End if
</Copie>

Attention toutefois aux homonymies
--
A+
Eric
Un petit tour ici : http://users.skynet.be/mpfa/
Accès aux archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Bonjour,
Comment faire pour que lors de la saisie d'un client dans un formulaire, le
champ dans lequel on saisi le nom aille chercher dans la table si ce nom
existe et créer un message d'avertissement.
Luis


Avatar
Pierre CFI [mvp]
bonjour
tu mets un index sans doublon sur ce champ

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net

"Eric" a écrit dans le message de news:
Bonjour,

La réponse de Pierre(3Stone) ne convient pas ?
<Copie>
Dans l'événement "Avant mise à jour" de champ, tu mets:

if DCount("*","NomTable","Champ='" & Me.Champ & "'")>0 then
msgBox "Existe déjà..."
Cancel = True
End if
</Copie>

Attention toutefois aux homonymies
--
A+
Eric
Un petit tour ici : http://users.skynet.be/mpfa/
Accès aux archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Bonjour,
Comment faire pour que lors de la saisie d'un client dans un formulaire, le champ dans lequel on saisi le nom aille chercher dans
la table si ce nom existe et créer un message d'avertissement.
Luis




Avatar
Eric
Bonjour Pierre,

En forme ?
Oui pourquoi pas ...

--
A+
Eric


bonjour
tu mets un index sans doublon sur ce champ



Avatar
Pierre CFI [mvp]
çà va, merci :o)

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net

"Eric" a écrit dans le message de news: uTX$
Bonjour Pierre,

En forme ?
Oui pourquoi pas ...

--
A+
Eric


bonjour
tu mets un index sans doublon sur ce champ





Avatar
Luis
Bonjour,
Super, voilà comment je l'ai arrangé:
Dim x As Integer
if DCount("*","NomTable","Champ='" & Me.Champ & "'")>0 then
End If
x = MsgBox("Un client avec ce nom existe déjà,@Voulez-vous continuer?@ ",
vbYesNo + vbQuestion)
If x = vbNo Then
MsgBox "Vous pouvez mettre cette entrée à la corbeille"
Else: x = vbYes
End If
Exit Sub
Merci pour le coup de main.
Luis


Bonjour,

La réponse de Pierre(3Stone) ne convient pas ?
<Copie>
Dans l'événement "Avant mise à jour" de champ, tu mets:

if DCount("*","NomTable","Champ='" & Me.Champ & "'")>0 then
msgBox "Existe déjà..."
Cancel = True
End if
</Copie>

Attention toutefois aux homonymies
--
A+
Eric
Un petit tour ici : http://users.skynet.be/mpfa/
Accès aux archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Bonjour,
Comment faire pour que lors de la saisie d'un client dans un formulaire, le
champ dans lequel on saisi le nom aille chercher dans la table si ce nom
existe et créer un message d'avertissement.
Luis