Access - Seleccionar primera palabra hasta donde haya un espacio en un campo llamado Nombres.

Buenos días gente.

Tengo una rutina que se lee fácil pero es algo complicadita a ver si por favor me podrán ayudar.

Pregunta:

Seleccionar primera palabra hasta donde haya un espacio en un campo llamado Nombres.

Tomando en cuenta que en ese campo hay registros con un solo nombre, es decir, que no tiene espacio, y hay registros que tiene dos nombres,es decir que si tiene espacio.



Lo que se desea:

seleccione todos los registros que si tiene un solo nombre, lo coloque, si tiene dos nombres que solo coloque el primero. para que ningún registro quede por fuera.



Agradecido si alguien puede ayudarme con esto.

Public function SacarNombre(Campo as string) as string
Dim I as integer
For I=1 to aqui pones la longitud de Campo
if mid([Campo];1;I)=" " then
SacarCampo=Mid([Campo];1;I-1)
exit for
endif
Next
End Function

En la consulta pondrias SoloNombre:SacarNombre(campo del nombre)