Access - Crear Botones para Navegar en registros

 
Vista:
sin imagen de perfil
Val: 21
Ha mantenido su posición en Access (en relación al último mes)
Gráfica de Access

Crear Botones para Navegar en registros

Publicado por Daniel (14 intervenciones) el 21/01/2017 03:05:36
Buenas Noches a todos:

Espero que puedan ayudarme

Tengo un formulario con varios registros y necesito crear botones de navegacion entre los registros, algo asi como

x10,x50,x100 hacia adelante
x10,x50,x100 hacia atras

ir al primero, ir al ultimo

Algo como la barra de navegacion que aparece en los formularios pero con botones en el formulario,

intente con el siguiente codigo vBA al hacer click en el boton

1
DoCmd.GoToRecord acDataForm, "MODIF_CALIBRACION", acNext, 10

Esto funciona bien y cambia de 10 registros por click pero cuando sobrepasa los registros totales me salta un error que no puedo controlar

1
2
Se ha producido el error 2105 en tiempo de ejecucion
No se puede ir al registro especificado

Necesito ayuda para controlar que no sobrepase la navegacion del total de registros existentes, Espero puedan ayudarme
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
Imágen de perfil de Neckkito
Val: 529
Plata
Ha mantenido su posición en Access (en relación al último mes)
Gráfica de Access

Crear Botones para Navegar en registros

Publicado por Neckkito (1157 intervenciones) el 22/01/2017 19:23:08
Hola!

Prueba con esto (adaptándolo a tu caso):

1
2
3
4
5
6
7
8
9
10
11
Private sub...
On error goto sol_err
DoCmd.GoToRecord acDataForm, "MODIF_CALIBRACION", acNext, 10
Exit sub
sol_err:
If err.number=2105 then
msgbox "Ha llegado ya a los últimos registros",vbinformation,"AVISO"
Else
msgbox "Se ha producido el error " & err.number & " - " & err.description
End if
End sub

Otra solución, aunque no te la recomiendo a priori, es que escribas, simplemente:

1
2
3
4
Private sub
On error resume next
DoCmd.GoToRecord acDataForm, "MODIF_CALIBRACION", acNext, 10
End sub

Con esta última solución obvias el error, pero no recibes ningún aviso de nada.

Saludos,

Neckkito
http://bit.ly/neckkito
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil
Val: 21
Ha mantenido su posición en Access (en relación al último mes)
Gráfica de Access

Crear Botones para Navegar en registros

Publicado por Daniel (14 intervenciones) el 24/01/2017 02:52:56
Gracias lo probare
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