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.