NADA DIGITADO

USUARIO.EXCLUIDOS 21/07/2005 20:54:48
#95458

Desenvolvi esta função

Ela funciona assim:
Recebe uma string como parametro e verifica se ha caracteres diferentes de letras e numeros nesta string,
se há ele retorna a primeira insidência, exemplo:

verifica("TEste123#como vai")
retorna "#"

verifica("TEste123como vai")
retorn " " (espaço)

Se não há caracteres ivalidos, ele retorna uma string nula

verifica("Teste123")
Retorna "" (vazio)

Mas veja q letras acentuadas são consideradas caracteres invalidos, se vc quizer alterar a validade, veja os limites testados pela função

Function verifica(str As String) As String
Dim i As Integer, max As Integer
Dim char As Byte
max = Len(str)
For i = 1 To max
char = Asc(UCase(Mid(str, i, 1)))
'teste intervalo de 0 a 9'
If Not (char >= Asc("0") And char <= Asc("9")) Then
'testa intervalo de A a Z'
If Not (char >= Asc("A") And char <= Asc("Z")) Then
verifica = Chr(char)
Exit Function
End If
End If
Next
verifica = ""
End Function

USUARIO.EXCLUIDOS 21/07/2005 21:02:10
#95459 Resposta escolhida

espero naum estar falando besteira mas testa lah:

if len(variável) > 0 and mid(variável,1,1) = " " then
msgbox "existe espaço no começo"
exit sub
endif

se começar com espaço ele jah acusa !

LREZANI 22/07/2005 08:33:30
#95501

Seguindo a lógica do ATERLONI:
If Len(variável) > 0 And Trim(variável) = Empty Then
MsgBox "Existe só espaço no campo."
Exit Sub
End If