MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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 : 173
    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!


    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3227
    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 : 173
    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.



    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3227
    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 : 173
    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?


    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3227
    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 : 173
    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.

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3227
    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: Dom 04 Dez 2016, 20:19