Autor Tema: Eliminar espacios mediante consulta  (Leído 1123 veces)

Desconectado xavi

  • Administrador
  • Habitual
  • *****
  • Mensajes: 196
Eliminar espacios mediante consulta
« en: Abril 14, 2012, 01:10:24 am »
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

Código: [Seleccionar]
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:

Código: [Seleccionar]
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.


« Última modificación: Enero 14, 2020, 06:23:23 pm por xavi »