Mostrar Num De Reg En Un Textbox

Programación General > Visual Basic 6.0 e inferiores

(1/2) > >>

UserCode:
Saludo Gente

Tengo planeado algo de lo cual no tenia ni la menor idea de como empezarlo, entre reescribiendo y colocando código en comentarios, ya me dio resultado pero tiene un error del cual aun no he logrado pasar.

Mi cuestion es sobre hacer lo que hace un control Data, es decir...
pasar con sus botones por cada uno de los registros, pero por CommandButton, sin control Data.

Cada vez que le de a los botones (CommandButton) me desplace por los registros llenandose la informacion de cada registro en los TextBox.

Eso ya está hecho, pero deseo que en otro TextBox se vea el numero de Registros total en la tabla y el numero del registro actual es decir...

Ej: 8 Registros en la tabla
Viendo Registro numero 6
Seria: 6/8

Algo asi:
TxtNumReg.Text = (aqui iria el Reg actual) & "/" & Rs.RecordCount

Este es el código de cada botón, los cuales son:
( |< )Primero, ( < )Anterior, ( > )Siguiente, ( >| )Ultimo

Nota: Una Funcion LOAD_DATA carga los datos en todos los TextBox

--- Código: Text --- --------------------------------------------------------------------------------Private Sub CmdPrimero_Click() Rs.MoveFirst LOAD_DATAEnd Sub--------------------------------------------------------------------------------Private Sub CmdAnterior_Click() If Rs.BOF = False Then Rs.MovePrevious LOAD_DATA End If 'TxtNumReg.Text = Rs.RecordCountEnd Sub--------------------------------------------------------------------------------Private Sub CmdSiguiente_Click() If Rs.BOF = False Then Rs.MoveNext LOAD_DATA End IfEnd Sub--------------------------------------------------------------------------------Private Sub CmdUltimo_Click() Rs.MoveLast LOAD_DATAEnd Sub--------------------------------------------------------------------------------
No sé como hacer para que en un TextBox se vea: RegActual / NumRegistros
y que cada vez que me desplaze por los botones cambie: RegActual

Otra problema de lo mismo es que al llegar al primer Registro y seguirle dando al boton, da el error: No hay ningun Registro activo.

Como podría hacer para que al momento de llegar al primer registro, y desee seguire dando al boton, no de ese error sino que simplemente se quede ahí, en el primer registro. E igual con el llegar al ultimo registro y que se quede ahí en el ultimo aun a pesar de seguirle dando al boton.

El boton PRIMERO y ULTIMO funcionan perfecto, si se llega al primero o ultimo y se le sigue dando no da error, el error está solo con ANTERIOR y SIGUIENTE.

Perdon por tanto escrito, es para explicarlo bien, son esas 2 las trancas que tengo.
Muchas gracias por cualquier ayudita.

cpmario:
Yo uso el siguiente código...

--- Código: Text ---Private Sub cmdFirst_Click() If Not Rs.BOF And Not Rs.EOF Then Rs.MoveFirst End IfEnd Sub Private Sub cmdLast_Click() If Not Rs.BOF And Not Rs.EOF Then Rs.MoveLast End IfEnd Sub Private Sub cmdNext_Click() If Not Rs.BOF And Not Rs.EOF Then If Rs.EOF Then Rs.MoveLast Else Rs.MoveNext If Rs.EOF Then Rs.MoveLast End If End If End IfEnd Sub Private Sub cmdPrevious_Click() If Not Rs.BOF And Not Rs.EOF Then If Rs.BOF Then Rs.MoveFirst Else Rs.MovePrevious If Rs.BOF Then Rs.MoveFirst End If End If End IfEnd Sub Utiliza el evento Reposition del control Data para el código de Rs.RecordCount

:)

UserCode:
Compadre nuevamente agradecido por sus codigos, de verdad.
Lo estoy probando aunque no me ha dado resultados, dejame ver en que modificación y acomodo le pongo hasta que me sirva, sino, te aviso para mandarte la cuestion por correo, dale.

Gracias cpmario

UserCode:
Listo, ya me sente a ver el problema de esos 4 botones de desplazamiento de registros de la bd asi quedo:

--- Código: Text --- ------------------------------------------------------------------------------Private Sub CmdPrimero_Click() If Not RsImp.BOF And Not RsImp.EOF Then RsImp.MoveFirst LOAD_DATA_IMP BUSCANDO_IMAGEN_A_MOSTRAR_IMP End IfEnd Sub------------------------------------------------------------------------------Private Sub CmdAnterior_Click() If Not RsImp.BOF And Not RsImp.EOF Then LOAD_DATA_IMP BUSCANDO_IMAGEN_A_MOSTRAR_IMP If RsImp.BOF Then RsImp.MoveFirst LOAD_DATA_IMP BUSCANDO_IMAGEN_A_MOSTRAR_IMP Else RsImp.MovePrevious If RsImp.BOF Then RsImp.MoveFirst LOAD_DATA_IMP BUSCANDO_IMAGEN_A_MOSTRAR_IMP End If End If End IfEnd Sub------------------------------------------------------------------------------Private Sub CmdSiguiente_Click() If Not RsImp.BOF And Not RsImp.EOF Then LOAD_DATA_IMP BUSCANDO_IMAGEN_A_MOSTRAR_IMP If RsImp.EOF Then RsImp.MoveLast LOAD_DATA_IMP BUSCANDO_IMAGEN_A_MOSTRAR_IMP Else RsImp.MoveNext 'LOAD_DATA_IMP 'BUSCANDO_IMAGEN_A_MOSTRAR_IMP If RsImp.EOF Then RsImp.MoveLast LOAD_DATA_IMP BUSCANDO_IMAGEN_A_MOSTRAR_IMP End If End If End IfEnd Sub------------------------------------------------------------------------------Private Sub CmdUltimo_Click() If Not RsImp.BOF And Not RsImp.EOF Then RsImp.MoveLast LOAD_DATA_IMP BUSCANDO_IMAGEN_A_MOSTRAR_IMP End IfEnd Sub------------------------------------------------------------------------------
Gracias cpmario ;)

PD: Sabrías como se podría realizar lo siguiente en un TextBox?
Text1.Text = 3/8

Estamos en el registro 3 de 8
Al desplazarme por cada registro en la ventana como podría visualizar algo como lo indicado?
Text1.Text = ??? & "/" & RsImp.RecordCount

cpmario:
El siguiente código lo uso para mostrar el número de registros de la base de datos.
Tiene manejo de errores, si no hay registros le indico al usuario que debe agregarlo.

--- Código: Text --- Private Sub CountRecords() On Error GoTo ErrorCountRecords If RsImp.BOF And RsImp.EOF Then LblRCMain.Caption = "0" gstrMsg = "Antes de iniciar cualquier operación " & vbCrLf & _ "agregue un registro. Clic en [Nuevo]." MsgBox gstrMsg, vbInformation, gstrAppTitle Else mvarBookMark = RsImp.Bookmark RsImp.MoveLast LblRCMain.Caption = RsImp.RecordCount RsImp.Bookmark = mvarBookMark End If Exit SubErrorCountRecords: GenErrorHandler "frmEditbloc/CountRecords()", Err.Number, Err.DescriptionExit SubEnd Sub
En cuanto a lo de mostrar el número de registro, no he encontrado la forma de hacerlo. Para mí no es útil el parámetro y no lo muestro.

:)

Navegación

[0] Índice de Mensajes

[#] Página Siguiente

Ir a la versión completa