Relatório de CPF e CNPJ

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

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.

Sílvio,

 Fiz o procedimento indicado mas não funcionou.

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


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.

Obrigado pelo retorno o forum agradece.