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

    [Resolvido]Salvar Campo com mascara na tabela

    avatar
    Roxo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 101
    Registrado : 10/07/2012

    [Resolvido]Salvar Campo com mascara na tabela Empty [Resolvido]Salvar Campo com mascara na tabela

    Mensagem  Roxo 2/8/2016, 23:57

    Boa Noite,
    Estou dando um upgrade no meu sistema e preciso importar a tabela clientes para um novo programa, mas na tabela antiga o CPF_CNPJ a mascara ficava no form, e na tabela gravava somente os números, acontece que no sistema novo, o form classifica se é cpf ou cnpj e já grava na tabela com a mascara. como faço para colocar a mascara nos registros já existentes, seguindo a regra

    se 14 digitos
    Mascara ="00.000.000/0000-00"
    se não
    Mascara = "000.000.000-00"

    Fiz uns testes colocando mais um campo na tabela antiga e um form só para copiar o campo cpf , colocar a mascara e salvar no campo novo, depois renomeava o campo e estaria resolvido, mas no form até fica com a mascara, mas na tabela fica sem.

    Se alguém poder ajudar agradeço

    Roxo

    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    [Resolvido]Salvar Campo com mascara na tabela Empty Re: [Resolvido]Salvar Campo com mascara na tabela

    Mensagem  Avelino Sampaio 3/8/2016, 09:51

    Olá!

    Faça um backup de segurança da sua tabela antes do teste.

    Execute esta consulta de ação:

    currentdb.Execute "UPDATE NomaTabela Set [cpf_cnpj] = iif(len([cpf_cnpj])=14,format([cpf_cnpj],'00\.000\.000\/0000\-00'),format([cpf_cnpj],'000\.000\.000\-00'));"

    Nota: pode executar direto na janela imediata do VBA

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    Roxo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 101
    Registrado : 10/07/2012

    [Resolvido]Salvar Campo com mascara na tabela Empty Re: [Resolvido]Salvar Campo com mascara na tabela

    Mensagem  Roxo 3/8/2016, 15:42

    Avelino,
    Funcionou perfeitamente, como esperava, perfeito
    Muito obrigado

    vou colocar como resolvido

    só mais uma coisinha, nesta mesma tabela ao cadastrar novo cliente, abre navegador no site para consultar situação, só que a pagina fica minimizada na barra de tarefas, tem como abrir maximizado?
    Fiz o código pesquisando aqui no site, não sei se está certo, mas está funcionando, só não abre maximizado.
    tenho na forma abaixo:

    'Começa abrir site consulta cpf/cnpj

    If Len(Found) = 11 Then
    Me.Consulta_site.SetFocus
    DoCmd.RunCommand acCmdCopy
    Set ie = CreateObject("internetexplorer.application")
    ie.Visible = True
    ie.navigate "http://www.receita.fazenda.gov.br/Aplicacoes/ATCTA/cpf/ConsultaPublica.asp"
    While ie.Busy
    DoEvents
    Wend

    Else
    Me.Consulta_site.SetFocus
    DoCmd.RunCommand acCmdCopy
    Set ie = CreateObject("internetexplorer.application")
    ie.Visible = True
    ie.navigate "http://www.receita.fazenda.gov.br/PessoaJuridica/CNPJ/cnpjreva/Cnpjreva_Solicitacao.asp"
    End If

    'Final abrir site consulta cpf/cnpj

    Conteúdo patrocinado


    [Resolvido]Salvar Campo com mascara na tabela Empty Re: [Resolvido]Salvar Campo com mascara na tabela

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 25/11/2024, 14:00