[Resolvido]Informar caracteres inseridos e restantes

Olá pessoal!

Estou precisando de mais uma ajuda do fórum. Veja se podem me ajudar:

Tenho uma caixa de texto onde não posso inserir mais do que 165 caracteres (defini isso na tabela correspondente). Sendo assim, gostaria de informar através de um rótulo ou mesmo outra caixa de texto, conforme eu for digitando no campo, a quantidade de caracteres inseridos e a quantidade que ainda posso inserir e se ainda assim eu não perceber que ja atingi o limite de caracteres que abra uma mensagem me alertando que o limite foi atingido.

Desde já, obrigado!

Você pode colocar um rótulo de nome lblAviso por exemplo e no evento "Ao alterar" do campo:

Me.lblAviso.Caption = "Caracteres inseridos: " & Len(Me.NomeCampo) & vBcRlF & "Caracteres restantes: " & 165 - Len(Me.NomeCampo)
If Len(Me.NomeCampo) >= 165 Then
MsgBox "Tamanho do campo atingido", vbOkOnly, "Atenção"
End If

Criquio,

não é exibido a quantidade de caracteres inseridos conforme ou vou digitando no campo e nem a quantidade restante.
somente informa a quantidade inserida quando eu retorno ao campo e insiro mais um caractere (um espaço por exemplo).

Obrigado!

Altere assim:

Me.lblAviso.Caption = "Caracteres inseridos: " & Len(Me.NomeCampo.Text) & vbCrLf & "Caracteres restantes: " & 165 - Len(Me.NomeCampo.Text)
If Len(Me.NomeCampo.Text) >= 165 Then
MsgBox "Tamanho do campo atingido", vbOKOnly, "Atenção"
Me.NomeCampo = Left(Me.NomeCampo, 165)
End If

Criquio,

houve uma evolução, agora conforme eu digito e exibido a quantidade de caracteres inseridos, só não ta exibindo a quantidade restante.


Sucesso!

Então verifique o nome do campo e veja se está tudo certinho, pois deveria funcionar assim.

Criquio,

me desculpe o trabalho.

eu não havia alterado essa parte " vBcRlF" por essa " vbCrLf" .
já alterei e agora esta a funcionar corretamente.

Muito obrigado e sucesso!

Acho que você confundiu o L com i
Mas importante que deu certo.