... Assinatura do site por 1 ano + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$100,00
(
podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.


CPF ou CNPJ no formulário - Máscara de entrada

Usuário Cleber:

Olá, estou usando o seguinte código para ocultar o rótulo CNPJ, caso seja pessoa física e exibir o rótulo CPF ou o contrário. Também aplicar máscara de entrada nos diferentes casos.

If Me.PESSOA_TIPO.Value = "F" Then
   TXCNPJ.Visible = False
   TXCPF.Visible = True
   Me.[CPF/CNPJ].InputMask = "###,###,###-##"
ElseIf Me.PESSOA_TIPO.Value = "J" Then
   TXCNPJ.Visible = True
   TXCPF.Visible = False
   Me.[CPF/CNPJ].InputMask = "##,###,###/####-##"
ElseIf Me.PESSOA_TIPO.Value <> "F" Or Me.PESSOA_TIPO.Value <> "J" Then
   MsgBox "Digite "F" para pessoa física ou "J" para pessoa jurídica", , "Dígito inválido"
End If

Se eu incluir no evento Ao alterar do campo PESSOA_TIPO, funciona perfeitamente, MAS PORQUE NÃO FUNCIONA NOS EVENTOS, "No atual", "Ao filtrar", "Ao ativar" ?   Não consigo encontrar o erro.

Obrigado.

Suporte:

Cléber, compare o seu código com este pequeno exemplo que fiz.  Usei dois modelos - um Quadro e uma ComboBox, conforme imagem.

Selecionar Cpf_Cnpj

Os códigos e os eventos utilizados foram estes:

Private Sub Form_Current()
'teste 1
If Me!Quadro1 = 1 Then
    Me("cpf/cnpj").InputMask = "###,###,###-##"
    Me!Rótulo6.Caption = "CPF:"
Else
    Me("cpf/cnpj").InputMask = "##,###,###/####-##"
    Me!Rótulo6.Caption = "CNPJ:"
End If

'teste 2
If Me!Pessoa_Tipo_2 = "F" Then
    Me("cpf/cnpj_2").InputMask = "###,###,###-##"
    Me!Rótulo40.Caption = "CPF:"
Else
    Me("cpf/cnpj_2").InputMask = "##,###,###/####-##"
    Me!Rótulo40.Caption = "CNPJ:"
End If

End Sub

'------------------------------------------------------
Private Sub Pessoa_Tipo_2_AfterUpdate()
Me("cpf/cnpj_2") = ""
Call Form_Current
Me("cpf/cnpj_2").SetFocus
End Sub

'------------------------------------------------------
Private Sub Quadro1_AfterUpdate()
Me("cpf/cnpj") = ""
Call Form_Current
Me("cpf/cnpj").SetFocus
End Sub

Download

 


 

 


Não há comentário

Envie seu comentário: