[Resolvido]LGPD x Sistema

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

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


Ola scandinavo

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