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


2 participantes

    Salvar com mascara.

    avatar
    FarrelPR
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 02/05/2024

    Salvar com mascara. Empty Salvar com mascara.

    Mensagem  FarrelPR 2/5/2024, 17:08

    Boa tarde galera, sou novo no access e estou enfrentando um problema que pesquisei mas não achei a solução.
    Criei um form para inserir os dados na tabela, coloquei o código que insere a mascara no campo de texto, mas ao salvar o cadastro ele não salva na tabela com a mascara.
    Sabem onde estou errando?
    Segue o código.

    '******
    Private Sub cbxPersonCli_AfterUpdate()
    If cbxPersonCli = "JURÍDICA" Then
    txtDocCli.InputMask = "00\.000\.000\/0000\-00;0;"
    Else
    txtDocCli.InputMask = "000\.000\.000\-00;0;"
    End If
    End Sub

    '******

    Grato
    Cristian Souza
    Cristian Souza
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 12/01/2021

    Salvar com mascara. Empty Re: Salvar com mascara.

    Mensagem  Cristian Souza 2/5/2024, 17:51

    Olá FarrelPR Very Happy

    Tente:

    Código:


    Private Sub cbxPersonCli_AfterUpdate()

        If cbxPersonCli = "JURÍDICA" Then
              Me.txtDocCli = Format(Me.txtDocCli, "00\.000\.000\/0000\-00;0;")
        Else
              Me.txtDocCli = Format(Me.txtDocCli, "000\.000\.000\-00;0;")
        End If

    End Sub

    FarrelPR gosta desta mensagem

    avatar
    FarrelPR
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 02/05/2024

    Salvar com mascara. Empty Resolvido!

    Mensagem  FarrelPR 2/5/2024, 18:07

    Funcionou perfeitamente.
    Eu estou começando a aprender o access, tenho visto que algumas coisas do excel não se aplica.
    De toda a forma, muito obrigado meu nobre!!!
    Cristian Souza
    Cristian Souza
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 12/01/2021

    Salvar com mascara. Empty Re: Salvar com mascara.

    Mensagem  Cristian Souza 2/5/2024, 18:08

    Fico feliz que tenha conseguido. Não esqueça de marcar o tópido como Resolvido Wink

    Conteúdo patrocinado


    Salvar com mascara. Empty Re: Salvar com mascara.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/5/2024, 00:38