|
|
Postada em 06/11/2009 10:59 hs
Olá pessoal!
Tenho um fomrulário e estou validando os campos. Tenho um campo nome que gostaria de restringir a entrada de números.
If (Chr(KeyAscii) > "64" And Chr(KeyAscii) < "122") And KeyAscii <> 8 Then
KeyAscii = 0
Beep
End If
Tentei este código que achei para restringir números e adaptei os valores da tabela ASCII porém não funcionou.
Tentei usar o objeto MaskEditBox, porém o Maxlegth é 64, pelo menos eu só consegui por 64 e sem espaços.
Sugestões?
|
|
|
|
|
|
LCRamos
|
GOIANIA
GO - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 06/11/2009 12:06 hs
Select Case KeyAscii Case 48 to 57, 8, 44 ' a que quiser colocar KeyAscii = 0 Case Else End Select vlu// |
|
|
|
|
|
Postada em 10/11/2009 13:17 hs
Funcionou valeu!!!
Reinventar, com soluções melhoradas!
|
|
|
|
