Discussion :

[freeman3869]

Bonjour,

Comment vérifier s'il y a des espaces ou des accents dans un inputbox ?
J'ai regardé partout sur le net mais il n'y a rien par rapport à ça.

Merci

[Jean-Philippe André]

salut,

tu peux faire un bout de code sur tes resultats, comme par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
dim tmp as string
dim i as integer
tmp = Inputbox ("bla")
for i = 1 to len(tmp)
select case asc(mid(tmp,i,1))
Case Asc("a") to Asc("z"), Asc("A") to Asc("Z")
'cas des lettre standard
Case Asc(" ")
'cas de l'espace
Case Else
'tous les autres cas (meme celui des chiffres)
End Select
Next i

[madefemere]

Bonjour,

On peut vérifier les caractères saisis dans une zone de texte avec la fonction InStr.

Maintenant, qu'est-ce que tu veux faire exactement ? Limiter les caractères saisis dans ta zone de texte ou vérifier s'il y a espace ou accent et en faire quelque chose ?

Je te conseille la lecture de CE TUTO qui te donnera une idée des possibilités pour limiter a saisie dans un champ. facilement adaptable à ton besoin je pense.

Cordialement,

[freeman3869]

Bonjour,

Merci de vos réponses.
Je veux juste dire à l'utilisateur de ressaisir son message s'il y a un accent ou une espace dans son message.

Cordialement

[freeman3869]

Jpcheck :
Comment je peux dire à l'utilisateur de ressaisir son message s'il a mis des lettres accentuées ou des espaces ?

Madefemere :
Je suis allé lire l'article dont vous m'avez conseillé mais malheureusement je ne trouve pas ma réponse .

Je dois avouer que je suis novice en Access et Vba.

Merci de votre aide

[Jean-Philippe André]

En faisant une boucle par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim tmp as string
tmp = InputBox("bla")
Do Until TonTestDePresence(Tmp)
Msgbox "Veuillez ne pas saisir d'estpace ni de caracteres accentues",vbCritical+vbokonly
tmp = InputBox("bla")
Loop

[freeman3869]

En faisant une boucle par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim tmp as string
tmp = InputBox("bla")
Do Until TonTestDePresence(Tmp)
Msgbox "Veuillez ne pas saisir d'estpace ni de caracteres accentues",vbCritical+vbokonly
tmp = InputBox("bla")
Loop

C'est quoi le "TonTestDePresence" ? Je ne l'ai pas défini