MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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 : 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 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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    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 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 : 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 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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4443
    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 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 : 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 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 : 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 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 : 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 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 : 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 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 : 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 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 : 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 29/3/2012, 18:17

    O código resolveu meu problema.

    Muito Obrigado!!

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

    Respeito às regras : 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 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 : 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 9/6/2014, 02:00

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

    Respeito às regras : 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 9/6/2014, 17:03

    Obriada vou baixar
    adm.nneto
    adm.nneto
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 43
    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 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 : 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 22/5/2016, 17:02

    Criquio...


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

    Respeito às regras : 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 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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 144
    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 27/4/2020, 13:52

    Bom dia, alguem pode me atualizar esse link obrigado

    http://speedy.sh/qX4JJ/Campo-Limitado.mdb
    avatar
    luizxrf
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 27/02/2018

    [Resolvido]Limitar caracteres em uma caixa não acoplada Empty Como limitar o máximo de caracteres em um campo Access

    Mensagem  luizxrf 23/12/2020, 10:48

    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.

    luizxrf gosta desta mensagem


    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 15/5/2021, 19:26