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

    Relatório de CPF e CNPJ

    avatar
    Gibadf
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 25/07/2014

    Relatório de CPF e CNPJ Empty Relatório de CPF e CNPJ

    Mensagem  Gibadf 13/8/2015, 00:51

    Boa Noite colegas,

     Sou novato no Fórum, minha dúvida é a seguinte, tenho um tabela em que o CPF e CNPJ são gravados em um único campo, só números. No meu relatório não consigo criar a máscara destinta para cada campo CPF  ou CNPJ. Acho que não ler linha por linha da minha tabela. Vejam o que utilizei ao carregar o Relatório.

    Private Sub Report_Load()
     If Len(Me.NCPF) = 14 Then
       Me.NCPF.InputMask = "000\.000\.000\-00"
     ElseIf Len(Me.NCPF) = 11 Then
        Me.NCPF.InputMask = "00\.000\.000\/0000\-00"
     End If
    End Sub
    Silvio
    Silvio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4719
    Registrado : 20/04/2011

    Relatório de CPF e CNPJ Empty Re: Relatório de CPF e CNPJ

    Mensagem  Silvio 13/8/2015, 11:24

    Olá, bom dia......seja bem vindo ao fórum.


    Tente dessa forma:
    a- clique no cabeçalho da página.
    b- evento " ao formatar".

    Código:
    Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
     If Len(Me.NCPF) = 14 Then
      Me.NCPF.InputMask = "000\.000\.000\-00"
     ElseIf Len(Me.NCPF) = 11 Then
        Me.NCPF.InputMask = "00\.000\.000\/0000\-00"
     End If
    End Sub


    Bons estudos.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    Gibadf
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 25/07/2014

    Relatório de CPF e CNPJ Empty Relatório de CPF e CNPJ

    Mensagem  Gibadf 14/8/2015, 01:50

    Sílvio,

     Fiz o procedimento indicado mas não funcionou.
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10613
    Registrado : 04/11/2009

    Relatório de CPF e CNPJ Empty Re: Relatório de CPF e CNPJ

    Mensagem  JPaulo 14/8/2015, 10:02

    Esse tipo de formatação deve ser colocado no evento ao formatar no detalhe do relatorio;

    Apenas assim;

    Código:
    Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
     If Len(Me.NCPF) = 11 Then
      Me.NCPF.InputMask = "000\.000\.000\-00"
     Else
        Me.NCPF.InputMask = "00\.000\.000\/0000\-00"
     End If
    End Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Relatório de CPF e CNPJ Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Relatório de CPF e CNPJ Folder_announce_new 102 Códigos VBA Gratuitos...
    Relatório de CPF e CNPJ Folder_announce_new Instruções SQL como utilizar...
    avatar
    Gibadf
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 25/07/2014

    Relatório de CPF e CNPJ Empty Relatório de CPF e CNPJ

    Mensagem  Gibadf 14/8/2015, 13:01

    JPaulo e Sílvio,


           Descobri qual era o problema. Quando clicava no botão para visualizar o Relatório, não era mostrado a mascara. Agora quando utilizei para visualização da impressão, aí sim funcionou.

          Agradeço desde já a ajuda de vocês e parabéns ao FORUM MAXIMOACCESS.

    Gilberto.
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10613
    Registrado : 04/11/2009

    Relatório de CPF e CNPJ Empty Re: Relatório de CPF e CNPJ

    Mensagem  JPaulo 14/8/2015, 15:34

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Relatório de CPF e CNPJ Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Relatório de CPF e CNPJ Folder_announce_new 102 Códigos VBA Gratuitos...
    Relatório de CPF e CNPJ Folder_announce_new Instruções SQL como utilizar...

      Data/hora atual: 12/4/2021, 01:21