CPF ou CNPJ no formulário - Máscara de entrada
Adquira a assinatura vitalícia do site e passe a ter acesso aos arquivos exemplos, vídeos, revistas, livros e ao kit de montagem de ribbons. Você terá suporte por e-mail, caso necessite tirar dúvidas pontuais. Clique AQUI e veja como obter um dos nossos planos. Clique AQUI e faça uma visita a seção Downloads do site e verifique as centenas de arquivos que estará à sua disposição. Clique AQUI e faça uma visita a seção Vídeos do site e veja a lista que estará disponível ao se tornar o nosso assinante vitalício. Clique AQUI e saiba mais detalhes sobre o kit de montagem de ribbons (deixe seus aplicativos com aspecto profissional).
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:
Faça o login aqui para ter acesso ao código.
Download
Não há comentário |