[Resolvido]Não Permitir Digitar + Que 10 Números Em Um Campo

Boa noite,

Encontrei o código abaixo aqui no Fórum, mas não está dando certo para o que desejo, que é, tenho o campo Num_RG, que é apenas 10 caracteres, e se o usuário tentar inserir mais algum, quero que pare na hora e apresente a mensagem.

If Len(Num_RG.Text) > 10 Then
Me.Num_RG = Left(Me.Num_RG, 10)



MsgBox "Campo com carecteres limitado"

Exit Sub
Else

End If

Alguma sugestão?

Você pode definir isso direto na tabela na propriedade tamanho do campo

Gilberlanio,

Desculpe a ignorância, mas não consegui fazer dar certo, mesmo com a sua dica, talvez tenha feito algo errado.

Olá..

Se o campo esta com mascara, talvez tenha que usar o Replace e o Trim para tirar espaços.

Tente desta forma:

Len(Replace(Replace(Trim(Me.Num_RG.Text), ".", ""), "/", ""))

Aguardamos

Abraços

Celso, não tem máscara, são números corridos, é campo pra inserir o RG.

Olá..

Tente:

If Len(Num_RG.Value) > 10 Then

ou

If Len(Num_RG) > 10 Then

ou

Anexe bd para vermos

Aguardamos

Abraços

Celso,

Segue o link

dropbox.com/s/c1fwcmsrw1u8z2l/Gest%C3%A3o%20de%20Funcion%C3%A1rios.accdb?dl=1

Frm_Lancamentos

Campo Num_RG

Gostaria que na medida que eu tentasse digitar o 11º caracteres aparecesse uma mensagem, de forma a não permitir que seja inserido mais que 10 carecteres.

Boa noite,
Evento Ao alterar do campo Num_RG do formulário em questão:

Código:

If Len(Trim(Me.Num_RG.Text)) > 10 Then
  MsgBox "No máximo 10 caracteres!", vbExclamation, "Atenção"
  Me.Num_RG = Left(Me.Num_RG.Text, 10)
End If

Olá..

Tai a solução passada pelo Marcelo, eu só acrescentaria um Me.undo para limpar o campo

Abraços a todos

Tópico resolvido.

Obrigado Marcelo e Celso.

Olá..

Agradecemos o seu retorno

Abraços e sucesso a todos