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]Configurar máscara para telefone com 10 ou 11 dígitos

    Compartilhe

    Chamon Consultoria
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 196
    Registrado : 31/08/2012

    [Resolvido]Configurar máscara para telefone com 10 ou 11 dígitos

    Mensagem  Chamon Consultoria em Ter 09 Ago 2016, 18:06


    Boa tarde!

    Bd em Access 2010.

    Dúvida:
    Como configurar em um formulário, um campo para cadastrar o número de telefone de forma que a máscara obedeça a quantidade de números inseridos?
    Exemplo:

    Fone: 3732232332 Com máscara para 10 dígitos: (37)3223-2332

    Fone: 3798808-0888 Com máscara para 11 dígitos: (37)98808-0888

    Desde já agradeço!

    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3698
    Registrado : 20/04/2011

    Re: [Resolvido]Configurar máscara para telefone com 10 ou 11 dígitos

    Mensagem  Silvio em Ter 09 Ago 2016, 18:10

    Boa tarde, algo parecido com isso abaixo

    Código:
    Private Sub Fone_AfterUpdate()
    Dim NC
    NC = Len(Fone)
    If NC = 10 Then
    Me.Fone.Format = "(@@)@@@@-@@@@" ' formato o campo com 10 digitos
    End If
    If NC = 11 Then
    Me.Fone.Format = "(@@)@@@@@-@@@@" 'formato o campo com 11 digitos
    End If
    End Sub

    Chamon Consultoria
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 196
    Registrado : 31/08/2012

    Re: [Resolvido]Configurar máscara para telefone com 10 ou 11 dígitos

    Mensagem  Chamon Consultoria em Ter 09 Ago 2016, 18:44

    Desculpem reabrir o tópico...

    A função funcionou, porém a máscara não está ficando salva. Quando busco o registro, ele mostra o campo fone apenas com os números, sem a máscara.


    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3698
    Registrado : 20/04/2011

    Re: [Resolvido]Configurar máscara para telefone com 10 ou 11 dígitos

    Mensagem  Silvio em Ter 09 Ago 2016, 20:25

    Na tabela não vai salvar desse modo.

    Chamon Consultoria
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 196
    Registrado : 31/08/2012

    Re: [Resolvido]Configurar máscara para telefone com 10 ou 11 dígitos

    Mensagem  Chamon Consultoria em Ter 09 Ago 2016, 21:28

    Na tabela é melhor que fiquem apenas os números, mas seria importante a máscara permanecer ativa no formulário quando o registro fosse acessado.

    Alguma sugestão?

    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3698
    Registrado : 20/04/2011

    Re: [Resolvido]Configurar máscara para telefone com 10 ou 11 dígitos

    Mensagem  Silvio em Ter 09 Ago 2016, 21:34

    Eventos do formulário: Ao carregar, no atual e ao abrir. Coloque o código nesses eventos que eu te disse.

    Dim NC
    NC = Len(Fone)
    If NC = 10 Then
    Me.Fone.Format = "(@@)@@@@-@@@@" ' formato o campo com 10 digitos
    End If
    If NC = 11 Then
    Me.Fone.Format = "(@@)@@@@@-@@@@" 'formato o campo com 11 digitos
    End If

    Chamon Consultoria
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 196
    Registrado : 31/08/2012

    Re: [Resolvido]Configurar máscara para telefone com 10 ou 11 dígitos

    Mensagem  Chamon Consultoria em Ter 09 Ago 2016, 21:49

    Agora sim!

    Coloquei no evento do formulário "no Atual".

    Mais uma vez, muito obrigado Silvio.
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3698
    Registrado : 20/04/2011

    Re: [Resolvido]Configurar máscara para telefone com 10 ou 11 dígitos

    Mensagem  Silvio em Ter 09 Ago 2016, 21:52

    O fórum agradece o retorno.

      Data/hora atual: Ter 12 Dez 2017, 16:02