Olá amigos estou com um problema no meu relatório, uso o código asseguir para mostrar a mascara no modo de exibição relatório geral de fornecedores, porém todos registros aparecem com máscara de cnpj e não de CPF e CNPJ. alguém ai poderia me ajudar? já olhei no repositório mas não consegui resolver.
Private Sub Report_Load()
DoCmd.Maximize
DoCmd.Beep
Select Case Len(Me.t1Cnpj)
Case 14 ' É CNPJ
Me.t1Cnpj.InputMask = "99\.999\.999\/9999\-99"
Case 11 ' É CPF
Me.t1Cnpj.InputMask = "999\.999\.999-99"
Case Else ' Não é CNPJ nem CPF
Me.t1Cnpj.InputMask = ""
End Select
End Sub
Private Sub Report_Load()
DoCmd.Maximize
DoCmd.Beep
Select Case Len(Me.t1Cnpj)
Case 14 ' É CNPJ
Me.t1Cnpj.InputMask = "99\.999\.999\/9999\-99"
Case 11 ' É CPF
Me.t1Cnpj.InputMask = "999\.999\.999-99"
Case Else ' Não é CNPJ nem CPF
Me.t1Cnpj.InputMask = ""
End Select
End Sub