[Resolvido]Limpar espaço em branco

Bom dia Marques, seja bem-vindo!

Você pode usar Replace, caso os espaços possam estar em qualquer parte da string.

Digamos que você prentende por em um textbox a seguinte string mas sem espaços:

P T50000 00000000 000000 000

Usando o replace, ele te devolve assim:

Me.SuaTextBox = Replace("P T50000 00000000 000000 000", " ", "")

E se a string com espaços estiver na própria textbox, pode fazer ao clique de botão ou onde lhe convir:

Me.SuaTextBox = Replace(Me.SuaTextBox," ","")

Ambos resultaram assim:
PT5000000000000000000000

Depois, dê uma pesquisa sobre as funções Trim, RTrim e LTrim. Elas tratam da mesma coisa, só que apenas locais
específicos da string.

Então você precisa retirar os espaços vazios de todos os registros de um campo de uma tabela?

No evento clique de um botão:

CurrentDb.Execute "UPDATE NomeTabela SET NomeCampo=REPLACE(NomeCampo, ' ', '')", dbFailOnError

NomeTabela = Nome da tabela que contem os dados vindos do excel
NomeCampo = Nome do campo que contem os espaços.



Faça um backup antes de realizar o procedimento.