Ir a registro suiguiente
Publicado por Nestor (14 intervenciones) el 23/04/2007 13:16:20
Hola a todos.
Tengo en un formulario insertado dos botones para ir al registro siguiente y anterior .
Lo que quiero es que cuando llegue al ultimo registro y pulse nuevamente no me permita este boton insertar un nuevo registro, ya que esto lo realizo con otro boton, lo mismo que con el boton de ir a registro anterior es decir que cuando llegue al primer registro se bloquee, es decir que actuen como los botones que ya vienen en acces.
Este es el evento que coloque en el boton ir al siguiente registro:
Private Sub Comando63_Click()
On Error GoTo Err_Comando63_Click
DoCmd.GoToRecord , , acNext
Me.Contador = Me.Contador + 1
Me.Refresh
Exit_Comando63_Click:
Exit Sub
Err_Comando63_Click:
MsgBox Err.Description
Resume Exit_Comando63_Click
End Sub
Y este es el del boton ir al registro anterior:
Private Sub Comando62_Click()
On Error GoTo Err_Comando62_Click
DoCmd.GoToRecord , , acPrevious
If Me.Contador <= 1 Then Exit Sub
Me.Contador = Me.Contador - 1
Me.Refresh
Exit_Comando62_Click:
Exit Sub
Err_Comando62_Click:
MsgBox Err.Description
Resume Exit_Comando62_Click
End Sub
Si alguien conoce la solución se los agradesco.
Tengo en un formulario insertado dos botones para ir al registro siguiente y anterior .
Lo que quiero es que cuando llegue al ultimo registro y pulse nuevamente no me permita este boton insertar un nuevo registro, ya que esto lo realizo con otro boton, lo mismo que con el boton de ir a registro anterior es decir que cuando llegue al primer registro se bloquee, es decir que actuen como los botones que ya vienen en acces.
Este es el evento que coloque en el boton ir al siguiente registro:
Private Sub Comando63_Click()
On Error GoTo Err_Comando63_Click
DoCmd.GoToRecord , , acNext
Me.Contador = Me.Contador + 1
Me.Refresh
Exit_Comando63_Click:
Exit Sub
Err_Comando63_Click:
MsgBox Err.Description
Resume Exit_Comando63_Click
End Sub
Y este es el del boton ir al registro anterior:
Private Sub Comando62_Click()
On Error GoTo Err_Comando62_Click
DoCmd.GoToRecord , , acPrevious
If Me.Contador <= 1 Then Exit Sub
Me.Contador = Me.Contador - 1
Me.Refresh
Exit_Comando62_Click:
Exit Sub
Err_Comando62_Click:
MsgBox Err.Description
Resume Exit_Comando62_Click
End Sub
Si alguien conoce la solución se los agradesco.
Valora esta pregunta


0