[Resolvido]Remover espaços

Boa tarde,

Gostaria de saber como remover espaços antes e depois de um txt num formulário antes de fazer o insert

Tentei com a função TRIm (txtcampo)

não deu certo

Podem me ajudar?

Boa noite explique o objetivo disso ai eu posso te ajudar

Bom dia,

Tenho Um formulário para CRUD.

Para evitar o insert de informações com espaços início e fim, se possível evitar espaços a mais entre palavras.


Grata,

Deu certo assim:


VarCampo = Trim(Me.txtAno.Value)
      Me.txtAno.Value = VarCampo
      Me.Refresh

Essa parte resolve início e fim.

Não entre...

bom dia . DA uma olhadinha no link

https://www.maximoaccess.com/t6859-resolvidoerro-em-funcao-para-eliminar-espacos-em-string

Bom dia,

Obrigada!

Coloquei o Public antes... Como Módulo...

Function TiraEspaco(ByVal strCampo As String)
Do
strCampo = Replace(strCampo, " ", " ")
Loop Until InStr(strCampo, " ") = 0
TiraEspaco = Trim(UCase(strCampo))
End Function

Chamei assim Call TiraEspaco("Me.txtavaliacao")

No formulário deu certo obrigada