Visual Basic - Quitar espacios en blanco URGENTE

Life is soft - evento anual de software empresarial
 
Vista:

Quitar espacios en blanco URGENTE

Publicado por txetxo (88 intervenciones) el 15/07/2003 16:37:52
Tengo las siguientes instrucciones:

For i = 1 To Len(Data1.Recordset.Fields("producto"))
coddatisa = Mid(Data1.Recordset.Fields("producto"), i,1)
If coddatisa = " " Then
Exit For
Else
codnuevo = codnuevo & coddatisa
End If
Next

para recorrer el contenido de cada registro de un BD access y quitar blancos, pero por alguna razon al final de leer la palabra siempre me añade un blanco, con lo que luego la busqueda que viene despues no me la hace, porque la variable codnuevo tiene un espacio al final que no deberia tener.
¿Sabe alguien como arreglar esto para que funcione?

Muchas gracias de antemano.

Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Quitar espacios en blanco URGENTE

Publicado por IXIDOR LARRAÑAGA (1 intervención) el 15/07/2003 17:12:09
codnuevo=trim(codnuevo & coddatisa)

reemplazalo por lo que tienes en la linea parecida.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Quitar espacios en blanco URGENTE

Publicado por kikecg (352 intervenciones) el 15/07/2003 17:13:17
Hola.
Puedes probar la función Replace.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar