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 11/6/2014, 21: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!

    Convidado
    Convidado

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

    Mensagem  Convidado em 11/6/2014, 22: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 13/6/2014, 18:25, 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 13/6/2014, 03: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.

    Convidado
    Convidado

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

    Mensagem  Convidado em 13/6/2014, 18:27

    Observa novamente o meu post anterior, pois tinha colocado nomes de campos fictícios, editei baseado nos nomes que passaste no teu post inicial, é só seguir aquele raciocínio, se continuar tendo dificuldades, posta os objetos envolvidos no problema para uma melhor ajuda.
    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 21/7/2014, 13: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.

    Convidado
    Convidado

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

    Mensagem  Convidado em 21/7/2014, 14:40

    Amigo, só vendo a imagem fica difícil identificar onde está o problema no teu projeto, eu precisaria ver de fato como está o objeto (subformulário) para uma melhor ajuda, pelo código que passei teria que dar certo.
    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 21/7/2014, 18:28

    Segue arquivo.
    Anexos
    contatos.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.9 Mb) Baixado 5 vez(es)

    Convidado
    Convidado

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

    Mensagem  Convidado em 21/7/2014, 18:44

    Só me confirma, qual a configuração para cada um deles, aqui no meu estado por exemplo:

    Celular: (91)8166-2627
    Fone/Fax: (91)3231-8888
    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 21/7/2014, 18: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.

    Convidado
    Convidado

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

    Mensagem  Convidado em 22/7/2014, 01:28

    Faz o teste ai.
    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 23/7/2014, 12: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".

    Convidado
    Convidado

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

    Mensagem  Convidado em 23/7/2014, 15:07

    Esqueci de tirar o código do evento ao receber o foco do campo "com_descrição" e deixar só o que está no evento após atualizar desse campo e o evento da máscara vai ocorrer somente depois de pressionar o enter, o código que tens que tirar é esse:

    Private Sub com_descricao_GotFocus()

    If IsNull(Me.com_descricao) Then

    Select Case com_tipo

    Case Is = "Telefone", Is = "Fax"
    Me.com_descricao.InputMask = "(##) ####-####"
    Case Is = "Celular"
    Me.com_descricao.InputMask = "(##) #####-####"
    Case Else
    Me.com_descricao.InputMask = ""

    End Select

    End If

    End Sub
    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 23/7/2014, 16:22

    Cara agora sim, muito obrigado. Na verdade nem sei como agradecer.

    Convidado
    Convidado

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

    Mensagem  Convidado em 23/7/2014, 17:00

    Só faltou fechar o tópico, segue o link abaixo para fazê-lo.
    http://www.maximoaccess.com/t860-resolucao-de-topicos
    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 23/7/2014, 18:30

    Ah! vlw.

      Data/hora atual: 22/6/2018, 18:04