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


    [Resolvido] Inputmask Em Subformulário Folha De Dados

    theand.abreu
    theand.abreu
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido] Inputmask Em Subformulário Folha De Dados Empty [Resolvido] Inputmask Em Subformulário Folha De Dados

    Mensagem  theand.abreu 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.
    [Resolvido] Inputmask Em Subformulário Folha De Dados 20a32c6
    Existe solução?
    Sugestões quanto a tela também são bem vindas, Obrigado!
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 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)
    theand.abreu
    theand.abreu
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  theand.abreu 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.
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 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.
    theand.abreu
    theand.abreu
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  theand.abreu 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.
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 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.
    theand.abreu
    theand.abreu
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  theand.abreu 21/7/2014, 18:28

    Segue arquivo.
    Anexos
    [Resolvido] Inputmask Em Subformulário Folha De Dados Attachmentcontatos.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.9 Mb) Baixado 5 vez(es)
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 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
    theand.abreu
    theand.abreu
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  theand.abreu 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.
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 22/7/2014, 01:28

    Faz o teste ai.
    theand.abreu
    theand.abreu
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  theand.abreu 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".
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 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
    theand.abreu
    theand.abreu
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  theand.abreu 23/7/2014, 16:22

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


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

    Mensagem  Convidado 23/7/2014, 17:00

    Só faltou fechar o tópico, segue o link abaixo para fazê-lo.
    http://maximoaccess.forumeiros.com/t860-resolucao-de-topicos
    theand.abreu
    theand.abreu
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  theand.abreu 23/7/2014, 18:30

    Ah! vlw.

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 19:17