[Resolvido]Limitar caracteres em uma caixa não acoplada

Pessoal,

mais uma dúvida simples para vocês mas que está me tirando o sono:

como fazer para limitar a quantidade de caracteres que são digitados em um campo caixa de texto não acoplada? Exemplo: a caixa de texto deve permitir que o usuário digite apenas 8 caracteres numéricos. A partir do nono caractere ela não deve permitir a inserção de novos caracteres.

Obrigado!!!

Tente no evento "Ao alterar":

If Len(NomeDoCampo.Text) > 8 Then
    Me.NomeDoCampo = Left(Me.NomeDoCampo, 8 )
End If

Amigo Criquio, obrigado pela dica. Mas infelizmente não funfou.

eu me lembro que a gente fazia assim para limitar os caracteres numa caixa de texto:

1- pega a tecla digitada e armazena em uma variável
2- verifica o tamanho da variável
3- se for menor que 8 escreve na caixa. se for maior que 8 escreve só até o oitavo caractere. isso no evento ao pressionar tecla.

mas eu não me lembro qual é a função que armazena a tecla digitada em uma variável.

Private Sub SeuCampo_BeforeUpdate(Cancel As Integer)
'By JPaulo ® Maximo Access
On Error Resume Next
If Len(Nz(Me.ActiveControl, "")) > 10 Then
Cancel = True
Call MsgBox("Excedeu os 10 caracteres permitidos...", vbOKOnly, "ERRO")

End If
End Sub

Boa tarde Luciano...Sempre tenha a curiosidade de fazer busca, pois este é um ou o melhor forum de access... do repositório contribuição do mestre jPaulo e adaptado para você...

http://speedy.sh/jhEsH/Campo-Limitado.rar

Boa tarde colega Assis, tudo bem.... sobre a dificuldadedo colega Luciano eu ja havia pesquisado sobre o mesmo assunto.... e no preparo ~e anexo do exemplo não percebi a sua contribuição. Mas é legal, isso demostra o quanto este forum é humano...

Ok. desculpe a falha. não procurei direito.

Obrigado pelo exemplo. Coloquei no meu campo e funcionou 100%.

Valeu!!!

Bom dia!

Estou tendo o mesmo problema. Tentei acessar o arquivo indicado acima(http://speedy.sh/jhEsH/Campo-Limitado.rar) mas recebi a mensagem de que o arquivo foi removido.
Alguém pode me ajudar?

Obrigado!

Boa tarde colega Luiz, tudo tranquilo.....
Segue em anexo o arquivo do mestre JPaulo, bom estudo...

http://speedy.sh/XavhJ/Campo-Limitado.rar

O código resolveu meu problema.

Muito Obrigado!!

Abços!

Olá boa noite,
Poderia atualizar o link estou tentando baixar o arquivo e da que foi removido

http://speedy.sh/qX4JJ/Campo-Limitado.mdb

Obriada vou baixar

Como limitar o número de caracteres digitados no controle de caixa de texto.

No meu caso atendeu plenamente. tanto para form vinculado como para desvinculado. Espero que tenha ajudado, mesmo já estando encerrado.


Sub MyUnboundTextBox_KeyPress (KeyAscii As Integer)
     LimitFieldSize KeyAscii, 50
End Sub



Sub LimitFieldSize (KeyAscii, MAXLENGTH)
     Dim C As Control
     Dim CLen As Integer

     Set C = Screen.ActiveControl

     ' Exit if a non-printable character is typed.
     If KeyAscii < 32 Then Exit Sub

     ' Exit if typing replaces a selection.
     If C.SelLength > 0 Then Exit Sub

     ' Fetch length of current contents + 1 for the character typed.
     CLen = Len(C.Text & "") + 1

     ' Are there trailing spaces to contend with?
     If C.SelStart + 1 > CLen Then CLen = C.SelStart + 1

     ' Is length of string greater than max?
     If CLen > MAXLENGTH Then
       Beep
       KeyAscii = 0
     End If

  End Sub


https://support.microsoft.com/pt-br/kb/152050

Criquio...


muito bacana esse código, funcionou legal aqui...

limitando importação do campo texto em até 10 caract.
finl = Right(finl, 10)
rs!camponatabela = finl

Bom dia, alguem pode me atualizar esse link obrigado

http://speedy.sh/qX4JJ/Campo-Limitado.mdb

Resolvi desta forma...

PASSO 1) Criar um módulo e colocar este código nele:

Public Sub CheckMaxLength(ByRef theTextBox As TextBox, intMaxLength As Integer, doAlert As Boolean)
   With theTextBox
       If Len(.Text) >= intMaxLength + 1 Then
           If doAlert Then MsgBox ("Você chegou ao limite do campo.")
           .Text = Left(.Text, intMaxLength)
           .SelStart = intMaxLength
           .SelLength = 1
       End If
   End With
End Sub


PASSO 2) No evento AO ALTERAR do campo a limitar, colocar este código:

Private Sub txt_paccadCpf_Change()
     Call CheckMaxLength(Me.txt_paccadCpf, 11, True)
End Sub

Obs.: o primeiro parâmetro entre os parênteses é o nome do campo a limitar os caracteres.