MaximoAccess

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

Obrigado

Administração do MaximoAccess

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
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 494
    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 : 761
    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
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 494
    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
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 957
    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


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 494
    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
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 957
    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


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 494
    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 : 2899
    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
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 957
    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


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 494
    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
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 957
    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


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



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

    Conteúdo patrocinado

    [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  Conteúdo patrocinado


      Data/hora atual: 9/12/2019, 10:55