Función access

Respuesta de
a
Usuario
Hola, necesito una función de access que recorte por espacios, es decir, un quiero separar un campo apellidos en dos campos, uno para cada apellido. ¿Me puedes decir si existe algún procedimiento para hacerlo? Muchas gracias.
Experto
Function recortar(palabra as string,opcion as integer)
for i = 1 to len(palabra)
if asc(mid(palabra,i,1))=32 and opcion=1 then
recortar=left(palabra,i)
exit for
elseif asc(mid(palabra,i,1))=32 and opcion=2 then
recortar=right(palabra,len(palabra)-i)
exit for
endif
next
end function

Con esta función puedes extraer la primera parte o la segunda dependiendo de lo que quieras.
Solo tienes que usarla en un procedimiento así:
Primerapellido=recortar(apellido,1)

Espero te sirva
Usuario
Muchas gracias. Ha sido de gran ayuda.