Campo Text

[Luiz Humberto]

Como fazer para que possa permitir somente a primeira letra sendo uma string e o restante sejam numeros.

Ex:p1211

valeu

[Promotor Advanced]

Select Case Len(Text1.Text)
    Case Is < 1
        If IsNumeric(Chr(KeyAscii)) = True Then
            KeyAscii = 0
        End If
    Case Is >= 1
        If IsNumeric(Chr(KeyAscii)) = False Then
            KeyAscii = 0
        End If
End Select

[Luiz Humberto]

valeu,

Mas poderia me ajudar em mais uma coisa, sendo que na primeira letra não deve aceitar numero, somente letras e as letras tem que ser a ou n,tentei fazer isto usando o seu codigo, mas deu errado se poder me ajudar.

Obrigado.

[Luiz Humberto]

Opá foi um erro.

O código que você me passou faz o que preciso, só tive que acrescentar uns detalhes que precisava

Valews

[William Rodrigues]

Opá foi um erro.

O código que você me passou faz o que preciso, só tive que acrescentar uns detalhes que precisava

Valews

Beleza..

Que bom que conseguiu cara...

Sempre antes de pedir ajuda..tente !

Tentando se aprende muito

Abraços,

William Rodrigues