Allo a tous, avez-vous un exemple concret qui m'aiderais a=20
enlever le message d'erreur d'acces lors de doublons dans=20
ma table et le remplacer par une message personnalis=E9?
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
3stone
Salut,
"jennyfer" Allo a tous, avez-vous un exemple concret qui m'aiderais a enlever le message d'erreur d'acces lors de doublons dans ma table et le remplacer par une message personnalisé?
Le plus simple est de vérifier par toi-même si la valeur existe déjà dans la table...
Donc, dans l'événement "Sur Avant mise à jour" de la zone de texte, tu mets un code du genre:
pour un champ texte...
If DCount("*","NomTable","NomChamp='" & Me.NomZoneDeTexte & "'") > 0 Then Msgbox "Pas bon ;-( " Cancel = True End If
si le champ est numérique, cela devient (plus simple):
If DCount("*","NomTable","NomChamp=" & Me.NomZoneDeTexte ) > 0 Then Msgbox "Pas bon ;-( " Cancel = True End If
-- A+ Pierre (3stone) Access MVP ~~~~~~~~~~~~~~~~~~~~~~~ http://users.skynet.be/mpfa http://users.skynet.be/accesshome
Salut,
"jennyfer"
Allo a tous, avez-vous un exemple concret qui m'aiderais a
enlever le message d'erreur d'acces lors de doublons dans
ma table et le remplacer par une message personnalisé?
Le plus simple est de vérifier par toi-même si la valeur
existe déjà dans la table...
Donc, dans l'événement "Sur Avant mise à jour" de la zone de texte,
tu mets un code du genre:
pour un champ texte...
If DCount("*","NomTable","NomChamp='" & Me.NomZoneDeTexte & "'") > 0 Then
Msgbox "Pas bon ;-( "
Cancel = True
End If
si le champ est numérique, cela devient (plus simple):
If DCount("*","NomTable","NomChamp=" & Me.NomZoneDeTexte ) > 0 Then
Msgbox "Pas bon ;-( "
Cancel = True
End If
--
A+
Pierre (3stone) Access MVP
~~~~~~~~~~~~~~~~~~~~~~~
http://users.skynet.be/mpfa
http://users.skynet.be/accesshome
"jennyfer" Allo a tous, avez-vous un exemple concret qui m'aiderais a enlever le message d'erreur d'acces lors de doublons dans ma table et le remplacer par une message personnalisé?
Le plus simple est de vérifier par toi-même si la valeur existe déjà dans la table...
Donc, dans l'événement "Sur Avant mise à jour" de la zone de texte, tu mets un code du genre:
pour un champ texte...
If DCount("*","NomTable","NomChamp='" & Me.NomZoneDeTexte & "'") > 0 Then Msgbox "Pas bon ;-( " Cancel = True End If
si le champ est numérique, cela devient (plus simple):
If DCount("*","NomTable","NomChamp=" & Me.NomZoneDeTexte ) > 0 Then Msgbox "Pas bon ;-( " Cancel = True End If
-- A+ Pierre (3stone) Access MVP ~~~~~~~~~~~~~~~~~~~~~~~ http://users.skynet.be/mpfa http://users.skynet.be/accesshome
jennifer
merci ca fonctionne
merci encore une fois
-----Message d'origine----- Salut,
"jennyfer" Allo a tous, avez-vous un exemple concret qui m'aiderais a enlever le message d'erreur d'acces lors de doublons dans ma table et le remplacer par une message personnalisé?
Le plus simple est de vérifier par toi-même si la valeur existe déjà dans la table...
Donc, dans l'événement "Sur Avant mise à jour" de la zone de texte,
tu mets un code du genre:
pour un champ texte...
If DCount("*","NomTable","NomChamp='" & Me.NomZoneDeTexte & "'") > 0 Then
Msgbox "Pas bon ;-( " Cancel = True End If
si le champ est numérique, cela devient (plus simple):
If DCount("*","NomTable","NomChamp=" & Me.NomZoneDeTexte ) > 0 Then
Msgbox "Pas bon ;-( " Cancel = True End If
-- A+ Pierre (3stone) Access MVP ~~~~~~~~~~~~~~~~~~~~~~~ http://users.skynet.be/mpfa http://users.skynet.be/accesshome
.
merci ca fonctionne
merci encore une fois
-----Message d'origine-----
Salut,
"jennyfer"
Allo a tous, avez-vous un exemple concret qui m'aiderais a
enlever le message d'erreur d'acces lors de doublons dans
ma table et le remplacer par une message personnalisé?
Le plus simple est de vérifier par toi-même si la valeur
existe déjà dans la table...
Donc, dans l'événement "Sur Avant mise à jour" de la zone
de texte,
tu mets un code du genre:
pour un champ texte...
If DCount("*","NomTable","NomChamp='" & Me.NomZoneDeTexte
& "'") > 0 Then
Msgbox "Pas bon ;-( "
Cancel = True
End If
si le champ est numérique, cela devient (plus simple):
If DCount("*","NomTable","NomChamp=" &
Me.NomZoneDeTexte ) > 0 Then
Msgbox "Pas bon ;-( "
Cancel = True
End If
--
A+
Pierre (3stone) Access MVP
~~~~~~~~~~~~~~~~~~~~~~~
http://users.skynet.be/mpfa
http://users.skynet.be/accesshome
"jennyfer" Allo a tous, avez-vous un exemple concret qui m'aiderais a enlever le message d'erreur d'acces lors de doublons dans ma table et le remplacer par une message personnalisé?
Le plus simple est de vérifier par toi-même si la valeur existe déjà dans la table...
Donc, dans l'événement "Sur Avant mise à jour" de la zone de texte,
tu mets un code du genre:
pour un champ texte...
If DCount("*","NomTable","NomChamp='" & Me.NomZoneDeTexte & "'") > 0 Then
Msgbox "Pas bon ;-( " Cancel = True End If
si le champ est numérique, cela devient (plus simple):
If DCount("*","NomTable","NomChamp=" & Me.NomZoneDeTexte ) > 0 Then
Msgbox "Pas bon ;-( " Cancel = True End If
-- A+ Pierre (3stone) Access MVP ~~~~~~~~~~~~~~~~~~~~~~~ http://users.skynet.be/mpfa http://users.skynet.be/accesshome
