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

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

Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 2x no Cartão de Crédito. 

Veja como comprar e saiba mais sobre o material oferecido,  clicando aqui.

Open v3

 

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: