Consulta de un combo

[spiderman78]

Que tal miren tengo una consulta al momento de seleccionar en mi texbox un item podria desplegarlo, pero ahora como mis combox se compone de dos campos de mis tabla me marca un error, este es mi codigo con el q estaba trabajando

Código:

Private Sub Combo1_Click()
    Call VisualizarPacientes
    recbd.Find ("apellidos='" & Combo1.List(Combo1.ListIndex) & "'")
    Text9 = recbd!Id-------------- aqui marca el error
End Sub

y gracias a un pregunta anterior logre q en mi combox agregue mos apellidos y los nombres y me dejo de funcionar este codigo, no se si tenga q tambien llamar al segundo campo y si fuera asi como lo podria hacer......

Des pues de q agregue esta instruccion fue cuando dejo de funcionarme

Combo1.AddItem .Fields(3) & ", " & .Fields(2)

El error q me marca es el 3021
el valor bof o eof es True, o el actual registro se elimino, la operacion solicitada
requiere un registro actual.


Saludos y gracias por las respuestas

[Avellaneda]

Iniciado por spiderman78

Que tal miren tengo una consulta al momento de seleccionar en mi texbox un item podria desplegarlo, pero ahora como mis combox se compone de dos campos de mis tabla me marca un error, este es mi codigo con el q estaba trabajando

Código:

Private Sub Combo1_Click()
    Call VisualizarPacientes
    recbd.Find ("apellidos='" & Combo1.List(Combo1.ListIndex) & "'")
    Text9 = recbd!Id-------------- aqui marca el error
End Sub

y gracias a un pregunta anterior logre q en mi combox agregue mos apellidos y los nombres y me dejo de funcionar este codigo, no se si tenga q tambien llamar al segundo campo y si fuera asi como lo podria hacer......

Des pues de q agregue esta instruccion fue cuando dejo de funcionarme



El error q me marca es el 3021
el valor bof o eof es True, o el actual registro se elimino, la operacion solicitada
requiere un registro actual.


Saludos y gracias por las respuestas

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)

[spiderman78]

Iniciado por Avellaneda

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

[Avellaneda]

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.

[spiderman78]

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

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