¿Cómo obtener las iniciales del nombre y apellidos?

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 Function

La ventaja de la función es que puede utilizarla para tomar la inicial de varias palabras y en otros usos.

Si tengo la tabla

Y construyo una consulta como

Cuando la abro