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]Limitar caracteres em uma caixa não acoplada

    avatar
    lucianonunes.jw
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 70
    Registrado : 12/10/2011

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

    Mensagem  lucianonunes.jw em 9/2/2012, 19:49

    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!!!
    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11228
    Registrado : 30/12/2009

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

    Mensagem  criquio em 9/2/2012, 19:52

    Tente no evento "Ao alterar":

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


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    lucianonunes.jw
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 70
    Registrado : 12/10/2011

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

    Mensagem  lucianonunes.jw em 10/2/2012, 19:44

    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.

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4234
    Registrado : 06/11/2009

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

    Mensagem  Assis em 10/2/2012, 19:47



    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


    .................................................................................
    *** Só sei que nada sei ***
    cafpr
    cafpr
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 973
    Registrado : 08/02/2011

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

    Mensagem  cafpr em 10/2/2012, 19:54

    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
    cafpr
    cafpr
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 973
    Registrado : 08/02/2011

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

    Mensagem  cafpr em 10/2/2012, 19:57

    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...
    avatar
    lucianonunes.jw
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 70
    Registrado : 12/10/2011

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

    Mensagem  lucianonunes.jw em 10/2/2012, 20:26

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

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

    Valeu!!!
    luizrui
    luizrui
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 27/10/2010

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

    Mensagem  luizrui em 29/3/2012, 15:37

    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!
    cafpr
    cafpr
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 973
    Registrado : 08/02/2011

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

    Mensagem  cafpr em 29/3/2012, 16:38

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

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 27/10/2010

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

    Mensagem  luizrui em 29/3/2012, 18:17

    O código resolveu meu problema.

    Muito Obrigado!!

    Abços!
    avatar
    amandaalves1
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 480
    Registrado : 01/02/2010

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

    Mensagem  amandaalves1 em 9/6/2014, 01:05

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 973
    Registrado : 08/02/2011

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

    Mensagem  cafpr em 9/6/2014, 02:00

    http://speedy.sh/qX4JJ/Campo-Limitado.mdb
    avatar
    amandaalves1
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 480
    Registrado : 01/02/2010

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

    Mensagem  amandaalves1 em 9/6/2014, 17:03

    Obriada vou baixar
    adm.nneto
    adm.nneto
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 28/11/2012

    [Resolvido]Limitar caracteres em uma caixa não acoplada Empty Re: [Resolvido] Como limitar o número de caracteres digitados no controle de caixa de texto.

    Mensagem  adm.nneto em 21/7/2015, 03:15

    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
    avatar
    nacjunior
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 06/05/2016

    [Resolvido]Limitar caracteres em uma caixa não acoplada Empty https://www.maximoaccess.com/t6205-resolvidolimitar-caracteres-em-uma-caixa-nao-acoplada#50690

    Mensagem  nacjunior em 22/5/2016, 17:02

    Criquio...


    muito bacana esse código, funcionou legal aqui...
    avatar
    AMARTINATO
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 10/10/2016

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

    Mensagem  AMARTINATO em 6/1/2017, 13:25

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 116
    Registrado : 12/06/2017

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

    Mensagem  neves1 em 27/4/2020, 13:52

    Bom dia, alguem pode me atualizar esse link obrigado

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

      Data/hora atual: 2/12/2020, 03:55