COMO EU DEXO UM TEXTBOX SO PARA NUMEROS

FERDN4NDO 19/01/2005 02:32:37
#61697
Como eu faço para deixar o textbox so para numeros (num vale digita letra)
Por favor me respondam!

[S21] [S26] [S43] [S43] [S34] [S51] [S52] [S55] [S61] [S91]

Citação:

I am a Donkey



flw pessoaw ( me add no msn) ( ferdn4ndo@hotmail.com )
DAVID.SP 19/01/2005 03:01:46
#61702
Caro Ferdnando,

Você pode fazer o seguinte, colocar por exemplo em um botão Salvar, crie um trata erro e dentro dele colocar o que está abaixo:

if err.number = "13" then
msgbox "Mensagem que você quer"
exit sub
end if

Claro que o campo tem que estar com a propriedade numérica no banco de dados.

Espero ter ajudado.....
THIAGO.CESAR 19/01/2005 07:52:32
#61712
No Evento Keypress 
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0


Assim ele só aceita números, mas você também deve aceitar o Backspace e a vírcula, certo?
Então
If KeyAscii <> 8 then 'BackSpace
    If Not IsNumeric(Chr(KeyAscii)) Or KeyAscii <> 44 then KeyAscii = 0
End if


Espero ter contribuido
USUARIO.EXCLUIDOS 19/01/2005 08:33:45
#61717 Resposta escolhida
Ative as propriedades do form, para KEYPREVIEW = TRUE, e no evento KeyPress coloque:

if keyascii = 8 or keyascii = 13 or keyascii = 9 then exit sub
if keyascii >= 48 and keyascii <= 57 then 'se for numero de 0 a 9
'aceita
else ' se não for
sendkeys "{bs}" 'apagar com backspace
end if

Fui
LCSD 19/01/2005 09:54:12
#61749
Eu costumo fazer da seguinte forma:

No evento KEYPRESS, faço a seguinte condição:

  
If Keyascii >=48 and keyascii <=57 or keyascii=44 or keyascii=46 then
    if Keyascii=13 then
            aceita
   endif
else
   keyascii=0
endif


Keyascii>=48 and Keayscii<=57 -> Números de 1 a 0 (melhorando, de 0 a 9)
Keyascii=44 -> VIRGULA
Keyascii=48 -> Ponto
FELIPEA 19/01/2005 10:57:55
#61761
USUARIO.EXCLUIDOS 19/01/2005 10:59:38
#61765
basta colocar esse fonte no keypress do textbox


If KeyAscii = 8 Then
ElseIf KeyAscii < 47 Or KeyAscii > 58 Then
KeyAscii = 0
End If
GUTO 19/01/2005 17:41:53
#61854
eu ponho no validate

If Len(txttelefonecom.Text) < 10 Then
MsgBox "Informe um Numero de Telefone Válido.", vbExclamation, " Telefone Inválido "
Cancel = True
End If
USUARIO.EXCLUIDOS 19/01/2005 18:02:03
#61860
guto.. mas do jeito que fez... se a pessoa digitar uma LETRA.. ele aceita!!
entendeu? não é o limite.. e sim o tipo de caracteres que tem de ser somente numeros....
FELIPEA 19/01/2005 18:03:02
#61861
GUTO, o que o FERDN4NDO quer, é um código para aceitar somente números
USUARIO.EXCLUIDOS 19/01/2005 18:13:46
#61864
Fernando acho que está na hora de ENCERRAR o tópico! Pois vc várias respostas que FAZEM a mesma coisa!
Página 1 de 2 [13 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar