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 Valeur incorrecte pour ce champ

Valeur incorrecte pour ce champ

14 réponses
Avatar
domivax
Bonjour =E0 tous,

J'ai MaTable avec MonChamp, MonFormulaire, MonTextBox et MonBouton.

La source de MonFormulaire est MaTable et la source contr=F4le de
MonTextBox est MonChamp.

MonChamp est un champ num=E9rique.

Sous MonBouton j'ai l'instruction de validation pour si jamais
l'utilisateur introduit une lettre :

If IsNumeric(Me. MonTextBox.Value) =3D False Then
MonMessage
Exit Sub
End If

Mais si effectivement, l'utilisateur introduit une lettre dans
MonTextBox, il appara=EEt le message Access : Valeur incorrecte pour ce
champ.

Comment passer outre ce message car je voudrais que l'erreur soit
g=E9r=E9e par mon IsNumeric=3DFalse

Merci pour votre aide.
A bient=F4t
Xavier
Signaler un problème avec ce contenu

4 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
1 2
Avatar
domivax
excusez-moi encore, en faisant mes tests,

ça m'interdit également l'introduction de décimales !

alors que ça devrait être permis.

Bonne soirée
Xavier
Avatar
Michel_D
Bonjour,

Ben ouais, le point ou la virgule c'est pas un caractère numérique.


a écrit dans le message de news:
excusez-moi encore, en faisant mes tests,

ça m'interdit également l'introduction de décimales !

alors que ça devrait être permis.

Bonne soirée
Xavier
Avatar
Michel_D
Sur l'évenement change de tes contrôles numériques met le code :

If Len(Me.TonControle.Text) > 0 And Not IsNumeric(Me.TonControle.Text) Then
Me.TonControle.Undo
End If



a écrit dans le message de news:
excusez-moi encore, en faisant mes tests,

ça m'interdit également l'introduction de décimales !

alors que ça devrait être permis.

Bonne soirée
Xavier
Avatar
Michel_D
Dans la foulée, si tu souhaite garder ce que tu as déja saisi
(A placer toujours au niveau de l'évenement "Change")

Dim iC As Long
iC = Len(Me.TonControle.Text)
Do While iC > 0
If IsNumeric(Left(Me.TonControle.Text, iC)) Then Exit Do
iC = iC - 1
Loop
If Len(Me.TonControle.Text) <> iC Then
Me.TonControle.Text = Left(Me.TonControle.Text, iC)
End If



"Michel_D" a écrit dans le message de news:fnuqi0$j9k$
Sur l'évenement change de tes contrôles numériques met le code :

If Len(Me.TonControle.Text) > 0 And Not IsNumeric(Me.TonControle.Text) Then
Me.TonControle.Undo
End If



a écrit dans le message de news:
excusez-moi encore, en faisant mes tests,

ça m'interdit également l'introduction de décimales !

alors que ça devrait être permis.

Bonne soirée
Xavier



1 2