Ver Mensaje Individual
  #3 (permalink)  
Antiguo 12/10/2008, 09:16
spiderman78
 
Fecha de Ingreso: abril-2008
Mensajes: 281
Antigüedad: 17 años
Puntos: 1
Respuesta: Consulta de un combo

Cita:
Iniciado por Avellaneda Ver Mensaje
Evidentemente, al concatenar dos campos en el combo, nunca lo va a encontrar y por eso dá el error.
Podrías hacer un Spli(Combo1, ",") y el índice cero del array sería el campo nombre, pero he visto en tu pregunta anterior que al cargar el Combo utilizas la propiedad ItemData, entonces sería mas sencillo busscar por ahí:

rcbd.AbsolutePosition = Combo1.ItemData(Combo1.ListIndex)

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