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

    Função replace

    avatar
    ilvecchio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    Função replace Empty Função replace

    Mensagem  ilvecchio 16/4/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?
    avatar
    Clebergyn
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

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

    Função replace Empty Re: Função replace

    Mensagem  Clebergyn 19/4/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
    avatar
    ilvecchio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    Função replace Empty Re: Função replace

    Mensagem  ilvecchio 24/4/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.
    avatar
    Clebergyn
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

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

    Função replace Empty Re: Função replace

    Mensagem  Clebergyn 25/4/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

    Conteúdo patrocinado


    Função replace Empty Re: Função replace

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 00:17