Access - Obtener iniciales de nombre y apellidos

buenos días
Estoy buscando por la web y google y sólo encuentro resultados parciales.
Mi consulta es la siguiente:
Tengo dos campos: Apellidos, Nombre y quiero obtener otro campo calculado con las iniciales. El problema está en que las soluciones que he encontrado se refieren sólo a un apellido o un nombre, pero tanto en un campo como en el otro puede haber varias palabras y no sólo una.
Por ejemplo: [Apellidos]= Pérez López [Nombre]= José María ---> [Iniciales]= JMPL
También podría ser que hubiera más de dos palabras en cada campo. P. ej: María del Carmen López-Camino Pérez del Rosal ---> MDCLCPDR (aquí he añadido la complicación de un guión) Los nombres tan largos son una excepción, pero prefiero un solución que me sirva para todos los casos.
Muchas gracias de antemano

Hola:

Añade esta función en un módulo:


Como tienes los apellidos y el nombre en campos distintos, deberás usarla tal que así: ... = Iniciales([Nombre] & " " & [Apellidos])

Un saludo,

Norberto.

Hola Norberto
Gracias por la respuesta tan completa.
No obstante, mis nociones de Access no son como me gustaría.
Intentaré adaptarlo, pero quizás tenga problemas con algún término.
Por ejemplo, "Nombre" hace referencia a ¿? (Por ejemplo en la línea If InStr(1, Separadores, Mid(Nombre, i - 1, 1)) > 0 Then y en otras.

Hola.

Nombre en la expresión que indicas hace referencia a lo que entre dentro de la función. Me explico:


Esta línea definie una función llamada Iniciales. Esta función adminte dos parámetros (entrada de datos) uno, de texto, al que he llamado Nombre (pero podría haberlo llamado Name para hacerlo más chic), recibe una cadena de texto de la cual queremos obtener las iniciales. El otro, llamado Excluir y que es opcional, permite indicar a la función si queremos que excluya las preposiciones, artículos, etc.

A partir de ese momento, dentro de la función, Nombre hace referencia al texto que le ha llegado y no entra en conflicto con el campo [Nombre] de tu tabla ya que la función "no ve" lo que hay fuera de ella. De hecho, si usaramos el término Apellidos se produciría un error.

Dicho esto, ¿cómo debemos de usar la función? En tu caso, al tener el nombre y los apellidos en dos campos diferentes, debemos pasar esa información a la función de la siguiente manera: Nombre & " " & Apellidos. Lo que estamos haciendo es uniendo ambos campos separados entre sí por un espacio en blanco. Si Nombre es José Luis y Apellidos es Las Heras De Las Puertas, el resultado de esa expresión es José Luis Las Heras De Las Puertas. Este texto entrará en la función y esta obtendrá las iniciales JLLHDLP o JLHP dependiendo de si le indicamos o no la opción Excluir.

La expresión completa sería Iniciales(Nombre & " " & Apellidos) para el primer caso e Iniciales(Nombre & " " & Apellidos, True) para el segundo.

¿Puedo poner la expresión tal que así en algún sitio? No. La función devuelve un valor y ese valor debe de ser recogido en algún lugar (que no indicas en tu post inicial). Vamos a suponer. Si fuese en VBA y quisieramos meterlo en una variable llamada Inic, la cosa sería así:


Si queremos que se muestren en un cuadro de texto de un informe o formulario, deberíamos poner la expresión en el Origen del control tal que así:



Si queremos usarlo en una consulta:





Espero haber aclarado todas tus dudas.

Un saludo,

Norberto.

Envío documento

• Muchas-gracias.zip(31,3 KB)

Hola de nuevo.

1. Prueba a cambiarle el nombre al módulo (modIniciales, p.e.).

2. Prueba la función en el editor de VBA. En la Ventana de inmediato pones:
Y pulsas Enter, a ver si la reconoce.

Si no te aparece la Ventana de inmediato, ve al menú Ver y la activas.

Si ahí funciona, debería hacerlo en cualquier parte su la base de datos.

Un saludo,

Norberto.

Parece ser que funciona (hasta que yo lo estropee)

Muchas gracias

Me alegro. No estaba seguro del todo pero me sonaba que ni un procedimiento ni una función se podían llamar igual que un módulo.

Un saludo,

Norberto.