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

    Função replace

    Compartilhe

    ilvecchio
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 125
    Registrado : 16/11/2012

    Função replace

    Mensagem  ilvecchio em Qua 16 Abr 2014, 22:19

    Buenas!

    Preciso substituir as quebras de linha manuais ao final de um campo [observacao] tipo memorando.
    Alguns usuários pressionam a tecla de quebra de linha várias vezes ao final do texto digitado.
    A substituição funciona quando excluo todas as quebras de linha, em qualquer posição do texto.

                    .Execute "UPDATE TabObservacao SET [observacao]=Replace([observacao],chr(10), '');"

    mas, não consegui excluir somente as que estão ao final do texto.
    tentei isso :

                     .Execute "UPDATE TabObservacao SET [observacao]=Replace(right([observacao],1),chr(10), '');"

    mas assim limpa o campo todo.

    Código completo:

    Public Function ReplaceObservacao()
     Dim BD As Database

     Set BD = CurrentDb
     
           With BD
           .Execute "UPDATE TabObservacao [observacao]=Replace([observacao],chr(10), '');"
     
         End With
     
    End Function


    Alguem tem a solução?

    clebergyn
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 519
    Registrado : 29/08/2012

    Re: Função replace

    Mensagem  clebergyn em Sab 19 Abr 2014, 06:48

    Olá, tente com a função Trim (ela remove os espaços a direita e a esquerda)
    ou RTrim( Remove os espaços a direita)

    .Execute "UPDATE TabObservacao [observacao]=Trim([observacao]);"

    se não der certo, poste seu banco aqui para darmos uma olhada ok

    ilvecchio
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 125
    Registrado : 16/11/2012

    Re: Função replace

    Mensagem  ilvecchio em Qui 24 Abr 2014, 20:37

    Obrigado pela atenção e, de fato, a função RTRIM remove os espaços em branco, mas preciso remover as quebras de linha manuais, que estão ao final (direita) do texto.

    clebergyn
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 519
    Registrado : 29/08/2012

    Re: Função replace

    Mensagem  clebergyn em Sex 25 Abr 2014, 02:27

    estranho, no meu Access, no campo memorando, coloco mais linhas vazias e ele deleta sozinho as linhas

    envie seu bando de dados zipado para darmos uma olhada

      Data/hora atual: Dom 04 Dez 2016, 14:14