Ver Mensaje Individual
  #3 (permalink)  
Antiguo 11/12/2003, 03:43
Teri
 
Fecha de Ingreso: abril-2003
Ubicación: Madrid
Mensajes: 707
Antigüedad: 21 años, 10 meses
Puntos: 0
Digamos que si a uno de los botones le llamas ComandoAnterior, y al otro ComandoSiguiente, puedes poner esto

Private Sub ComandoAnterior_Click()
On Error GoTo Err_ComandoAnterior_Click


DoCmd.GoToRecord , , acPrevious

Exit_ComandoAnterior_Click:
Exit Sub

Err_ComandoAnterior_Click:
MsgBox Err.Description, vbExclamation
Resume Exit_ComandoAnterior_Click

End Sub


Private Sub ComandoSiguiente_Click()
On Error GoTo Err_ComandoSiguiente_Click


DoCmd.GoToRecord , , acNext

Exit_ComandoSiguiente_Click:
Exit Sub

Err_ComandoSiguiente_Click:
MsgBox Err.Description, vbExclamation
Resume Exit_ComandoSiguiente_Click

End Sub

Gestiona los errores desde el código y evitaras que se pueda entrar en el código con sólo pulsar un botón Depurar


Un saludo