bollywood actresses hair loss hair rehab london contact number cheap hair extensions brazilian curly hair with closure hair extension fails human hair wigs black ponytail hairstyles 2018 sunny hair extensions uk hair extensions remy hair extensions weft koko one piece hair extensions clip hair
CPF ou CNPJ no formulário

... 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

Antes de iniciar a sua leitura, clique aqui e cadastre-se para receber comunicados sobre novos artigos.

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: