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 Message nom existant

Message nom existant

10 réponses
Avatar
Luis
Bonjour,
J'ai mis ceci en Avant Maj du champ société dans un formulaire:

Private Sub société_BeforeUpdate(Cancel As Integer)
If DCount("*", "CLIENTS", "[RAISON SOCIALE] =""" & Me.[RAISON SOCIALE] &
"""") > 0 Then
msgbox "Un client portant ce nom existe déjà..."
End If
Exit Sub

Cela fonctionne très bien lors que l'on saisie un nouveau nom et on valide,
mais si l'on s'apperçois que l'on a tout écrit en minuscules ou en majuscules
et que l'on veut rectifier (par exemple tartempion Sa et que l'on modifie par
Tartempion SA) on a à nouveau le message "Un client portant ce nom existe
déjà..." qui s'affiche, où dois-je mettre ce petit bout de code pour que le
message ne s'affiche que lorsque l'on saisi pour la première fois le nom et
plus après.
Je vous remercie.
Luis
Signaler un problème avec ce contenu

10 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
Pierre CFI [mvp]
bonjour
de toutes façons tu géres pas le Cancel
Private Sub société_BeforeUpdate(Cancel As Integer)
If DCount("*", "CLIENTS", "[RAISON SOCIALE] =""" & Me.[RAISON SOCIALE] &
"""") > 0 Then
If msgbox ("Un client portant ce nom " & If DLookup("*", "CLIENTS", "[RAISON SOCIALE] =""" & Me.[RAISON SOCIALE] &
"""") & " existe déjà...Modifier ????",VbyesNo) = VbYes then
Cancel = false
else
Cancel = true
End If
end if
Exit Sub

'ici je fais apparraitre le nom déjà inscrit
--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Luis" a écrit dans le message de news:
Bonjour,
J'ai mis ceci en Avant Maj du champ société dans un formulaire:

Private Sub société_BeforeUpdate(Cancel As Integer)
If DCount("*", "CLIENTS", "[RAISON SOCIALE] =""" & Me.[RAISON SOCIALE] &
"""") > 0 Then
msgbox "Un client portant ce nom existe déjà..."
End If
Exit Sub

Cela fonctionne très bien lors que l'on saisie un nouveau nom et on valide,
mais si l'on s'apperçois que l'on a tout écrit en minuscules ou en majuscules
et que l'on veut rectifier (par exemple tartempion Sa et que l'on modifie par
Tartempion SA) on a à nouveau le message "Un client portant ce nom existe
déjà..." qui s'affiche, où dois-je mettre ce petit bout de code pour que le
message ne s'affiche que lorsque l'on saisi pour la première fois le nom et
plus après.
Je vous remercie.
Luis


Avatar
Luis
Bonjour Pierre,
Je n'ai pas besoin de confirmer la modification à cet endroit.
Dans le formulaire il y a déjà un bouton Modifier, un bouton Valider et un
bouton Annuler.
Ce code je l'avais mis uniquement pour que l'on ne saisisse pas par
indavertance 2 fois un même Client.
Ce que j'aimerai maintenant, c'est que l'avertissement ne se fasse que lors
d'une nouvelle saisie ou pour m'exprimer autrement, uniquement à la saisie
d'un nouveau client.
Merci.
Luis



bonjour
de toutes façons tu géres pas le Cancel
Private Sub société_BeforeUpdate(Cancel As Integer)
If DCount("*", "CLIENTS", "[RAISON SOCIALE] =""" & Me.[RAISON SOCIALE] &
"""") > 0 Then
If msgbox ("Un client portant ce nom " & If DLookup("*", "CLIENTS", "[RAISON SOCIALE] =""" & Me.[RAISON SOCIALE] &
"""") & " existe déjà...Modifier ????",VbyesNo) = VbYes then
Cancel = false
else
Cancel = true
End If
end if
Exit Sub

'ici je fais apparraitre le nom déjà inscrit
--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Luis" a écrit dans le message de news:
Bonjour,
J'ai mis ceci en Avant Maj du champ société dans un formulaire:

Private Sub société_BeforeUpdate(Cancel As Integer)
If DCount("*", "CLIENTS", "[RAISON SOCIALE] =""" & Me.[RAISON SOCIALE] &
"""") > 0 Then
msgbox "Un client portant ce nom existe déjà..."
End If
Exit Sub

Cela fonctionne très bien lors que l'on saisie un nouveau nom et on valide,
mais si l'on s'apperçois que l'on a tout écrit en minuscules ou en majuscules
et que l'on veut rectifier (par exemple tartempion Sa et que l'on modifie par
Tartempion SA) on a à nouveau le message "Un client portant ce nom existe
déjà..." qui s'affiche, où dois-je mettre ce petit bout de code pour que le
message ne s'affiche que lorsque l'on saisi pour la première fois le nom et
plus après.
Je vous remercie.
Luis







Avatar
Pierre CFI [mvp]
pourquoi tu parles de majuscules ??

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Luis" a écrit dans le message de news:
Bonjour Pierre,
Je n'ai pas besoin de confirmer la modification à cet endroit.
Dans le formulaire il y a déjà un bouton Modifier, un bouton Valider et un
bouton Annuler.
Ce code je l'avais mis uniquement pour que l'on ne saisisse pas par
indavertance 2 fois un même Client.
Ce que j'aimerai maintenant, c'est que l'avertissement ne se fasse que lors
d'une nouvelle saisie ou pour m'exprimer autrement, uniquement à la saisie
d'un nouveau client.
Merci.
Luis



bonjour
de toutes façons tu géres pas le Cancel
Private Sub société_BeforeUpdate(Cancel As Integer)
If DCount("*", "CLIENTS", "[RAISON SOCIALE] =""" & Me.[RAISON SOCIALE] &
"""") > 0 Then
If msgbox ("Un client portant ce nom " & If DLookup("*", "CLIENTS", "[RAISON SOCIALE] =""" & Me.[RAISON SOCIALE] &
"""") & " existe déjà...Modifier ????",VbyesNo) = VbYes then
Cancel = false
else
Cancel = true
End If
end if
Exit Sub

'ici je fais apparraitre le nom déjà inscrit
--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Luis" a écrit dans le message de news:
Bonjour,
J'ai mis ceci en Avant Maj du champ société dans un formulaire:

Private Sub société_BeforeUpdate(Cancel As Integer)
If DCount("*", "CLIENTS", "[RAISON SOCIALE] =""" & Me.[RAISON SOCIALE] &
"""") > 0 Then
msgbox "Un client portant ce nom existe déjà..."
End If
Exit Sub

Cela fonctionne très bien lors que l'on saisie un nouveau nom et on valide,
mais si l'on s'apperçois que l'on a tout écrit en minuscules ou en majuscules
et que l'on veut rectifier (par exemple tartempion Sa et que l'on modifie par
Tartempion SA) on a à nouveau le message "Un client portant ce nom existe
déjà..." qui s'affiche, où dois-je mettre ce petit bout de code pour que le
message ne s'affiche que lorsque l'on saisi pour la première fois le nom et
plus après.
Je vous remercie.
Luis









Avatar
Luis
Bonjour Pierre,
Les majuscules étaient un exemple.
Ce que j'aimerai: c'est que l'avertissement ne se fasse que lors
d'une nouvelle saisie ou pour m'exprimer autrement, uniquement à la saisie
d'un nouveau client.
Merci.
Luis


pourquoi tu parles de majuscules ??

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Luis" a écrit dans le message de news:
Bonjour Pierre,
Je n'ai pas besoin de confirmer la modification à cet endroit.
Dans le formulaire il y a déjà un bouton Modifier, un bouton Valider et un
bouton Annuler.
Ce code je l'avais mis uniquement pour que l'on ne saisisse pas par
indavertance 2 fois un même Client.
Ce que j'aimerai maintenant, c'est que l'avertissement ne se fasse que lors
d'une nouvelle saisie ou pour m'exprimer autrement, uniquement à la saisie
d'un nouveau client.
Merci.
Luis



bonjour
de toutes façons tu géres pas le Cancel
Private Sub société_BeforeUpdate(Cancel As Integer)
If DCount("*", "CLIENTS", "[RAISON SOCIALE] =""" & Me.[RAISON SOCIALE] &
"""") > 0 Then
If msgbox ("Un client portant ce nom " & If DLookup("*", "CLIENTS", "[RAISON SOCIALE] =""" & Me.[RAISON SOCIALE] &
"""") & " existe déjà...Modifier ????",VbyesNo) = VbYes then
Cancel = false
else
Cancel = true
End If
end if
Exit Sub

'ici je fais apparraitre le nom déjà inscrit
--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Luis" a écrit dans le message de news:
Bonjour,
J'ai mis ceci en Avant Maj du champ société dans un formulaire:

Private Sub société_BeforeUpdate(Cancel As Integer)
If DCount("*", "CLIENTS", "[RAISON SOCIALE] =""" & Me.[RAISON SOCIALE] &
"""") > 0 Then
msgbox "Un client portant ce nom existe déjà..."
End If
Exit Sub

Cela fonctionne très bien lors que l'on saisie un nouveau nom et on valide,
mais si l'on s'apperçois que l'on a tout écrit en minuscules ou en majuscules
et que l'on veut rectifier (par exemple tartempion Sa et que l'on modifie par
Tartempion SA) on a à nouveau le message "Un client portant ce nom existe
déjà..." qui s'affiche, où dois-je mettre ce petit bout de code pour que le
message ne s'affiche que lorsque l'on saisi pour la première fois le nom et
plus après.
Je vous remercie.
Luis














Avatar
Pierre CFI [mvp]
essaie la modif
"Ucase([RAISON SOCIALE]) =""" & Ucase(Me.[RAISON SOCIALE])....

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Luis" a écrit dans le message de news:
Bonjour Pierre,
Les majuscules étaient un exemple.
Ce que j'aimerai: c'est que l'avertissement ne se fasse que lors
d'une nouvelle saisie ou pour m'exprimer autrement, uniquement à la saisie
d'un nouveau client.
Merci.
Luis


pourquoi tu parles de majuscules ??

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Luis" a écrit dans le message de news:
Bonjour Pierre,
Je n'ai pas besoin de confirmer la modification à cet endroit.
Dans le formulaire il y a déjà un bouton Modifier, un bouton Valider et un
bouton Annuler.
Ce code je l'avais mis uniquement pour que l'on ne saisisse pas par
indavertance 2 fois un même Client.
Ce que j'aimerai maintenant, c'est que l'avertissement ne se fasse que lors
d'une nouvelle saisie ou pour m'exprimer autrement, uniquement à la saisie
d'un nouveau client.
Merci.
Luis



bonjour
de toutes façons tu géres pas le Cancel
Private Sub société_BeforeUpdate(Cancel As Integer)
If DCount("*", "CLIENTS", "[RAISON SOCIALE] =""" & Me.[RAISON SOCIALE] &
"""") > 0 Then
If msgbox ("Un client portant ce nom " & If DLookup("*", "CLIENTS", "[RAISON SOCIALE] =""" & Me.[RAISON SOCIALE] &
"""") & " existe déjà...Modifier ????",VbyesNo) = VbYes then
Cancel = false
else
Cancel = true
End If
end if
Exit Sub

'ici je fais apparraitre le nom déjà inscrit
--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Luis" a écrit dans le message de news:
Bonjour,
J'ai mis ceci en Avant Maj du champ société dans un formulaire:

Private Sub société_BeforeUpdate(Cancel As Integer)
If DCount("*", "CLIENTS", "[RAISON SOCIALE] =""" & Me.[RAISON SOCIALE] &
"""") > 0 Then
msgbox "Un client portant ce nom existe déjà..."
End If
Exit Sub

Cela fonctionne très bien lors que l'on saisie un nouveau nom et on valide,
mais si l'on s'apperçois que l'on a tout écrit en minuscules ou en majuscules
et que l'on veut rectifier (par exemple tartempion Sa et que l'on modifie par
Tartempion SA) on a à nouveau le message "Un client portant ce nom existe
déjà..." qui s'affiche, où dois-je mettre ce petit bout de code pour que le
message ne s'affiche que lorsque l'on saisi pour la première fois le nom et
plus après.
Je vous remercie.
Luis
















Avatar
Luis
Non, ça ne change rien.
Luis

essaie la modif
"Ucase([RAISON SOCIALE]) =""" & Ucase(Me.[RAISON SOCIALE])....

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Luis" a écrit dans le message de news:
Bonjour Pierre,
Les majuscules étaient un exemple.
Ce que j'aimerai: c'est que l'avertissement ne se fasse que lors
d'une nouvelle saisie ou pour m'exprimer autrement, uniquement à la saisie
d'un nouveau client.
Merci.
Luis


pourquoi tu parles de majuscules ??

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Luis" a écrit dans le message de news:
Bonjour Pierre,
Je n'ai pas besoin de confirmer la modification à cet endroit.
Dans le formulaire il y a déjà un bouton Modifier, un bouton Valider et un
bouton Annuler.
Ce code je l'avais mis uniquement pour que l'on ne saisisse pas par
indavertance 2 fois un même Client.
Ce que j'aimerai maintenant, c'est que l'avertissement ne se fasse que lors
d'une nouvelle saisie ou pour m'exprimer autrement, uniquement à la saisie
d'un nouveau client.
Merci.
Luis



bonjour
de toutes façons tu géres pas le Cancel
Private Sub société_BeforeUpdate(Cancel As Integer)
If DCount("*", "CLIENTS", "[RAISON SOCIALE] =""" & Me.[RAISON SOCIALE] &
"""") > 0 Then
If msgbox ("Un client portant ce nom " & If DLookup("*", "CLIENTS", "[RAISON SOCIALE] =""" & Me.[RAISON SOCIALE] &
"""") & " existe déjà...Modifier ????",VbyesNo) = VbYes then
Cancel = false
else
Cancel = true
End If
end if
Exit Sub

'ici je fais apparraitre le nom déjà inscrit
--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Luis" a écrit dans le message de news:
Bonjour,
J'ai mis ceci en Avant Maj du champ société dans un formulaire:

Private Sub société_BeforeUpdate(Cancel As Integer)
If DCount("*", "CLIENTS", "[RAISON SOCIALE] =""" & Me.[RAISON SOCIALE] &
"""") > 0 Then
msgbox "Un client portant ce nom existe déjà..."
End If
Exit Sub

Cela fonctionne très bien lors que l'on saisie un nouveau nom et on valide,
mais si l'on s'apperçois que l'on a tout écrit en minuscules ou en majuscules
et que l'on veut rectifier (par exemple tartempion Sa et que l'on modifie par
Tartempion SA) on a à nouveau le message "Un client portant ce nom existe
déjà..." qui s'affiche, où dois-je mettre ce petit bout de code pour que le
message ne s'affiche que lorsque l'on saisi pour la première fois le nom et
plus après.
Je vous remercie.
Luis





















Avatar
Pierre CFI [mvp]
remarque, pour étre franc, je comprend pas ton pb :o)

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Luis" a écrit dans le message de news:

Non, ça ne change rien.
Luis

essaie la modif
"Ucase([RAISON SOCIALE]) =""" & Ucase(Me.[RAISON SOCIALE])....

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Luis" a écrit dans le message de news:
Bonjour Pierre,
Les majuscules étaient un exemple.
Ce que j'aimerai: c'est que l'avertissement ne se fasse que lors
d'une nouvelle saisie ou pour m'exprimer autrement, uniquement à la saisie
d'un nouveau client.
Merci.
Luis


pourquoi tu parles de majuscules ??

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Luis" a écrit dans le message de news:
Bonjour Pierre,
Je n'ai pas besoin de confirmer la modification à cet endroit.
Dans le formulaire il y a déjà un bouton Modifier, un bouton Valider et un
bouton Annuler.
Ce code je l'avais mis uniquement pour que l'on ne saisisse pas par
indavertance 2 fois un même Client.
Ce que j'aimerai maintenant, c'est que l'avertissement ne se fasse que lors
d'une nouvelle saisie ou pour m'exprimer autrement, uniquement à la saisie
d'un nouveau client.
Merci.
Luis



bonjour
de toutes façons tu géres pas le Cancel
Private Sub société_BeforeUpdate(Cancel As Integer)
If DCount("*", "CLIENTS", "[RAISON SOCIALE] =""" & Me.[RAISON SOCIALE] &
"""") > 0 Then
If msgbox ("Un client portant ce nom " & If DLookup("*", "CLIENTS", "[RAISON SOCIALE] =""" & Me.[RAISON SOCIALE] &
"""") & " existe déjà...Modifier ????",VbyesNo) = VbYes then
Cancel = false
else
Cancel = true
End If
end if
Exit Sub

'ici je fais apparraitre le nom déjà inscrit
--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Luis" a écrit dans le message de news:

Bonjour,
J'ai mis ceci en Avant Maj du champ société dans un formulaire:

Private Sub société_BeforeUpdate(Cancel As Integer)
If DCount("*", "CLIENTS", "[RAISON SOCIALE] =""" & Me.[RAISON SOCIALE] &
"""") > 0 Then
msgbox "Un client portant ce nom existe déjà..."
End If
Exit Sub

Cela fonctionne très bien lors que l'on saisie un nouveau nom et on valide,
mais si l'on s'apperçois que l'on a tout écrit en minuscules ou en majuscules
et que l'on veut rectifier (par exemple tartempion Sa et que l'on modifie par
Tartempion SA) on a à nouveau le message "Un client portant ce nom existe
déjà..." qui s'affiche, où dois-je mettre ce petit bout de code pour que le
message ne s'affiche que lorsque l'on saisi pour la première fois le nom et
plus après.
Je vous remercie.
Luis























Avatar
Jessy Sempere [MVP]
Bonjour

Ce qu'il veut dire, c'est qu'il veut vérifier si l'enregistrement qu'il est
en train de saisir existe ou non.

Et cette vérification il ne veut la faire que lors de la première saisie
dans le champ, par quand il modifie le champ...

--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.fr.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Pierre CFI [mvp]" a écrit dans le message de
news:
remarque, pour étre franc, je comprend pas ton pb :o)

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Luis" a écrit dans le message de news:


Non, ça ne change rien.
Luis

essaie la modif
"Ucase([RAISON SOCIALE]) =""" & Ucase(Me.[RAISON SOCIALE])....

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Luis" a écrit dans le message de news:

Bonjour Pierre,
Les majuscules étaient un exemple.
Ce que j'aimerai: c'est que l'avertissement ne se fasse que lors
d'une nouvelle saisie ou pour m'exprimer autrement, uniquement à la
saisie
d'un nouveau client.
Merci.
Luis


pourquoi tu parles de majuscules ??

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Luis" a écrit dans le message de
news:
Bonjour Pierre,
Je n'ai pas besoin de confirmer la modification à cet endroit.
Dans le formulaire il y a déjà un bouton Modifier, un bouton
Valider et un
bouton Annuler.
Ce code je l'avais mis uniquement pour que l'on ne saisisse pas par
indavertance 2 fois un même Client.
Ce que j'aimerai maintenant, c'est que l'avertissement ne se fasse
que lors
d'une nouvelle saisie ou pour m'exprimer autrement, uniquement à la
saisie
d'un nouveau client.
Merci.
Luis



bonjour
de toutes façons tu géres pas le Cancel
Private Sub société_BeforeUpdate(Cancel As Integer)
If DCount("*", "CLIENTS", "[RAISON SOCIALE] =""" & Me.[RAISON
SOCIALE] &
"""") > 0 Then
If msgbox ("Un client portant ce nom " & If DLookup("*",
"CLIENTS", "[RAISON SOCIALE] =""" & Me.[RAISON SOCIALE] &
"""") & " existe déjà...Modifier ????",VbyesNo) = VbYes then
Cancel = false
else
Cancel = true
End If
end if
Exit Sub

'ici je fais apparraitre le nom déjà inscrit
--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Luis" a écrit dans le message de
news:
Bonjour,
J'ai mis ceci en Avant Maj du champ société dans un formulaire:

Private Sub société_BeforeUpdate(Cancel As Integer)
If DCount("*", "CLIENTS", "[RAISON SOCIALE] =""" & Me.[RAISON
SOCIALE] &
"""") > 0 Then
msgbox "Un client portant ce nom existe déjà..."
End If
Exit Sub

Cela fonctionne très bien lors que l'on saisie un nouveau nom et
on valide,
mais si l'on s'apperçois que l'on a tout écrit en minuscules ou
en majuscules
et que l'on veut rectifier (par exemple tartempion Sa et que
l'on modifie par
Tartempion SA) on a à nouveau le message "Un client portant ce
nom existe
déjà..." qui s'affiche, où dois-je mettre ce petit bout de code
pour que le
message ne s'affiche que lorsque l'on saisi pour la première
fois le nom et
plus après.
Je vous remercie.
Luis



























Avatar
Luis
Bonjour,
C'est exactement cela, je veux vérifier si le nom existe lors de la première
saisie dans le cahmp, après plus.
Comment faire ça?
Merci pour les conseils.
Luis


Bonjour

Ce qu'il veut dire, c'est qu'il veut vérifier si l'enregistrement qu'il est
en train de saisir existe ou non.

Et cette vérification il ne veut la faire que lors de la première saisie
dans le champ, par quand il modifie le champ...

--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.fr.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Pierre CFI [mvp]" a écrit dans le message de
news:
remarque, pour étre franc, je comprend pas ton pb :o)

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Luis" a écrit dans le message de news:


Non, ça ne change rien.
Luis

essaie la modif
"Ucase([RAISON SOCIALE]) =""" & Ucase(Me.[RAISON SOCIALE])....

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Luis" a écrit dans le message de news:

Bonjour Pierre,
Les majuscules étaient un exemple.
Ce que j'aimerai: c'est que l'avertissement ne se fasse que lors
d'une nouvelle saisie ou pour m'exprimer autrement, uniquement à la
saisie
d'un nouveau client.
Merci.
Luis


pourquoi tu parles de majuscules ??

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Luis" a écrit dans le message de
news:
Bonjour Pierre,
Je n'ai pas besoin de confirmer la modification à cet endroit.
Dans le formulaire il y a déjà un bouton Modifier, un bouton
Valider et un
bouton Annuler.
Ce code je l'avais mis uniquement pour que l'on ne saisisse pas par
indavertance 2 fois un même Client.
Ce que j'aimerai maintenant, c'est que l'avertissement ne se fasse
que lors
d'une nouvelle saisie ou pour m'exprimer autrement, uniquement à la
saisie
d'un nouveau client.
Merci.
Luis



bonjour
de toutes façons tu géres pas le Cancel
Private Sub société_BeforeUpdate(Cancel As Integer)
If DCount("*", "CLIENTS", "[RAISON SOCIALE] =""" & Me.[RAISON
SOCIALE] &
"""") > 0 Then
If msgbox ("Un client portant ce nom " & If DLookup("*",
"CLIENTS", "[RAISON SOCIALE] =""" & Me.[RAISON SOCIALE] &
"""") & " existe déjà...Modifier ????",VbyesNo) = VbYes then
Cancel = false
else
Cancel = true
End If
end if
Exit Sub

'ici je fais apparraitre le nom déjà inscrit
--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Luis" a écrit dans le message de
news:
Bonjour,
J'ai mis ceci en Avant Maj du champ société dans un formulaire:

Private Sub société_BeforeUpdate(Cancel As Integer)
If DCount("*", "CLIENTS", "[RAISON SOCIALE] =""" & Me.[RAISON
SOCIALE] &
"""") > 0 Then
msgbox "Un client portant ce nom existe déjà..."
End If
Exit Sub

Cela fonctionne très bien lors que l'on saisie un nouveau nom et
on valide,
mais si l'on s'apperçois que l'on a tout écrit en minuscules ou
en majuscules
et que l'on veut rectifier (par exemple tartempion Sa et que
l'on modifie par
Tartempion SA) on a à nouveau le message "Un client portant ce
nom existe
déjà..." qui s'affiche, où dois-je mettre ce petit bout de code
pour que le
message ne s'affiche que lorsque l'on saisi pour la première
fois le nom et
plus après.
Je vous remercie.
Luis
































Avatar
ze Titi
Bonjour Luis

Regarde du côté de la propriété Dirty de ton formulaire, ça pourrait
t'aider...


Bonjour,
C'est exactement cela, je veux vérifier si le nom existe lors de la première
saisie dans le cahmp, après plus.
Comment faire ça?
Merci pour les conseils.
Luis


Bonjour

Ce qu'il veut dire, c'est qu'il veut vérifier si l'enregistrement qu'il est
en train de saisir existe ou non.

Et cette vérification il ne veut la faire que lors de la première saisie
dans le champ, par quand il modifie le champ...

--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.fr.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Pierre CFI [mvp]" a écrit dans le message de
news:
remarque, pour étre franc, je comprend pas ton pb :o)

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Luis" a écrit dans le message de news:


Non, ça ne change rien.
Luis

essaie la modif
"Ucase([RAISON SOCIALE]) =""" & Ucase(Me.[RAISON SOCIALE])....

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Luis" a écrit dans le message de news:

Bonjour Pierre,
Les majuscules étaient un exemple.
Ce que j'aimerai: c'est que l'avertissement ne se fasse que lors
d'une nouvelle saisie ou pour m'exprimer autrement, uniquement à la
saisie
d'un nouveau client.
Merci.
Luis


pourquoi tu parles de majuscules ??

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Luis" a écrit dans le message de
news:
Bonjour Pierre,
Je n'ai pas besoin de confirmer la modification à cet endroit.
Dans le formulaire il y a déjà un bouton Modifier, un bouton
Valider et un
bouton Annuler.
Ce code je l'avais mis uniquement pour que l'on ne saisisse pas par
indavertance 2 fois un même Client.
Ce que j'aimerai maintenant, c'est que l'avertissement ne se fasse
que lors
d'une nouvelle saisie ou pour m'exprimer autrement, uniquement à la
saisie
d'un nouveau client.
Merci.
Luis



bonjour
de toutes façons tu géres pas le Cancel
Private Sub société_BeforeUpdate(Cancel As Integer)
If DCount("*", "CLIENTS", "[RAISON SOCIALE] =""" & Me.[RAISON
SOCIALE] &
"""") > 0 Then
If msgbox ("Un client portant ce nom " & If DLookup("*",
"CLIENTS", "[RAISON SOCIALE] =""" & Me.[RAISON SOCIALE] &
"""") & " existe déjà...Modifier ????",VbyesNo) = VbYes then
Cancel = false
else
Cancel = true
End If
end if
Exit Sub

'ici je fais apparraitre le nom déjà inscrit
--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Luis" a écrit dans le message de
news:
Bonjour,
J'ai mis ceci en Avant Maj du champ société dans un formulaire:

Private Sub société_BeforeUpdate(Cancel As Integer)
If DCount("*", "CLIENTS", "[RAISON SOCIALE] =""" & Me.[RAISON
SOCIALE] &
"""") > 0 Then
msgbox "Un client portant ce nom existe déjà..."
End If
Exit Sub

Cela fonctionne très bien lors que l'on saisie un nouveau nom et
on valide,
mais si l'on s'apperçois que l'on a tout écrit en minuscules ou
en majuscules
et que l'on veut rectifier (par exemple tartempion Sa et que
l'on modifie par
Tartempion SA) on a à nouveau le message "Un client portant ce
nom existe
déjà..." qui s'affiche, où dois-je mettre ce petit bout de code
pour que le
message ne s'affiche que lorsque l'on saisi pour la première
fois le nom et
plus après.
Je vous remercie.
Luis

























--
Voilou !
Bon code
Cordialement,

Ze Titi