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]Máscara em campo RG

    Compartilhe

    oluap
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 33
    Registrado : 11/12/2016

    [Resolvido]Máscara em campo RG

    Mensagem  oluap em 26/5/2017, 03:56

    Boa noite,

    Como faço para incluir os zeros à esquerda da numeração da identidade no código abaixo?

    Private sub RG_ALUNO_AfterUpdate()
    Dim NC As String
    NC = Len(RG_ALUNO)
    If NC = 8 Then
    Me.RG_ALUNO.Format = "@.@@@.@@@-@"
    Else
    Me.RG_ALUNO.Format = "@@.@@@.@@@-@"
    End If
    End Sub


    Após atualizar, por exemplo, 0.123.254-9, o resultado fica: ".123.254-9" !?
    avatar
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1019
    Registrado : 07/12/2011

    Re: [Resolvido]Máscara em campo RG

    Mensagem  tauron em 26/5/2017, 09:48

    tente assim:
    Private sub RG_ALUNO_AfterUpdate()
    Dim NC As String
    NC = Len(RG_ALUNO)
    If NC = 8 Then
    Me.RG_ALUNO.Format = "@\.@@@\.@@@\-@"
    Else
    Me.RG_ALUNO.Format = "@@\.@@@\.@@@\-@"
    End If
    End Sub

    oluap
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 33
    Registrado : 11/12/2016

    Re: [Resolvido]Máscara em campo RG

    Mensagem  oluap em 27/5/2017, 11:39

    Bom dia, amigo

    Não funcionou.

    Por exemplo, um nro. qualquer de identidade: 08958145 (8 digitos)

    A máscara criada tem que mostrar na caixa de texto, ao perder o foco, o número 0, inclusive!

    avatar
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1019
    Registrado : 07/12/2011

    Re: [Resolvido]Máscara em campo RG

    Mensagem  tauron em 27/5/2017, 16:47

    Private sub RG_ALUNO_AfterUpdate()
    Dim NC As String
    NC = Len(RG_ALUNO)
    If NC = 8 Then
    Me.RG_ALUNO.InputMask = "0\.000\.000\-0"
    Else
    Me.RG_ALUNO.InputMask = "00\.000\.000\-0"
    End If
    End Sub
    Anexos
    MascRG.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (17 Kb) Baixado 11 vez(es)


    Última edição por tauron em 28/5/2017, 11:41, editado 1 vez(es)

    oluap
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 33
    Registrado : 11/12/2016

    Re: [Resolvido]Máscara em campo RG

    Mensagem  oluap em 28/5/2017, 11:20

    Bom dia!!

    Funcionou perfeitamente! Obrigado por ter me ajudado!

    Deus o abençoe!
    avatar
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1019
    Registrado : 07/12/2011

    Re: [Resolvido]Máscara em campo RG

    Mensagem  tauron em 28/5/2017, 11:39

    Amem! e a Voce tbm.

    O Forum agradece pelo retorno!! Laughing

      Data/hora atual: 23/9/2018, 17:44