SoloCodigo

shaomis


creo que debes hacer una consulta en el evento click del combo, es decir, tiras un query con el nombre que seleccionas en el combo y alimentas los campos que tienes que mostrar con el recorset de tu consulta, queda algo asi como esto:


Dim strcombo As String
strcombo = tucombo.Text
Dim reg As Recordset
Set reg = a.OpenRecordset("Select * from tabla where nombre='" + strcombo + "'" )
    If reg.RecordCount > 0 Then
                reg.MoveFirst
                Do While Not reg.EOF
                    campo1= reg!campo_de_tu_tabla_1
          camp02=campo_de_tu_tabla_2
         .
         .
         .
                    reg.MoveNext
                Loop
    Else
       mg = MsgBox("Disculpe no hay información, vbInformation, "Información")

    End If



es algo así mas o menos....espero que te sirva y adaptalo a tu caso..



saludos...