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]Não Permitir Digitar + Que 10 Números Em Um Campo

    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 615
    Registrado : 11/12/2017

    [Resolvido]Não Permitir Digitar + Que 10 Números Em Um Campo Empty [Resolvido]Não Permitir Digitar + Que 10 Números Em Um Campo

    Mensagem  Ismael Silva em 21/4/2019, 02:06

    Boa noite,

    Encontrei o código abaixo aqui no Fórum, mas não está dando certo para o que desejo, que é, tenho o campo Num_RG, que é apenas 10 caracteres, e se o usuário tentar inserir mais algum, quero que pare na hora e apresente a mensagem.

    If Len(Num_RG.Text) > 10 Then
    Me.Num_RG = Left(Me.Num_RG, 10)



    MsgBox "Campo com carecteres limitado"

    Exit Sub
    Else

    End If

    Alguma sugestão?
    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 767
    Registrado : 30/08/2010

    [Resolvido]Não Permitir Digitar + Que 10 Números Em Um Campo Empty Re: [Resolvido]Não Permitir Digitar + Que 10 Números Em Um Campo

    Mensagem  gilberlanio em 21/4/2019, 04:37

    Você pode definir isso direto na tabela na propriedade tamanho do campo


    .................................................................................
    Sistemas completos com fonte aberto (Apresentação)

    Vários Exemplos Grátis
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 615
    Registrado : 11/12/2017

    [Resolvido]Não Permitir Digitar + Que 10 Números Em Um Campo Empty Re: [Resolvido]Não Permitir Digitar + Que 10 Números Em Um Campo

    Mensagem  Ismael Silva em 21/4/2019, 16:19

    Gilberlanio,

    Desculpe a ignorância, mas não consegui fazer dar certo, mesmo com a sua dica, talvez tenha feito algo errado.
    Celso Roberto
    Celso Roberto
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1061
    Registrado : 01/03/2014

    [Resolvido]Não Permitir Digitar + Que 10 Números Em Um Campo Empty Re: [Resolvido]Não Permitir Digitar + Que 10 Números Em Um Campo

    Mensagem  Celso Roberto em 21/4/2019, 18:57

    Olá..

    Se o campo esta com mascara, talvez tenha que usar o Replace e o Trim para tirar espaços.

    Tente desta forma:

    Len(Replace(Replace(Trim(Me.Num_RG.Text), ".", ""), "/", ""))

    Aguardamos

    Abraços


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 615
    Registrado : 11/12/2017

    [Resolvido]Não Permitir Digitar + Que 10 Números Em Um Campo Empty Re: [Resolvido]Não Permitir Digitar + Que 10 Números Em Um Campo

    Mensagem  Ismael Silva em 21/4/2019, 20:04

    Celso, não tem máscara, são números corridos, é campo pra inserir o RG.
    Celso Roberto
    Celso Roberto
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1061
    Registrado : 01/03/2014

    [Resolvido]Não Permitir Digitar + Que 10 Números Em Um Campo Empty Re: [Resolvido]Não Permitir Digitar + Que 10 Números Em Um Campo

    Mensagem  Celso Roberto em 21/4/2019, 20:16

    Olá..

    Tente:

    If Len(Num_RG.Value) > 10 Then

    ou

    If Len(Num_RG) > 10 Then

    ou

    Anexe bd para vermos

    Aguardamos

    Abraços


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 615
    Registrado : 11/12/2017

    [Resolvido]Não Permitir Digitar + Que 10 Números Em Um Campo Empty Re: [Resolvido]Não Permitir Digitar + Que 10 Números Em Um Campo

    Mensagem  Ismael Silva em 21/4/2019, 20:42

    Celso,

    Segue o link

    dropbox.com/s/c1fwcmsrw1u8z2l/Gest%C3%A3o%20de%20Funcion%C3%A1rios.accdb?dl=1

    Frm_Lancamentos

    Campo Num_RG

    Gostaria que na medida que eu tentasse digitar o 11º caracteres aparecesse uma mensagem, de forma a não permitir que seja inserido mais que 10 carecteres.
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3110
    Registrado : 21/04/2011

    [Resolvido]Não Permitir Digitar + Que 10 Números Em Um Campo Empty Re: [Resolvido]Não Permitir Digitar + Que 10 Números Em Um Campo

    Mensagem  Marcelo David em 22/4/2019, 00:58

    Boa noite,
    Evento Ao alterar do campo Num_RG do formulário em questão:

    Código:
    If Len(Trim(Me.Num_RG.Text)) > 10 Then
      MsgBox "No máximo 10 caracteres!", vbExclamation, "Atenção"
      Me.Num_RG = Left(Me.Num_RG.Text, 10)
    End If


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    Celso Roberto
    Celso Roberto
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1061
    Registrado : 01/03/2014

    [Resolvido]Não Permitir Digitar + Que 10 Números Em Um Campo Empty Re: [Resolvido]Não Permitir Digitar + Que 10 Números Em Um Campo

    Mensagem  Celso Roberto em 22/4/2019, 02:34

    Olá..

    Tai a solução passada pelo Marcelo, eu só acrescentaria um Me.undo para limpar o campo

    Abraços a todos


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 615
    Registrado : 11/12/2017

    [Resolvido]Não Permitir Digitar + Que 10 Números Em Um Campo Empty Re: [Resolvido]Não Permitir Digitar + Que 10 Números Em Um Campo

    Mensagem  Ismael Silva em 22/4/2019, 14:40

    Tópico resolvido.

    Obrigado Marcelo e Celso.
    Celso Roberto
    Celso Roberto
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1061
    Registrado : 01/03/2014

    [Resolvido]Não Permitir Digitar + Que 10 Números Em Um Campo Empty Re: [Resolvido]Não Permitir Digitar + Que 10 Números Em Um Campo

    Mensagem  Celso Roberto em 23/4/2019, 17:18

    Olá..

    Agradecemos o seu retorno

    Abraços e sucesso a todos


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

      Data/hora atual: 12/7/2020, 14:25