MaximoAccess

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

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
    avatar
    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, 5:42 pm

    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
    avatar
    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, 6:13 pm

    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, 2:25 pm, editado 2 vez(es)
    avatar
    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, 11:33 pm

    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
    avatar
    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, 9:55 am

    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
    avatar
    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, 2:28 pm

    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
    avatar
    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, 2:52 pm

    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
    avatar
    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, 8:22 am

    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
    avatar
    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 pm

    Cara agora sim, muito obrigado. Na verdade nem sei como agradecer.
    O autor desta mensagem foi removido do fórum - Ver a mensagem
    avatar
    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, 2:30 pm

    Ah! vlw.

      Data/hora atual: Qui 19 Out 2017, 6:08 pm