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


3 participantes

    Ao clicar do botão inserir mascara de acordo com a quantidade de caracteres

    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1082
    Registrado : 01/07/2011

    Ao clicar do botão inserir mascara de acordo com a quantidade de caracteres Empty Ao clicar do botão inserir mascara de acordo com a quantidade de caracteres

    Mensagem  Connekta Informatica 20/5/2014, 12:32

    Bom dia

    Tenho um cadastro de clientes, onde tenho o campo cboPessoa, txtDoc1.

    Quando eu seleciono (no campo cboPessoa) Jurídica ele me mostra a mascara do CNPJ e quando seleciono Física a do CPF.

    Eu digito de acordo com o tipo de cliente, mas, ao inserir na tabela ser for CNPJ fica assim: 00442562000195 e se for CPF: 00044256295.


    Será que não teria uma forma de a mascara ser adicionada na tabela ao clicar de um botão?


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    clynton
    clynton
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 309
    Registrado : 08/07/2013

    Ao clicar do botão inserir mascara de acordo com a quantidade de caracteres Empty Re: Ao clicar do botão inserir mascara de acordo com a quantidade de caracteres

    Mensagem  clynton 20/5/2014, 12:50

    Bom dia,

    Uma vez que você já tenha selecionado se a Pessoa é Física ou Jurídica, pode colocar no Campo onde vai digitar o CPF ou CNPJ no Evento 'Ao receber o foco':

    If Me.NomeDoCampoPessoaFisicaOuJuridica.Value = "Física" then
    Me.NomeDoCampoOndeEntraCPFouCNPJ.InputMask = "00000000000"
    ElseIf Me.NomeDoCampoPessoaFisicaOuJuridica.Value = "Jurídica" then
    Me.NomeDoCampoOndeEntraCPFouCNPJ.InputMask = "00000000000000"
    End If

    Sucesso!
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1082
    Registrado : 01/07/2011

    Ao clicar do botão inserir mascara de acordo com a quantidade de caracteres Empty Re: Ao clicar do botão inserir mascara de acordo com a quantidade de caracteres

    Mensagem  Connekta Informatica 20/5/2014, 15:32

    Bom dia clynton, obrigado pela atenção.

    Mais não é isso, o que eu quero é inserir a mascara na tabela de acordo com o que eu selecionar, ou seja, se for CNPJ insira a mascara do CNPJ e se for CPF insira a mascara do CPF na tabela.


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    rdrck
    rdrck
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1011
    Registrado : 11/03/2014

    Ao clicar do botão inserir mascara de acordo com a quantidade de caracteres Empty Re: Ao clicar do botão inserir mascara de acordo com a quantidade de caracteres

    Mensagem  rdrck 20/5/2014, 15:47

    Olá Up,
    Qual seria a real necessidade de inserir a máscara no registro da tabela?
    Afinal ela serve mais para visualização.


    .................................................................................
    Meu Programa / OS:
    Access 2010 - Windows 10.
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1082
    Registrado : 01/07/2011

    Ao clicar do botão inserir mascara de acordo com a quantidade de caracteres Empty Re: Ao clicar do botão inserir mascara de acordo com a quantidade de caracteres

    Mensagem  Connekta Informatica 20/5/2014, 15:54

    Então como você disse ele server para visualização.

    Eu tem um tela de cliente onde mostrar todos os clientes cadastrados e os números do CPF e CNPJ precisam da mascara. E o outro motivos são para a impressão do recibos.


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    rdrck
    rdrck
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1011
    Registrado : 11/03/2014

    Ao clicar do botão inserir mascara de acordo com a quantidade de caracteres Empty Re: Ao clicar do botão inserir mascara de acordo com a quantidade de caracteres

    Mensagem  rdrck 20/5/2014, 16:03

    Então, pelo que entendi, você necessita que a máscara seja mostrada no relatório, certo?
    E já tentou colocar o código no relatório? Pois o relatório também tem a opção de adicionar máscara.


    .................................................................................
    Meu Programa / OS:
    Access 2010 - Windows 10.
    rdrck
    rdrck
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1011
    Registrado : 11/03/2014

    Ao clicar do botão inserir mascara de acordo com a quantidade de caracteres Empty Re: Ao clicar do botão inserir mascara de acordo com a quantidade de caracteres

    Mensagem  rdrck 20/5/2014, 16:14

    Pode tentar, no evento Ao Abrir ou Ao Carregar do relatório:

    If Me.cboTipoPessoa = "Jurídica" Then
    Me.CampodaMascara.InputMask = "99\.999\.999\/9999\-99"
    Else If Me.cboTipoPessoa = "Física" Then
    Me.CampodaMascara.InputMask = "999\.999\.999-99"


    .................................................................................
    Meu Programa / OS:
    Access 2010 - Windows 10.
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1082
    Registrado : 01/07/2011

    Ao clicar do botão inserir mascara de acordo com a quantidade de caracteres Empty Re: Ao clicar do botão inserir mascara de acordo com a quantidade de caracteres

    Mensagem  Connekta Informatica 20/5/2014, 17:11

    Coloquei no evento ao abrir e apareceu erro na execução '2427' Você inseriu uma expressão que não tem valor.


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    rdrck
    rdrck
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1011
    Registrado : 11/03/2014

    Ao clicar do botão inserir mascara de acordo com a quantidade de caracteres Empty Re: Ao clicar do botão inserir mascara de acordo com a quantidade de caracteres

    Mensagem  rdrck 20/5/2014, 17:17

    Os nomes dos campos estão certos?
    Tente tirar o Me.


    .................................................................................
    Meu Programa / OS:
    Access 2010 - Windows 10.
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1082
    Registrado : 01/07/2011

    Ao clicar do botão inserir mascara de acordo com a quantidade de caracteres Empty Re: Ao clicar do botão inserir mascara de acordo com a quantidade de caracteres

    Mensagem  Connekta Informatica 22/5/2014, 13:22

    Bom dia

    Já verifiquei e os nomes dos campos estão corretos.


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    rdrck
    rdrck
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1011
    Registrado : 11/03/2014

    Ao clicar do botão inserir mascara de acordo com a quantidade de caracteres Empty Re: Ao clicar do botão inserir mascara de acordo com a quantidade de caracteres

    Mensagem  rdrck 22/5/2014, 16:51

    Estranho...

    If Me.cboTipoPessoa = "Jurídica" Then
    Me.CampodaMascara.InputMask = "99\.999\.999\/9999\-99"
    Else If Me.cboTipoPessoa = "Física" Then
    Me.CampodaMascara.InputMask = "999\.999\.999\-99"

    Tente adicionar a barra invertida acima.


    .................................................................................
    Meu Programa / OS:
    Access 2010 - Windows 10.
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1082
    Registrado : 01/07/2011

    Ao clicar do botão inserir mascara de acordo com a quantidade de caracteres Empty Re: Ao clicar do botão inserir mascara de acordo com a quantidade de caracteres

    Mensagem  Connekta Informatica 23/5/2014, 17:18

    Mas espera ai, esta função é para formulário?

    Se for eu estou tentando em um relatório.


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    rdrck
    rdrck
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1011
    Registrado : 11/03/2014

    Ao clicar do botão inserir mascara de acordo com a quantidade de caracteres Empty Re: Ao clicar do botão inserir mascara de acordo com a quantidade de caracteres

    Mensagem  rdrck 23/5/2014, 17:45

    Os códigos são para relatório.


    .................................................................................
    Meu Programa / OS:
    Access 2010 - Windows 10.
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1082
    Registrado : 01/07/2011

    Ao clicar do botão inserir mascara de acordo com a quantidade de caracteres Empty Re: Ao clicar do botão inserir mascara de acordo com a quantidade de caracteres

    Mensagem  Connekta Informatica 23/5/2014, 17:53

    Tem como mandar um exemplo?


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1082
    Registrado : 01/07/2011

    Ao clicar do botão inserir mascara de acordo com a quantidade de caracteres Empty Re: Ao clicar do botão inserir mascara de acordo com a quantidade de caracteres

    Mensagem  Connekta Informatica 29/5/2014, 12:36

    Bom dia

    Fuçando na Net encontrei esse código:

    Código:

    If Len(Me.Doc1) = 11 Then
    Me.Doc1.InputMask = "000\.000\.000\-00"
    Else
    If Len(Me.Doc1) = 14 Then
    Me.Doc1.InputMask = "00\.000\.000\/0000\-00"
    End If
    End If

    Mas, ele funciona somente com o Cnpj a mascara do Cpf parece que ele não reconhece, veja:

    Ao clicar do botão inserir mascara de acordo com a quantidade de caracteres Soy839

    Será que alguem pode me ajudar.



    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    clynton
    clynton
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 309
    Registrado : 08/07/2013

    Ao clicar do botão inserir mascara de acordo com a quantidade de caracteres Empty Re: Ao clicar do botão inserir mascara de acordo com a quantidade de caracteres

    Mensagem  clynton 29/5/2014, 17:38

    Boa tarde, veja se o exemplo ajuda.
    Anexos
    Ao clicar do botão inserir mascara de acordo com a quantidade de caracteres AttachmentMáscara.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (24 Kb) Baixado 22 vez(es)


    .................................................................................
    Cumprimentos...


    Atenciosamente,
    Rogério Clynton Ribeiro


    __________________________________________________________________________

    "Ninguém é tão grande que não possa aprender e nem tão pequeno que não possa ensinar."

    Conteúdo patrocinado


    Ao clicar do botão inserir mascara de acordo com a quantidade de caracteres Empty Re: Ao clicar do botão inserir mascara de acordo com a quantidade de caracteres

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 15:58