Descrição:
Como impedir que o usuário digite caracteres especiais no objeto Setpoint?
Solução:
Para isto, deve-se adicionar o seguinte script ao evento Validate do objeto Setpoint:
N = Len(NewValue) ‘Retorna para N o número de caracteres da palavra
For i=1 to N ‘Efetua um laço até chegar no valor de N
Letra = Asc(Mid(NewValue, i, 1)) ‘Transforma a letra selecionada pelo Mid em valor ASCII
If (Letra>=65 AND Letra<=90) OR (Letra>=97 AND Letra<=122) OR (Letra>=48 AND Letra<=57) Then
Else
MsgBox “ERRO no caracter: ” & i & ” Letra: ” & Chr(Letra)
End if
Next
Para maiores informações, consulte o guia de referência de VBScript e a aplicação em anexo.
Anexos:
