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 : 391
    Registrado : 13/03/2011

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

    Mensagem  msilveir Seg 29 Mar - 12: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
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  scandinavo Qua 31 Mar - 13: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 19 vez(es)
    avatar
    msilveir
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  msilveir Sex 2 Abr - 14:23

    Ola scandinavo

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

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Seg 7 Out - 18:18