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]LGPD x Sistema

    avatar
    msilveir
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 318
    Registrado : 13/03/2011

    [Resolvido]LGPD x Sistema Empty [Resolvido]LGPD x Sistema

    Mensagem  msilveir 29/3/2021, 16:44

    Olá Pessoal

    tenho um sistema aqui na empresa feito Access com cadastro de fornecedores
    onde tem umas informações importantes como telefone e CNPJ mas vou focar nessas por enquanto

    preciso que nos campos na consulta desses fornecedores mostre assim exemplo

    CNPJ (17.365.788/0001-32) hoje esta assim mas com a nova lei deve mostrar assim (17.***.***/***1-*2

    telefone (51) 3436-3541 - (51) 34**-**41

    não sei como fazer isso por um acaso alguém poderia me dar uma luz

    obrigado a todos

    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 901
    Registrado : 11/11/2009

    [Resolvido]LGPD x Sistema Empty Re: [Resolvido]LGPD x Sistema

    Mensagem  scandinavo 31/3/2021, 17:34

    Usando a função "Mid" e depois chamando ela na consulta

    Código:
    'Scandinavo 31/03/21 MaximoAccess
    Public Function FormataCNPJ(Campo As String) As String

    FormataCNPJ = Mid(Campo, 1, 3) & "***.***/***" & Mid(Campo, 15, 1) & "-*" & Mid(Campo, 18, 1)

    End Function
    Public Function FormataFONE(Campo As String) As String

    FormataFONE = Mid(Campo, 1, 7) & "**-**" & Mid(Campo, 13, 2)

    End Function
    Anexos
    [Resolvido]LGPD x Sistema AttachmentFormataCNPJ.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (25 Kb) Baixado 12 vez(es)
    avatar
    msilveir
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 318
    Registrado : 13/03/2011

    [Resolvido]LGPD x Sistema Empty Re: [Resolvido]LGPD x Sistema

    Mensagem  msilveir 2/4/2021, 18:23

    Ola scandinavo

    funcionou direto o seu código muito obrigado pela sua ajuda.
    uma ótima pascoa

      Data/hora atual: 16/10/2021, 22:38