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 : 31
    Registrado : 11/12/2016

    [Resolvido]Máscara em campo RG

    Mensagem  oluap em Sex 26 Maio 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
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Máscara em campo RG

    Mensagem  tauron em Sex 26 Maio 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 : 31
    Registrado : 11/12/2016

    Re: [Resolvido]Máscara em campo RG

    Mensagem  oluap em Sab 27 Maio 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
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Máscara em campo RG

    Mensagem  tauron em Sab 27 Maio 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 10 vez(es)


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

    oluap
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: [Resolvido]Máscara em campo RG

    Mensagem  oluap em Dom 28 Maio 2017, 11:20

    Bom dia!!

    Funcionou perfeitamente! Obrigado por ter me ajudado!

    Deus o abençoe!
    avatar
    tauron
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Máscara em campo RG

    Mensagem  tauron em Dom 28 Maio 2017, 11:39

    Amem! e a Voce tbm.

    O Forum agradece pelo retorno!! Laughing

      Data/hora atual: Ter 21 Nov 2017, 17:36