Cita:
Iniciado por Avellaneda 
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.
Que tal mira ya puse mi codigo de esta manera
Código:
Private Sub Combo1_Click()
Call VisualizarPacientes
recbd.AbsolutePosition = Combo1.ItemData(Combo1.ListIndex)
End Sub
y si aqui es donde cargo ese combo con la propiedad
Cita: Private Sub AgregarComboAgenda()
Call VisualizarPacientes
With recbd
Combo1.Clear
Do Until .EOF
Combo1.AddItem .Fields(3) & .Fields(2)
Combo1.ItemData(Combo1.NewIndex) = .AbsolutePosition
MoveNext
Loop
End With
End Sub
pero me sigue marcando un error, 3001
Argumentos incorrectos, fuera del intervalo permitido o en conflictos con otros
no se a q se debira ese error.....
Saludos y gracias por las respuestas
