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

2 participantes

    [Resolvido]Formatar 0800

    avatar
    alantb
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 244
    Registrado : 25/07/2017

    [Resolvido]Formatar 0800 Empty [Resolvido]Formatar 0800

    Mensagem  alantb 1/10/2021, 17:42

    Olá, estavava tentando formatar campo de telefone, em parte deu certo, entretanto quando é 0800 não formata. Tentei dessas formas, mas não deu, segue:


    Select Case True
    Case Len(txtNroTelefone) = 10
    txtNroTelefone = Format(txtNroTelefone, "(##) ####-####") ' aqui tá ok
    Case Len(txtNroTelefone) = 11
    txtNroTelefone = Format(txtNroTelefone, "(##) #####-####") ' aqui também ok
    'Case Left$(txtNroTelefone, 4) = "0800"
    'txtNroTelefone = Format(txtNroTelefone, "(####) ###-####") ' já aqui não
    Case Len(txtNroTelefone) = 13
    txtNroTelefone = Format(txtNroTelefone, "(####) ###-####")
    End Select


    Alguma idéia ???

    ALAN
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3707
    Registrado : 22/11/2016

    [Resolvido]Formatar 0800 Empty Re: [Resolvido]Formatar 0800

    Mensagem  DamascenoJr. 2/10/2021, 01:48

    Código:
    if Left$(txtNroTelefone, 4) = "0800" then
      txtNroTelefone = Format(txtNroTelefone, "(####) ###-####") ' já aqui não
    else

      Select Case Len(txtNroTelefone)
          Case 10
            txtNroTelefone = Format(txtNroTelefone, "(##) ####-####") ' aqui tá ok
          Case 11
            txtNroTelefone = Format(txtNroTelefone, "(##) #####-####") ' aqui também ok
          Case Len(txtNroTelefone) = 13
            txtNroTelefone = Format(txtNroTelefone, "(####) ###-####")
      End Select

    end if


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    alantb
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 244
    Registrado : 25/07/2017

    [Resolvido]Formatar 0800 Empty Re: [Resolvido]Formatar 0800

    Mensagem  alantb 2/10/2021, 14:29

    Olá Mestre Damasceno, por aqui fechou todas, exatamente como precisava. Encerramos por aqui!!

    ALAN
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3707
    Registrado : 22/11/2016

    [Resolvido]Formatar 0800 Empty Re: [Resolvido]Formatar 0800

    Mensagem  DamascenoJr. 2/10/2021, 23:05

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 6/10/2022, 08:21