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]Como salvar CEP sem os caracteres especiais

    avatar
    Chamon Consultoria
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como salvar CEP sem os caracteres especiais Empty [Resolvido]Como salvar CEP sem os caracteres especiais

    Mensagem  Chamon Consultoria 29/5/2016, 19:46

    Boa tarde!

    Já fiz vários testes tentando adaptar o comando para salvar o campo "txtCep" sem os caracteres especiais.
    Para salvar estou usando a instrução abaixo:

    strSQL = strSQL & "ccCEP = "
       If IsNull(txtCEP) Then
           strSQL = strSQL & "null,"
       Else
           strSQL = strSQL & "'" & txtCEP & "',"
         
       End If

    O CEP salvo aparece assim: 12.345-678 mas gostaria que fosse assim: 12345678

     Acredito que terei que utilizar algo relacionado com (Replace ".", ""),"-", "") mas como disse não consegui fazer essa adaptação.

    Como ficaria essa adaptação?
    Desde já agradeço!
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Como salvar CEP sem os caracteres especiais Empty Re: [Resolvido]Como salvar CEP sem os caracteres especiais

    Mensagem  FabioPaes 29/5/2016, 20:24

    Esse é o Comando Amigo.

    Replace(Replace(Me.txtCep, ".", ""), "-", "")


    Ajustando pro seu Exemplo ficará mais ou menos assim...

    strSQL = strSQL & "'" & Replace(Replace(txtCep, ".", ""), "-", "")& "',"


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    Chamon Consultoria
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como salvar CEP sem os caracteres especiais Empty Re: [Resolvido]Como salvar CEP sem os caracteres especiais

    Mensagem  Chamon Consultoria 29/5/2016, 21:13

    FabioPaes,

    muito obrigado pela ajuda! Funcionou perfeitamente!

    Abraço

    Conteúdo patrocinado


    [Resolvido]Como salvar CEP sem os caracteres especiais Empty Re: [Resolvido]Como salvar CEP sem os caracteres especiais

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 01:58