¿Cómo obtener las iniciales del nombre y apellidos?
Tengo la siguiente tabla.
Necesito hacer una consulta que me obtenga las iniciales de cada registro.
2 Respuestas
Respuesta de Julián González Cabarcos
2
Si tengo la tabla
Y construyo una consulta como
Cuando la abro
Respuesta de Eduardo Pérez Fernández
1
Le dejo otra alternativa, pero utilizando una función.
TABLA
DISEÑO DE LA CONSULTA
RESULTADO DE LA CONSULTA
Observe que José Luis Perales Zamora tiene cuatro iniciales.
Código de la función
Public Function ExtraePrimeraLetra(ByVal strCadena As String, Optional intForma As Integer) As String
'Función para extraer la primera letra de una palabra
'Parámetros:
' strCadena ----> Cadena a extraer
' intForma (opcional) ----> 1= retorna la primera letra en mayúscula
' 2= retorna la primera letra en minúscula
'Ejemplo:
' ExtraePrimeraLetra("Eduardo Pérez Fernández")
' Retorna: EPF
Dim strPalabra As Variant
Dim strText As String
Dim forma As Integer
If CLng(intForma) = 0 Then
intForma = 0
End If
For Each strPalabra In Split(strCadena, " ")
strText = strText & Left(strPalabra, 1)
Next
Select Case intForma
Case 0
ExtraePrimeraLetra = strText
Case 1
ExtraePrimeraLetra = StrConv(strText, vbUpperCase)
Case 2
ExtraePrimeraLetra = StrConv(strText, vbLowerCase)
End Select
End FunctionLa ventaja de la función es que puede utilizarla para tomar la inicial de varias palabras y en otros usos.