Access pasar un Campo APELLIDO APELLIDO, NOMBRE a Campo Nombre Apellido Apellido
Normalmente se utilizan funciones de tratamientos de texto, aquí seria necesario en primer lugar obtener la posición de la coma en esa cadena de texto, para ello Access provee de una función (InStr) que nos devuelve en formato numérico la posición del objeto buscado, si no la localiza devuelve un cero.
Pongamos un texto como ejemplo : López Varela, Joaquín
InStr("López Varela, Joaquín", ",")
Nos devolvería el valor 13
Aplicamos otra función de tratamiento de texto (MID) que nos sirve para tomar parte de esa cadena pasada como argumento
Como se deducirá InStr nos indica que a partir de esa (posición +1) esta el nombre, asi que generamos el nuevo nombre (en una consulta por ejemplo)
NuevoNombre: Mid("López Varela, Joaquín", InStr("López Varela, Joaquín", ",")+1 )
(en Nuevo nombre habría esto ' Joaquín')
Añadimos la coma de separación y un espacio:
NuevoNombre: Mid("López Varela, Joaquín", InStr("López Varela, Joaquín", ",")+1 ) & ", "
(en Nuevo nombre habría esto ' Joaquín, ')
Utilizamos ahora otra función de texto (Left) que tomara la parte de la cadena de texto desde el inicio, hasta el final que le indiquemos
Y tomamos los apellidos que 'finalizan' antes de la coma:
NuevoNombre: Mid("López Varela, Joaquín", InStr("López Varela, Joaquín", ",")+1 ) & ", " & Left("López Varela, Joaquín", InStr("López Varela, Joaquín", ",") -1 )
(en Nuevo nombre habría esto ' Joaquín, López Varela')
A mayores, sobraría un espacio al inicio (o los que hubiere en el original después de la coma) asi que otra función (Trim) y se los quitamos:
NuevoNombre: Trim(Mid("López Varela, Joaquín", InStr("López Varela, Joaquín", ",")+1 ) & ", " & Left("López Varela, Joaquín", InStr("López Varela, Joaquín", ",") -1 ))
Normalmente (y mas en una consulta), se trabaja con los campos, asi que en lugar de utilizar un nombre (y además inventado), utilizaremos el objeto que contiene los nombres a modificar (el campo 'TITULAR'):
NuevoNombre: Trim(Mid([Titular], InStr([Titular], ",") +1) & ", " & Left([Titular], InStr([Titular], ",") -1 ))