[Resolvido] Campo texto com caracteres alfanuméricos

[saulo-jitsu 0]

Fala galera!

 

Estou mexendo no código de um amigo e tem aqui um campo texto que não aceita caracteres alfanuméricos, só numérico..

Eu queria mudar isso, mas não faço ideia de como posso mudar essa propriedade.

Valeu pela futura ajuda de vcs!

 

Abraços

[Edwilson Curti 0]

Verifica o evento keypress deste campo. Ele deve estar mais ou menos assim:

 

Private Sub txtNome_KeyPress(KeyAscii As Integer)

if Keyascii <> vbKey0 and Keyascii <> vbKey9 then (obs: deve ter toda a sequiencia de 0 a 9)

Keyascii = 0

endif

EndSub

 

Elimine o evento keypress deste campo e funcionará.

 

Retorne dizendo se funcionou.

[Edwilson Curti 0]

Verifica o evento keypress deste campo. Ele deve estar mais ou menos assim:

 

Private Sub txtNome_KeyPress(KeyAscii As Integer)

if Keyascii <> vbKey0 and Keyascii <> vbKey9 then (obs: deve ter toda a sequiencia de 0 a 9)

Keyascii = 0

endif

EndSub

 

Elimine o evento keypress deste campo e funcionará.

 

Retorne dizendo se funcionou.

[saulo-jitsu 0]

não está assim do jeito q você falou, mas me ajudou a descobrir o q era..

o keypress chama uma função que valida o caracter digitado. Essa função está meio estranha pq ela faz o teste pra não deixar ser digitado alguns caracteres (virgula, ponto, por exemplo) e no fim dela tem um 'Case Else' atribuindo 0 pra variavel q está com o cod ascii...

meio mal feito né..rs

Valeu pela ajuda cara!

"Brigadão"