Consulta de un combo que contiene dos campos

[spiderman78]

Que tal como estan de nuevo aqui con una consulta, tengo un combo el cual me muestra dos campos el nombre y los apellidos, la cuestion es de que al momento de que le doy click alguno registro quiero que me muestre la informacion que contenga, el problema q tengo es que no se como hacer la consulta para q solo me busque por el apellido......

Código:

Private Sub AgregarComboDiagnostico()
Call VisualizarDiagnosticos
        With recbd
        Combo2.Clear
        
        Do Until .EOF
            Combo1.AddItem .Fields(2) & ", " & .Fields(3)
            Combo1.ItemData(Combo1.NewIndex) = .AbsolutePosition
            .MoveNext
        Loop
    End With
End Sub

este es el codigo donde agrego los dos campos...

Private Sub Combo1_Click()
Call VisualizarPacientes
recbd.Find ("apellidos='" & Combo1.List(Combo1.ListIndex) & "'")
Text1(0) = recbd!id
Text1(2) = recbd!apellidos
Text1(3) = recbd!ocupacion
Text1(4) = recbd!recomendado
Text1(5) = recbd!nacimiento
Text1(6) = recbd!edad
Text1(7) = recbd!sexo
Text1(8) = recbd!tel1
Text1(9) = recbd!tel2
Text1(10) = recbd!tel3
Text1(11) = recbd!tel4
Text1(12) = recbd!calle
Text1(13) = recbd!colonia
Text1(14) = recbd!municipio
Text1(15) = recbd!estado
Text1(16) = recbd!pais
Text1(17) = recbd!antecedentes
Call DatosDiagnostico
Text2(2) = Text1(0)
Call Diagnosticos1
'Call LimpiarDiagnostico
Call BloqueoPacientes2
Call BloqueoPacientes3
Command1.Enabled = True
End Sub

este es mi codigo de consulta..............

Gracias por la ayuda

Saludos

[Avellaneda]

Iniciado por spiderman78

Que tal como estan de nuevo aqui con una consulta, tengo un combo el cual me muestra dos campos el nombre y los apellidos, la cuestion es de que al momento de que le doy click alguno registro quiero que me muestre la informacion que contenga, el problema q tengo es que no se como hacer la consulta para q solo me busque por el apellido......

Código:

Private Sub AgregarComboDiagnostico()
Call VisualizarDiagnosticos
        With recbd
        Combo2.Clear
        
        Do Until .EOF
            Combo1.AddItem .Fields(2) & ", " & .Fields(3)
            Combo1.ItemData(Combo1.NewIndex) = .AbsolutePosition
            .MoveNext
        Loop
    End With
End Sub

este es el codigo donde agrego los dos campos...


este es mi codigo de consulta..............

Gracias por la ayuda

Saludos

Hola, si ya tienes cargada en la propiedad ItemData del combo la posición del recordset, no tienes que hacer ninguna búsqueda, sólo mover el recordset a esa posición:

Código:

Private Sub Combo1_Click()
Call VisualizarPacientes
recbd.AbsolutePosition = Combo1.ItemData(Combo1.ListIndex)
Text1(0) = recbd!id
...

[spiderman78]

gracias me funciono perfectamente bien

Saludos