Visual Basic - AYUDA CON DESPLAZAMIENTO EN REGISTROS

Life is soft - evento anual de software empresarial
 
Vista:

AYUDA CON DESPLAZAMIENTO EN REGISTROS

Publicado por David (19 intervenciones) el 21/09/2006 19:21:22
Hola a todos.

Tengo una tabla como de 1000 registros y tengo un combo que se llena con el campo "ID" (integer ) de los registros de mi tabla (desde el 1o hasta el ùltimo).

Quiero desplazarme al registro que indique el combo y estando ya en ese registro, moverme a donde sea (first, previous, next o last).

Lo intentè con:
Private Sub Combo1_Change()
SQL = "SELECT * FROM tabla_general WHERE index= " & Combo1.Text
MostrarRegistro
End Sub

PERO NO HACE NADA!!!!

Solo funciona asì:
if Combo1.text = "1" then
SQL = "SELECT * FROM tabla_general WHERE index= 1"
end if
MostrarRegistro

PERO OBVIAMENTE NO ME VOY A PONER A HACER UN IF PARA CADA REGISTRO DE
LA TABLA. Hasta da pena mencionarlo pues serìa aberrante programar asì, jeje.

No estoy tan sope pero me he atorado en esta parte.

GRACIAS ANTICIPADAS A QUIEN ME AYUDE

Pienso que la soluciòn podrìa estar en el manejo del MOVE pero

rs.move (NO SE QUE PUEDA IR EN ESTA PARTE)
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:AYUDA CON DESPLAZAMIENTO EN REGISTROS

Publicado por David (19 intervenciones) el 21/09/2006 19:50:07
Manuel:

Tomè tu consejo y nada cambio. aparte de lo del click me faltaba esta lìnea:
Set rs = db.OpenRecordset(SQL)

casi nada, verdad??!!!!! jaja

Lo cual me genera dudas pues no sè si sea mi imaginaciòn, pero no siempre la incluyo y las consultas que hago funcionan. En fin la respuiesta era:

Private Sub Combo1_Click()
SQL = "SELECT * FROM tabla_general WHERE index= " & Combo1.Text
Set rs = db.OpenRecordset(SQL)
MostrarRegistro
End Sub

GRACIAS POR AYUDARME COMO AL MINUTO DE QUE PUSE MI NOTA.

David
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar