Cuadros combinados que recojan otros campos

Creo que no tienes claro como se manejan los combos (y por extensión los cuadros de lista),
Una vez asignado el origen de datos, para el combo no existen ‘títulos’ que referencien a su contenido, en lugar de título utilizan el ordinal de la columna (su número) y por ello el comentario sobre que (en VBA) se comienza en cero (‘fuera’ de VBA las columnas comienzan en uno).
Si el combo se denomina ‘BuscaAsociado’ el dato NIP (es su columna cero) se referenciara así: Me. BuscaAsociado. Column(0)
Como la columna uno es visible, asumo que ese dato no se ‘reutiliza’por lo que el NIF será la columna (2), el Email la columna(3) y la fecha de baja estará en la columna (4).
El evento quedaría asi:
Private Sub BuscaAsociado_Change()
Me.TxNIFTit = Me.BuscaAsociado.Column(2)
Me.TxEmailTit = Me.BuscaAsociado.Column(3)
End Sub

Una curiosidad, si ‘TxNIFTit’ -por lo de ‘tit’- implica el titulo/cabecera de un objeto, se le tendría que indicar de forma expresa añadiendole el nombre de esa propiedad (CAPTION), esto es:
Me.TxNIFTit = ……..  Me.TxNIFTit.Caption = ……..
Un consejo (evitaras resultados extraños) Access utiliza como concatenador de texto (&), por compatibilidad admite (+) pero si encuentra un campo vacío lo asociara con un NULL …. Y si los textos puede interpretarlos como números, probablemente presente su suma.
Cuando solo interviene una tabla o no hay conflicto con los nombres de los campos, no se precisa la referencia a ella misma, lo cual permite simplificar la SQL que podría quedar así:
Original:
SELECT PERSONAS.NIP, [Apellidos]+', '+[Nombre] AS Apenom, PERSONAS.NIF, PERSONAS.[E-Mail], PERSONAS.[Fecha Baja] FROM PERSONAS ….
Modificado:
SELECT NIP, [Apellidos] & ', ' & [Nombre] AS Apenom, [NIF], [E-Mail], [Fecha Baja] FROM PERSONAS ….

Puede hacerlo en el evento Después de actualizar.

Private Sub TuCuadroCombinado_AfterUpdate()
    ' Asegúrate de que el cuadro combinado tiene un valor seleccionado
    If Not IsNull(Me.TuCuadroCombinado.Value) Then
        ' Rellena el cuadro de texto del DNI
        ' La primera columna es la 0, la segunda la 1, etc.
        ' Si IDCliente es la columna 0, Nombre Completo la 1, DNI la 2, Telefono la 3
        Me.txtDNI = Me.TuCuadroCombinado.Column(2) ' Columna del DNI (índice 2 para la tercera columna)
        ' Rellena el cuadro de texto del Teléfono
        Me.txtTelefono = Me.TuCuadroCombinado.Column(3) ' Columna del Teléfono (índice 3 para la cuarta columna)
    End If
End Sub

Explicación del código:

Me. TuCuadroCombinado. Column(X): Esta es la clave. La propiedad .Column() te permite acceder a los valores de las columnas del "Origen de la fila" de tu cuadro combinado.

Los índices de las columnas empiezan en 0. Si tu consulta tiene 4 columnas, sus índices serán 0, 1, 2 y 3.

Column(0) sería el IDCliente.

Column(1) sería el Nombre Completo.

Column(2) sería el DNI.

Column(3) sería el Teléfono.

Asegúrate de reemplazar TuCuadroCombinado con el nombre real de tu cuadro combinado y txtDNI, txtTelefono con los nombres reales de tus cuadros de texto.

Ejemplo Completo
Imagina que tienes una tabla Clientes con los campos IDCliente, NombreCompleto, DNI y Telefono.

Cuadro Combinado (ej. CmbClientes)

Origen de la fila: SELECT IDCliente, NombreCompleto, DNI, Telefono FROM Clientes ORDER BY NombreCompleto;

Número de columnas: 4

Anchos de columna: 0cm;8cm;0cm;0cm (para mostrar solo el nombre)

Cuadros de Texto (ej. TxtDNI, txtTelefono)

Asegúrate de tener estos cuadros de texto vacíos en tu formulario.

Código VBA en cmbClientes_AfterUpdate():

Private Sub cmbClientes_AfterUpdate()
    If Not IsNull(Me.cmbClientes.Value) Then
        Me.txtDNI = Me.cmbClientes.Column(2) ' DNI está en la tercera columna (índice 2)
        Me.txtTelefono = Me.cmbClientes.Column(3) ' Teléfono está en la cuarta columna (índice 3)
    End If
End Sub

I. Hola Compañero, muchas gracias, tardé en responder y no vi las respuestas previas de los expertos Enrique Feijóo y Eduardo Pérez Fernández, que creo dan en el clavo. Pero si también pudiese servirle alguno de los enlaces sería estupendo :) Ánimo.