MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Quantidade de caracteres digitados

    cacorei09
    cacorei09
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 172
    Registrado : 20/08/2014

    [Resolvido]Quantidade de caracteres digitados Empty [Resolvido]Quantidade de caracteres digitados

    Mensagem  cacorei09 em 13/10/2020, 03:25

    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;
    cacorei09
    cacorei09
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 172
    Registrado : 20/08/2014

    [Resolvido]Quantidade de caracteres digitados Empty Quantidade de caracteres digitados

    Mensagem  cacorei09 em 13/10/2020, 04:23

    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 ....
    cacorei09
    cacorei09
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 172
    Registrado : 20/08/2014

    [Resolvido]Quantidade de caracteres digitados Empty Quantidade de caracteres digitados

    Mensagem  cacorei09 em 13/10/2020, 04:35

    Estou sem Camera e não vou conseguir entrar
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1375
    Registrado : 23/01/2018

    [Resolvido]Quantidade de caracteres digitados Empty Re: [Resolvido]Quantidade de caracteres digitados

    Mensagem  crysostomo em 13/10/2020, 05:07

    seque anexo
    Anexos
    [Resolvido]Quantidade de caracteres digitados Attachmentalteração de contagem ao digitar.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (97 Kb) Baixado 6 vez(es)


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    cacorei09
    cacorei09
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 172
    Registrado : 20/08/2014

    [Resolvido]Quantidade de caracteres digitados Empty Quantidade de caracteres digitados

    Mensagem  cacorei09 em 13/10/2020, 05:15

    Obrigado irmão.

    Ficou Show.

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 172
    Registrado : 20/08/2014

    [Resolvido]Quantidade de caracteres digitados Empty Quantidade de caracteres digitados

    Mensagem  cacorei09 em 13/10/2020, 15:35

    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.
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1375
    Registrado : 23/01/2018

    [Resolvido]Quantidade de caracteres digitados Empty Re: [Resolvido]Quantidade de caracteres digitados

    Mensagem  crysostomo em 13/10/2020, 15:55

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

    End Sub


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    cacorei09
    cacorei09
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 172
    Registrado : 20/08/2014

    [Resolvido]Quantidade de caracteres digitados Empty Quantidade de caracteres digitados

    Mensagem  cacorei09 em 13/10/2020, 16:23

    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.
    Anexos
    [Resolvido]Quantidade de caracteres digitados AttachmentOuvidoria.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (780 Kb) Baixado 3 vez(es)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2293
    Registrado : 22/11/2016

    [Resolvido]Quantidade de caracteres digitados Empty Re: [Resolvido]Quantidade de caracteres digitados

    Mensagem  DamascenoJr. em 13/10/2020, 22:00

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


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1375
    Registrado : 23/01/2018

    [Resolvido]Quantidade de caracteres digitados Empty Re: [Resolvido]Quantidade de caracteres digitados

    Mensagem  crysostomo em 13/10/2020, 23:20

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


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    cacorei09
    cacorei09
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 172
    Registrado : 20/08/2014

    [Resolvido]Quantidade de caracteres digitados Empty Quantidade de caracteres digitados

    Mensagem  cacorei09 em 14/10/2020, 02:12

    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.
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1375
    Registrado : 23/01/2018

    [Resolvido]Quantidade de caracteres digitados Empty Re: [Resolvido]Quantidade de caracteres digitados

    Mensagem  crysostomo em 14/10/2020, 03:37

    Sucesso irmão. Tamos aí.


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: 21/10/2020, 11:00