[Resolvido]Acrescentar um numero na mascara

OLá amigos estou aqui novamente
tenho está mascara :

\(00") "0000\-0000;0;_

tentei acrescentar mais um zero nos quatro primeiros zero depois do parentes Exemplo do que fiz \(00") "00000\-0000;0;_
para ficar com nove digitos mas ai não funciona mais, como faço para acrescentar mais um digito


Obrigada Amandaalves

Boa tarde,
Só vendo. Em princípio, deve funcionar.

Olá Alexandre Neves,

Não funcionou, tentei mudar na tabela no formulário mas perde a funcionabilidade, o banco que estou tentando mudar é o do tópico
Pesquisar Numero do Projeto e erro ao adicionar novo registgro , no campo celular do form cliente.

Obrigada Amandaalves

Olá Amanda,

Use a Máscara assim : !\(99") "!99900\-0000;;

Abraços

Bom dia a todos.

Apenas dando um pitaquinho de leve. Particularmente eu prefiro usar o código abaixo tanto para telefone fixo, celular ou recados.

Private Sub FONE_Exit(Cancel As Integer)
If Len(FONE) <> "" Then
Select Case Len(FONE)
Case 10
Me.FONE.format = "(@@) @@@@-@@@@"
Case 11
Me.FONE.format = "(@@) @-@@@@-@@@@"
Case Else
MsgBox ("Número Inválido!"), vbCritical, Me.Caption
DoCmd.CancelEvent
Me.FONE = ""
Me.FONE.SetFocus

End Select
End If
End Sub

Olá amigos desculpe a demora, mas só agora consegui voltar para responder, o código do LiveBrain, funcionou, obrigada pela dica.

O do Silvio achei muito interessante pois fica no mesmo campo dois tipos de mascara . consegui implementar no evento ao sair como sugeriu, só que quando reabro o formulário a mascara fica perdida, ai clico no campo e saio dele ai volta, e se fechar o formulário e abrir novamente volta sem a mascara o que fazer para manter a mascara poderia explicar?

Muito obrigada

Amandaalves

Boa noite....coloque o mesmo código no evento ao carregar do formulário.

Olá sr. Silvio e na tabela para manter a mascara precisa colocar algum para manter a formatação,

ao carregar do meu formulário, no meu formulário tem 4 campos de telefone que coloquei o seu código, telefone comercila, telefone residêncial, telefone celular e telefone fax

Não há a necessidade de manter a máscara na tabela.

Inclua esse procedimento, em todos os lugares em que há os números de telefones.

Eu ja havia colocado esse procedimento em todos os campos que tem os numeros de telefone, mas como faço para chamar todos os 4 campos que tem os numeros de telefone no evento ao carregar do formulário.

Bom dia..

Inclua o procedimento em :

a- ao carregar o formulário e no atual.
b- ao sair dos campos onde há o telefone.


Qualquer duvida, poste o projeto.

Bom dia a todos, sr. Silvio segue o bd com as mudanças que fiz nos numeros de telefone, não entendi como chamar no evento ao carregar do formulário.
Obrigada Amandaalves

Eis.... coloca-se no evento ao carregar do formulário.

Private Sub Form_Load()
'coloca-se a mascara aqui de todos os telefones.

If Len(Fax_Cliente) <> "" Then
Select Case Len(Fax_Cliente)
Case 10
Me.Fax_Cliente.Format = "(@@) @@@@-@@@@"
Case 11
Me.Fax_Cliente.Format = "(@@) @-@@@@-@@@@"
End Select
End If

If Len(Telefone_Celular_Cliente) <> "" Then
Select Case Len(Telefone_Celular_Cliente)
Case 10
Me.Telefone_Celular_Cliente.Format = "(@@) @@@@-@@@@"
Case 11
Me.Telefone_Celular_Cliente.Format = "(@@) @-@@@@-@@@@"
End Select
End If

If Len(Telefone_Comercial_Cliente) <> "" Then
Select Case Len(Telefone_Comercial_Cliente)
Case 10
Me.Telefone_Comercial_Cliente.Format = "(@@) @@@@-@@@@"
Case 11
Me.Telefone_Comercial_Cliente.Format = "(@@) @-@@@@-@@@@"
End Select
End If


If Len(Telefone_Residencial_Cliente) <> "" Then
Select Case Len(Telefone_Residencial_Cliente)
Case 10
Me.Telefone_Residencial_Cliente.Format = "(@@) @@@@-@@@@"
Case 11
Me.Telefone_Residencial_Cliente.Format = "(@@) @-@@@@-@@@@"
End Select
End If

End Sub

Olá amigos bom dia a todos, sr. Silvio, acabei de implementar o seu código, funcionou perfeitamente, ficou ótimo,
Obrigada pelas dicas,s, e desculpe a demora em responder pois só entro quando estou no serviço, em casa não tem net

Obrigada novamente

Amandaalves

O fórum agradece o retorno.

Bons estudos a ti !