Botón desplazamiento automático
Hola amigo experto.
Necesito que por favor me ayude. Tengo una base de datos con unos 1600 registros y quiero crear un botón en un formulario que automáticamente se desplace por esos 1600 registros sin tener que estar haciendo clic en dicho botón 1600 veces.
De antemano le agradezco su colaboración
Necesito que por favor me ayude. Tengo una base de datos con unos 1600 registros y quiero crear un botón en un formulario que automáticamente se desplace por esos 1600 registros sin tener que estar haciendo clic en dicho botón 1600 veces.
De antemano le agradezco su colaboración
1 Respuesta
Respuesta de alex206
1
Que necesitas, que se mueva a un registro en concreto
lo puedes hacer poniendo código en el botón tipo:
DoCmd. GoToControl "nombre del campo que quieres buscar"
DoCmd. FindRecord "valor del campo en el que quieres que se sitúe",, True,, True,, True
cambiando lo que está en negrita por los nombres de campo y valor.
Si lo que quieres es que cada x segundos pase a otro registro, tienes que añadirte en el form un control de temporizador, configurarlo con los segundos que quieres y cuando se ejecute haces lo siguiente
if not me.recordset.eof then
DoCmd.GoToRecord , , acNext
else
DoCmd.GoToRecord , , acFirst 'si llega al fin que vuelva a empezar
end if
lo puedes hacer poniendo código en el botón tipo:
DoCmd. GoToControl "nombre del campo que quieres buscar"
DoCmd. FindRecord "valor del campo en el que quieres que se sitúe",, True,, True,, True
cambiando lo que está en negrita por los nombres de campo y valor.
Si lo que quieres es que cada x segundos pase a otro registro, tienes que añadirte en el form un control de temporizador, configurarlo con los segundos que quieres y cuando se ejecute haces lo siguiente
if not me.recordset.eof then
DoCmd.GoToRecord , , acNext
else
DoCmd.GoToRecord , , acFirst 'si llega al fin que vuelva a empezar
end if
Bien, perfecto gracias por su tiempo y colaboración.
Estoy haciendo que los registros corran por si solos, solo una pregunta más al final no se devuelve al primer registro me sale un aviso diciendo que no se puede ir al registro y me saca una ventana para finalizar o depurar, como corrijo esto por favor.
Estoy haciendo que los registros corran por si solos, solo una pregunta más al final no se devuelve al primer registro me sale un aviso diciendo que no se puede ir al registro y me saca una ventana para finalizar o depurar, como corrijo esto por favor.
Cambia el código por este
DoCmd. GoToRecord,, acNext
if me.recordset.eof then
DoCmd.GoToRecord , , acFirst 'si llega al fin que vuelva a empezar
end if
DoCmd. GoToRecord,, acNext
if me.recordset.eof then
DoCmd.GoToRecord , , acFirst 'si llega al fin que vuelva a empezar
end if
