MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


4 participantes

    [Resolvido]Máscara de entrada dinâmica

    avatar
    salomao
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 15/05/2010

    [Resolvido]Máscara de entrada dinâmica Empty Máscara de entrada dinâmica

    Mensagem  salomao 4/6/2010, 22:44

    Desejo 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.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Máscara de entrada dinâmica Empty Re: [Resolvido]Máscara de entrada dinâmica

    Mensagem  criquio 5/6/2010, 00:02

    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


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

    avatar
    icaromorais
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 12/03/2011

    [Resolvido]Máscara de entrada dinâmica Empty Re: [Resolvido]Máscara de entrada dinâmica

    Mensagem  icaromorais 9/7/2011, 20:02

    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!
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Máscara de entrada dinâmica Empty Re: [Resolvido]Máscara de entrada dinâmica

    Mensagem  vieirasoft 9/7/2011, 20:18

    Tem aqui no fórum exemplos. É só consultar o repositório de exemplos
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Máscara de entrada dinâmica Empty Re: [Resolvido]Máscara de entrada dinâmica

    Mensagem  vieirasoft 9/7/2011, 20:19

    Veja este exemplo
    http://maximoaccess.forumeiros.com/t286-valida-cpf-ou-cnpj
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Máscara de entrada dinâmica Empty Re: [Resolvido]Máscara de entrada dinâmica

    Mensagem  vieirasoft 13/7/2011, 11:41

    Se houver alguma dúvida reabra por favor
    avatar
    Convidado
    Convidado


    [Resolvido]Máscara de entrada dinâmica Empty Re: [Resolvido]Máscara de entrada dinâmica

    Mensagem  Convidado 13/7/2011, 12:23

    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

    Conteúdo patrocinado


    [Resolvido]Máscara de entrada dinâmica Empty Re: [Resolvido]Máscara de entrada dinâmica

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 07:11