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

  • Novo Tópico
  • Responder ao tópico

Função replace

Compartilhe

ilvecchio
Intermediário
Intermediário

Respeito às Regras 100%

Sexo : Masculino
Localização : Brasil
Mensagens : 128
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 : 567
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 : 128
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 : 567
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
  • Novo Tópico
  • Responder ao tópico

Data/hora atual: Sab 25 Fev 2017, 13:30