MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido] Inputmask Em Subformulário Folha De Dados

    Compartilhe

    theand.abreu
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 17/10/2012

    [Resolvido] Inputmask Em Subformulário Folha De Dados

    Mensagem  theand.abreu em Qua 11 Jun 2014, 17:42

    Olá galera faz tempo que não passo aqui, gostaria de uma ajuda com InputMask

    Tenho o formulário principal [Cliente] onde relaciono um subformulário [Contato] este sendo do tipo folha de dados, pois acredito que um cliente possa ter diversas opções de contato.
    A cada tipo de contato estou tentando colocar uma InputMask diferente ou seja :

    Telefone
    Celular
    Fax
    Email
    Código:
    Private Sub Form_Current()
        If com_tipo = "Telefone" Then
            com_descricao.InputMask = "(00) 0000-0000"
        ElseIf com_tipo = "Celular" Then
            com_descricao.InputMask = "(00) 000\.000\.000"
        ElseIf com_tipo = "Fax" Then
            com_descricao.InputMask = "(00) 0000-0000"
        Else
            com_descricao.InputMask = ""
        End If
    End Sub
    Funciona em certos termos, porem quando o cliente possui Telefone e Celular ele só formata o primeiro os demais ficam sem formatação.
    [Você precisa estar registrado e conectado para ver esta imagem.]
    Existe solução?
    Sugestões quanto a tela também são bem vindas, Obrigado!
    O autor desta mensagem foi removido do fórum - Ver a mensagem

    Beto Givoni
    VIP
    VIP

    Respeito às Regras 0%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1207
    Registrado : 04/01/2011

    Re: [Resolvido] Inputmask Em Subformulário Folha De Dados

    Mensagem  Beto Givoni em Qua 11 Jun 2014, 18:13

    Olá, pelo que entendi somente o celular difere em quantidade de dígitos, o fone e fax tem o mesmo número de caracteres, procede? Apesar de não entender direito esse formato usado para o celular que colocastes.

    If com_tipo = "Telefone"  Or com_tipo = "Fax" Then
           com_descricao.InputMask = "(00)0000-0000"
    ElseIf com_tipo = "Celular" Then
           com_descricao.InputMask = "(00)000\.000\.000"
    Else
           com_descricao.InputMask = ""
    End If


    Última edição por Beto Givoni em Sex 13 Jun 2014, 14:25, editado 2 vez(es)

    theand.abreu
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 17/10/2012

    Re: [Resolvido] Inputmask Em Subformulário Folha De Dados

    Mensagem  theand.abreu em Qui 12 Jun 2014, 23:33

    Correto, entendeste a formatação, porém o problema é que como pode ser visto na imagem os demais registros não procedem com a formatação específica.
    Anexos
    Capturar.PNG
    Você não tem permissão para fazer download dos arquivos anexados.
    (9 Kb) Baixado 8 vez(es)
    O autor desta mensagem foi removido do fórum - Ver a mensagem

    theand.abreu
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 17/10/2012

    Re: [Resolvido] Inputmask Em Subformulário Folha De Dados

    Mensagem  theand.abreu em Seg 21 Jul 2014, 09:55

    Olá Beto, desde já agradeço o tempo dispensado no meu problema.

    Mas volto aqui pois continuei pesquisando na net e não consegui resolver.

    Acho que minha explicação não está sendo clara mas vamos tentar mais uma vez.
    Para entender o que quero observe a imagem anexada no post acima.

    no registro
    7 | Telefone | (11) 111.222.22   ---> formatação de celular errada para telefone.

    ele não deveria estar com esta formatação, porem ao selecionar o registro 13 ele acaba formatando todos os registros com a formatação de "celular".
    Ou seja ele assume a formatação do campo selecionado para todos os registros, eu gostaria que a formatação não fosse alterada a medida que navego pelos registros.
    O autor desta mensagem foi removido do fórum - Ver a mensagem

    theand.abreu
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 17/10/2012

    Re: [Resolvido] Inputmask Em Subformulário Folha De Dados

    Mensagem  theand.abreu em Seg 21 Jul 2014, 14:28

    Segue arquivo.
    Anexos
    contatos.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.9 Mb) Baixado 4 vez(es)
    O autor desta mensagem foi removido do fórum - Ver a mensagem

    theand.abreu
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 17/10/2012

    Re: [Resolvido] Inputmask Em Subformulário Folha De Dados

    Mensagem  theand.abreu em Seg 21 Jul 2014, 14:52

    Aí vc me pegou.
    Na verdade estou fazendo um controle para uma auto-elétrica que fica em uma cidade na Grande São Paulo. Pensei apenas em números telefones celulares de São Paulo, que possuem o 9 na frente.
    O autor desta mensagem foi removido do fórum - Ver a mensagem

    theand.abreu
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 17/10/2012

    Re: [Resolvido] Inputmask Em Subformulário Folha De Dados

    Mensagem  theand.abreu em Qua 23 Jul 2014, 08:22

    Olá Beto não deu certo.
    Acho que vou deixar a cargo do usuário a formatação do telefone.

    No seu exemplo qdo vc insere um novo item ao digitar no campo [Tipo] "Celular" ele bagunça os que são "Telefone".
    O autor desta mensagem foi removido do fórum - Ver a mensagem

    theand.abreu
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 17/10/2012

    Re: [Resolvido] Inputmask Em Subformulário Folha De Dados

    Mensagem  theand.abreu em Qua 23 Jul 2014, 12:22

    Cara agora sim, muito obrigado. Na verdade nem sei como agradecer.
    O autor desta mensagem foi removido do fórum - Ver a mensagem

    theand.abreu
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 17/10/2012

    Re: [Resolvido] Inputmask Em Subformulário Folha De Dados

    Mensagem  theand.abreu em Qua 23 Jul 2014, 14:30

    Ah! vlw.

      Data/hora atual: Qui 08 Dez 2016, 21:53