Ayuda con el código de botones de siguiente y anterior en formulario
publicado
Buenas a todos, luego de haber googleado mucho me he rendido y vengo a molestarlos pidiendo ayuda de sus conocimientos.
Viendo videos y adaptando lo visto a mi trabajo he logrado crear el formulario tal como lo deseo, pero en los videos que he visto se les ha pasado programar que los botones de siguiente y anterior funcionen luego de usar el boton buscar.
Me explico, si se esta en el primer registro y le da al boton siguiente no hay problema, o en el ultimo yluego darle hacia atrás, el problema esta cuando uno busca una referencia y luego quiere usar estos botones, ahí no funcionan y el de siguiente tira el 2do registro y el anterior igual, no continuan de la fila de los datos obtenidos por medio de buscar.
esta en la coficiación que actualmente tienen los botones.
Private Sub CmdSiguiente_Click()
If Fila <= nReg(Hoja1, 7, 1) - 2 Then
Fila = Fila + 1
RecuperaDatos (Fila)
Else
MsgBox "Último registro"
End If
End Sub
Private Sub CmdAnterior_Click()
If Fila > 7 Then
Fila = Fila - 1
RecuperaDatos (Fila)
Else
MsgBox "Primera entrada!!"
End If
End Sub
no puedo subir archivos por las actuales reglas del foro, así que espero verme dado a entender, desde ya gracias por leer.
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Buenas a todos, luego de haber googleado mucho me he rendido y vengo a molestarlos pidiendo ayuda de sus conocimientos.
Viendo videos y adaptando lo visto a mi trabajo he logrado crear el formulario tal como lo deseo, pero en los videos que he visto se les ha pasado programar que los botones de siguiente y anterior funcionen luego de usar el boton buscar.
Me explico, si se esta en el primer registro y le da al boton siguiente no hay problema, o en el ultimo yluego darle hacia atrás, el problema esta cuando uno busca una referencia y luego quiere usar estos botones, ahí no funcionan y el de siguiente tira el 2do registro y el anterior igual, no continuan de la fila de los datos obtenidos por medio de buscar.
esta en la coficiación que actualmente tienen los botones.
Private Sub CmdSiguiente_Click()
If Fila <= nReg(Hoja1, 7, 1) - 2 Then
Fila = Fila + 1
RecuperaDatos (Fila)
Else
MsgBox "Último registro"
End If
End Sub
Private Sub CmdAnterior_Click()
If Fila > 7 Then
Fila = Fila - 1
RecuperaDatos (Fila)
Else
MsgBox "Primera entrada!!"
End If
End Sub
no puedo subir archivos por las actuales reglas del foro, así que espero verme dado a entender, desde ya gracias por leer.