[Resolvido] Inputmask Em Subformulário Folha De Dados

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.

Existe solução?
Sugestões quanto a tela também são bem vindas, Obrigado!

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

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.

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.

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.

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.

Segue arquivo.

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

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.

Faz o teste ai.

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".

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

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

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

Ah! vlw.