
Moverse entre registros
Publicado por Nomada (171 intervenciones) el 28/09/2011 07:17:23
Buenas
Tengo un problemita que posiblemente sea una tontería, pero me gustan las cosas bien hechas.
Tengo un formulario de "Clientes" en una base de datos de "Facturas" donde existen unos botones (creados por mi) para moverse entre los registros (Primero, Anterior, Siguiente, Ultimo). Pues bien, si pulsas en el botón de "Último Registro", te posicionas efectivamente en el último registro, pero si a continuación pulsas el botón de "Siguiente Registro" aparece un registro en blanco.
Y aquí está mi pregunta: ¿Cómo puedo hacer para que al llegar al último registro no pases a un registro nuevo, aún pulsando el botón de "Siguiente registro"?.
Ahora cuando pulso sobre el botón de "Siguiente Registro", en el evento tengo una llamada "=RegSiguiente()" al Modulo1, donde está la función que abajo indico:
Function RegSiguiente() As Boolean
On Error GoTo Err_Salir_Click
DoCmd.GoToRecord , , acNext
Exit_Salir_Click:
Exit Function
Err_Salir_Click:
Resume Exit_Salir_Click
End Function
Alguna sugerencia por favor?.
Gracias y un saludo.
Tengo un problemita que posiblemente sea una tontería, pero me gustan las cosas bien hechas.
Tengo un formulario de "Clientes" en una base de datos de "Facturas" donde existen unos botones (creados por mi) para moverse entre los registros (Primero, Anterior, Siguiente, Ultimo). Pues bien, si pulsas en el botón de "Último Registro", te posicionas efectivamente en el último registro, pero si a continuación pulsas el botón de "Siguiente Registro" aparece un registro en blanco.
Y aquí está mi pregunta: ¿Cómo puedo hacer para que al llegar al último registro no pases a un registro nuevo, aún pulsando el botón de "Siguiente registro"?.
Ahora cuando pulso sobre el botón de "Siguiente Registro", en el evento tengo una llamada "=RegSiguiente()" al Modulo1, donde está la función que abajo indico:
Function RegSiguiente() As Boolean
On Error GoTo Err_Salir_Click
DoCmd.GoToRecord , , acNext
Exit_Salir_Click:
Exit Function
Err_Salir_Click:
Resume Exit_Salir_Click
End Function
Alguna sugerencia por favor?.
Gracias y un saludo.
Valora esta pregunta


0