[Resolvido]Quantidade de caracteres digitados

Boa Noite!

Gostaria de saber como posso fazer, ao digitar um texto na caixa de memorando com no máximo 700 caracteres, e ao digitar aparece os caracteres diminuindo ate zerar essa quantidade de caracter;

Obrigado Cris, seu exemplo me serviu, mas o unico problema, é que quando continuo digitando, após o limite estipulado, ele continua contando negativamente, ou seja -1, -2 ....

Estou sem Camera e não vou conseguir entrar

seque anexo

Obrigado irmão.

Ficou Show.

Só que quando chego ao limite a caixa desabilita e eu não consigo mexer mais.

Bom dia irmão:

O que está acontecendo: Quando coloco o código

Private Sub txt_Desc_Problema_Change()

Me.Texto4 = "Caracteres excedido"

Me.quantidade = 40 - Len(Me.txt_Desc_Problema.Text)

If Me.quantidade <= 0 Then

Me.txt_Desc_Problema = "" ' Essa linha não vai deixar acrescentar

Me.txt_Desc_Problema.Enabled = False ' Ele trava a caixa aqui
Me.Texto4.Visible = True

End If

End Sub


Quando chega a Zero caracter. ele some o texto digitado.

Código:

Private Sub caixaDeTexto_KeyPress(KeyAscii As Integer)
If Me.quantidade = 697 Then
 
KeyAscii = 0
End If

End Sub

Bem vamos lá: Segue anexo Banco de dados

O que está acontecendo:

1 - Após completar o numero de caracteres, eu não consigo, de repente, alterar o texto

2 - Se chegar ao limite do caracter, GRAVAR o registro, Sair e depois entrar novamente no formulario e alterar, ele segue os caracteres negativo

Espero que não esteja lhe incomodando.

Assunto batido. Usei a ferramenta de pesquisa do fórum e encontrei
https://www.maximoaccess.com/t37730-resolvidoquantidade-de-caracteres-faltando-no-campo

Boa noite Jr, não estava conseguindo montar aqui como habilitar o vbKeyBack.

Obrigado Crysostomo pela excelente ajuda.

Consegui resolver o problema.

Jr. Se eu solicitei ajuda é porque não tinha conseguido achar o desejado.

Tenho mais de 3 anos de Forum e nunca pedi ajuda sem antes consultar, mas mesmo assim obrigado e desculpa.

Sucesso irmão. Tamos aí.