problème de saisie dans textbox

Question

Bonjours &#224; tous
Voila, j'ai un petit soucis en vb6.
Lorsque j'entre des valeurs dans une textbox, je click sur un bouton qui enregistre ces valeurs dans une base acces 2000.
Le probl&#232;me est que je souhaite que l'enregistrement ne s'effectue qu'avec des chiffres(avec ou sans virgule) et que cela g&#233;n&#232;re une erreur si elle tape des lettres.
J'ai trouv&#233; l'option DataFormat==>Nombre dans les options de textbox, mais je n'arrive pas &#224; l'utiliser.
Help me please.

wanure · Answer

Bonjour!!

Pour contr&#244;ler la saisie de caract&#232;res num&#233;riques, il faut utiliser la fonction IsNumeric

Syntaxe :

Par exemple :  If IsNumeric(textbox1) = True Then

                              ....   

                       EndIf

NHenry · Answer

Bonjour

et peut-&#234;tre Text=replace(TextBox1,",",".")
pour remplacer les virgules par des points

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en priv&#233;
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

jrivet · Answer

Salut, En complement de wanure j ajouterai que tu peux faire le controle de ce qui est saisi lors de l evenement keypress du textbox. Ainsi si une lettre est entre, le textbox ne la prend pas. Soit avec un textbox appele Text1: Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii <> 8 And KeyAscii <> 46 Then Exit Sub If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0 End Sub Voila, @ Julien

jrivet · Answer

Re,

>NHenry: Synchronisme a tout épeuve :)

NHenry · Answer

Bonjour

j'ai vu, c'est pas courant dans le forum.

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en priv&#233;
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

rhumanuss · Answer

A je vous remercie.
J'avais effectivement connaissance du isNumeric, mais lorsqu'elle entre un float, ca ne marche pas.
Je pensais que le IsFloat existait sous vb 6, mais malheureusement no.

crenaud76 · Answer

IsNumeric est ok avec un float si tu utilises ce que propose NHenry pour remplacer les , par des .

cs_popo51 · Answer

Bonjour a tous moi j'aimerai pouvoir saisir une date au format "dd/mm/yyyy" si j'utilise : Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii <> 8 And KeyAscii <> 46 Then Exit Sub If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0 End Sub j'ais un pb car je ne pe pas afficher les "/" au quel cas si il est possible de savoir quel est le code ascii de "/". MERCI

cs_popo51 · Answer

bon et bien j'ais utilisé : If InStr(1, "0123456789", Chr$(KeyAscii)) = 0 And KeyAscii <> 9 And KeyAscii <> 8 Then ' 9 est le code pour 'Del' et 8 pour 'Backspace' KeyAscii = 0 'n'affiche pas le caractère End If End Sub avec un "/" en plus aprés le 9 mdr et ca marche !!

Problème de saisie dans textbox

9 réponses

Discussions similaires