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.
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
0