Quitar caracteres vacíos

Para el que se quiera ganar unos puntitos...
Tengo una base en Access 97 con 109 mil y pico de registros con números telefónicos, estos n° tel. contienen caracteres vacíos tanto en el centro como al final, (un ejemplo)
x = caracteres vacios
2233x45435
15x454654xxx
4544x4865xxxx
1x23x1212134
Etc...
Ahora, como corno hago por medio de una macro y SOLO con Access 97 quitar los mencionados caracteres para que queden de la siguiente manera:
223345435
15454654
45444865
1231212134
Etc...
Espero alguna pronta respuesta.
Desde ya muchísimas gracias.

1 respuesta

1
Respuesta de
Hola:
Aquí tienes una función que te será útil para suprimir los espacios.
Se puede utilizar junto con una consulta de actualización, de modo que, de una forma rápida, podrás cambiar los contenidos de una campo de texto.
Si necesitas más información al respecto, no dudes en pedir aclaraciones. Será un placer ayudarte.
Ahí va la función:
Function SuprimirEspacios(pCadena)
On Error GoTo Err_Suprimir
Dim vPosicion As Long
Dim vStr As String
vStr = pCadena
Do While True
vPosicion = InStr(vStr, " ")
If vPosicion > 0 Then
vStr = Left(vStr, vPosicion - 1) _
& Mid(vStr, vPosicion + 1)
Else
Exit Do
End If
Loop
SuprimirEspacios = vStr
Exit Function
Err_Suprimir:
SuprimirEspacios = pCadena
End Function
Añade un comentario a esta respuesta
Añade tu respuesta
Haz clic para o
Escribe tu mensaje