Cita:
Iniciado por spiderman78 
Que tal gracias por la respuesta, solo que esta instruccion la debo de sustituir por alguna o solo agregarla al codigo, ya intente poniendola de esta manera
Código:
Private Sub Combo1_Click()
Call VisualizarPacientes
recbd.AbsolutePosition = Combo1.ItemData(Combo1.ListIndex)
recbd.Find ("apellidos='" & Combo1.List(Combo1.ListIndex) & "'")
Text9 = recbd!Id
End Sub
y tambien sustituyendola de esta manera
Código:
Private Sub Combo1_Click()
Call VisualizarPacientes
recbd.AbsolutePosition = Combo1.ItemData(Combo1.ListIndex)
Text9 = recbd!Id
End Sub
y de las dos maneras me manda un error 3001
argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros
saludos y gracias por la ayuda
La segunda opción es la correcta, no hace falta el Find.
Pero.. ¿estás seguro que este combo es el mismo que el que cargaste con la propiedad ItemData?
Porque el error (en este caso) se refiere a que no encuentra el valor de esa propiedad.
