Testar alfabeto

[jamirjunior]

Boa tarde pessoal,

Preciso verificar se um caracter é alguma letra

if ((OrgAut='109') and (mid(Agente,1,1) = 'A'  or

                                 mid(Agente,1,1) = 'B'

Mas não queria fazer isso para todas as letras, como devo fazer?

Obrigado

[JacksonAlfonso]

Testa essa função, acho que ela te ajudará, só mudei a ideia, ao invés de testar letra a letra, retiro tudo o que seria numero, e valida se o primeiro caracter é um numero ou não.

If(WildMatch(Mid(Trim(KeepChar(Agente,'0123456789')),1,1),'0','1','2','3','4','5','6','7','8','9'), 'Numero', 'Letra')

[jamirjunior · Accepted solution]

Funcionou com isText

Obrigado

[JacksonAlfonso]

Massa !!!