Palabras clave: consulta, eliminar, espacio, reemplazar
Autor: Juan M. Afán de Ribera
Extraído de: La web del Búho
Pregunta
Me gustaria saber como hacer una consulta de actualización sobre una tabla para eliminar los espacios en blanco.
Responde Happy
Puedes hacer lo siguiente: Pega una de estas dos funciones en un módulo estándar, según la versión de Access que utilices.
Si utilizas Access 97
Function EliminaBlancos(cadena As String) As String
Dim caracter As String
Dim cadenaTmp As String
Dim i As Integer
For i = 1 To Len(cadena)
caracter = Mid(cadena, i, 1)
If caracter <> " " Then
cadenaTmp = cadenaTmp & caracter
End If
Next
EliminaBlancos = cadenaTmp
End Function
Si utilizas Access 2000 o superior:
Function EliminaBlancos(cadena As String) As String
EliminaBlancos = Replace(cadena, " ", "")
End Function
Después, en la consulta de actualización para el campo del cual quieras eliminar los blancos, en la casilla (Actualizar a:), pones
EliminaBlancos([nombre_campo])
y ya está.
Por si acaso, antes que nada, haz una copia de la tabla, por si se produjera alguna incidencia.