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é 10x no Cartão de Crédito.
Veja como comprar e saiba mais sobre o material oferecido, clicando aqui.
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.
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 |
