FILTRAR CAIXA DE TEXTO !!!
Pessoal vê quem consegue me ajudar....
Eu tenho três caixa de texto, são elas: txtlinha, txtposinicial, txtposfinal e um botão buscar.
Assim as caixas de texto não podem fazer uma procura de numeros negativos e nem letras, ou seja, ele soh pode aceitar numeros positivos.
Se alguem tiver alguma dica ou um script pra me ajudar eu agradeço...!!!
Vlw...
Eu tenho três caixa de texto, são elas: txtlinha, txtposinicial, txtposfinal e um botão buscar.
Assim as caixas de texto não podem fazer uma procura de numeros negativos e nem letras, ou seja, ele soh pode aceitar numeros positivos.
Se alguem tiver alguma dica ou um script pra me ajudar eu agradeço...!!!
Vlw...
Se for para aceitar somente números, eu costumo utilizar as seguinte linhas de código:
No evento KEYPRESS do OBJETO,
if Keyascii=VBKeyBack or Keyascii >=48 and Keyascii<=57 then
elseif Keyascii=13 then
'pulo para o próximo campo, ou faço a rotina que eu achar necessário
else
msgbox"Só aceitar números positivos."
endif
Agora, deixa eu explicar:
Keyascii=VBKeyBack seria a tecla BACKSPACE do teclado;
KEYASCII>=48 and KEYASCII<=57 : Números de 0 a 9
Keyascii=13 : Enter
No evento KEYPRESS do OBJETO,
if Keyascii=VBKeyBack or Keyascii >=48 and Keyascii<=57 then
elseif Keyascii=13 then
'pulo para o próximo campo, ou faço a rotina que eu achar necessário
else
msgbox"Só aceitar números positivos."
endif
Agora, deixa eu explicar:
Keyascii=VBKeyBack seria a tecla BACKSPACE do teclado;
KEYASCII>=48 and KEYASCII<=57 : Números de 0 a 9
Keyascii=13 : Enter
Tópico encerrado , respostas não são mais permitidas