Início![[Resolvido]Máscara de entrada dinâmica Empty](https://2img.net/i/empty.gif)
salomao Sex 04 Jun 2010, 6:44 pmDesejo criar uma máscara de entrada dinâmica para um campo que deve receber um número de CPF ou CNPJ, para que no momento em que o usuário esteja digitado, a máscara seja acionada, ou seja, se o usuário começa digitando, e até o 11º dígito, o sistema atribui a máscara como CPF (000.000.000-00); após digitar o 12º, o access altere a máscara para CNPJ (00.000.000/0000-00). Agradecido desde já quem possa me ajudar.
4 participantes
[Resolvido]Máscara de entrada dinâmica
salomao- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7
Registrado : 15/05/2010
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
Não seria melhor colocar uma caixa de texto para digitar F para pessoa física e J para pessoa jurídica? Nesse caso seria só colocar no evento Após atualizar da caixa de texto que vai receber o F ou o J, o código abaixo?
If Me.txtPessoa.Value = "F" Then
Me.txtDoc.InputMask = "###,###,###-##"
ElseIf Me.txtPessoa.Value = "J" Then
Me.txtDoc.InputMask = "##,###,###/####-##"
ElseIf Me.txtPessoa.Value <> "F" Or Me.txtPessoa.Value <> "J" Then
MsgBox "Caracter inválido. Digite ""F"" para pessoa física ou ""J"" para pessoa jurídica", , "Dígito inválido"
End If
If Me.txtPessoa.Value = "F" Then
Me.txtDoc.InputMask = "###,###,###-##"
ElseIf Me.txtPessoa.Value = "J" Then
Me.txtDoc.InputMask = "##,###,###/####-##"
ElseIf Me.txtPessoa.Value <> "F" Or Me.txtPessoa.Value <> "J" Then
MsgBox "Caracter inválido. Digite ""F"" para pessoa física ou ""J"" para pessoa jurídica", , "Dígito inválido"
End If
.................................................................................
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
icaromorais- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 13
Registrado : 11/03/2011
Olá Criquio,
Consegui usar a sua dica e agora tenho um campo exatamente como você disse com máscara para CPF e CNPJ. No entanto os valores não são salvos com a máscara.
Depois de digitar o cpf por exemplo, se eu consultar a tabela referente aquele formulário ou até mesmo se eu sair e entrar no formulário mais uma vez, o número do cpf/cnpj vai estar lá mas sem as pontuações devidas.
Como fazer?
Obrigado!
Consegui usar a sua dica e agora tenho um campo exatamente como você disse com máscara para CPF e CNPJ. No entanto os valores não são salvos com a máscara.
Depois de digitar o cpf por exemplo, se eu consultar a tabela referente aquele formulário ou até mesmo se eu sair e entrar no formulário mais uma vez, o número do cpf/cnpj vai estar lá mas sem as pontuações devidas.
Como fazer?
Obrigado!
vieirasoft- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010
Tem aqui no fórum exemplos. É só consultar o repositório de exemplos
vieirasoft- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010
Veja este exemplo
http://maximoaccess.forumeiros.com/t286-valida-cpf-ou-cnpj
http://maximoaccess.forumeiros.com/t286-valida-cpf-ou-cnpj
vieirasoft- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010
Se houver alguma dúvida reabra por favor
Convidado- Convidado
Para salvá-lo com a máscara tem que colocar isto em formato no campo da tabela.. consulte a ajuda F-1 do Access que é bem explicatica sobre isto
Em um exemplo meu que salva com a máscar.. onde salvo coordenadas geograficas.. na propriedade formato na tabela
coloquei
00°00\'00"''";;**
ai no caso os 0 são substituidos pelos numeros digitados permanecendo os graficos
Em um exemplo meu que salva com a máscar.. onde salvo coordenadas geograficas.. na propriedade formato na tabela
coloquei
00°00\'00"''";;**
ai no caso os 0 são substituidos pelos numeros digitados permanecendo os graficos
|
|
|