De: "McPegasus" <XXmcpegasus@iespana.es>
Asunto: ¡¡¡¡¡¡¡¡¡¡¡¡¡ YA PUDE CON LA P... RUEDECITA DEL RATÓN !!!!!!!!!!!!!!!!!!
Fecha: martes, 26 de marzo de 2002 16:51

Bueno es una solución a medias :-(( , pero por lo menos ya no habrá que
pulsar
Ctrl + Alt + Sup. :-)))))))))))))))))))))))))))))))))))))))))))))))))))))))

Pues en el evento Al activar registro (Form_Current) intercalar una
breeeeeeeeeeeeve pausa para poder pulsar una de las flechas de ir a
principio de registros o final en el cuadro de Registros situado abajo a la
izquierda de la pantalla. "Botones de desplazamiento".

Hago un poco de historia.
Tienes un formulario con 12.000 registros, te encuentras en el 5.555 y tocas
la rueda del ratón y los registros empiezan a correr, bien hacia el final o
hacia el principio, depende del ''santo toque'' que se haya dado.
Y esto se quedaba corriendo hasta que no llegara al final o principio de
registro.

Pues la solución más sencilla que he encontrado (llevo toda la mañana del
martes 26, por cierto, felicidades a los llamados San Braulio), es hacer una
pausa para poder pulsar con el ratón uno de los botones "Primer Registro" en
caso de ir corriendo los registros hacia atrás o el botón "Nuevo Registro"
en caso de corre corre los registros hacia el final.

Resumiendo.
    - Los registros avanzan hacia el final del fichero.
            Pulsar botón "Nuevo Registro"

    - Los registros retroceden hacia el registro 1 del fichero.
            Pulsar botón "Primer Registro"

¡¡¡¡¡¡¡¡¡¡¡¡ Y LOS REGISTROS DEJAN DE CORRER POR QUE SE SITUAN EN EL PRIMERO
O NUEVO !!!!!!!!!!!!

¡¡¡¡¡¡¡¡¡¡¡¡ joer estoy contento, muy muy contento
!!!!!!!!!!!!!!!!!!!!!!!!!!!!

¡¡¡¡¡¡¡¡¡¡¡¡ Ya sé que no es la solución perfecta, pero tras más de un año
buscando la solución, es la más razonable que he encontrado y a parte, estoy
hasta los h...... de buscarla sin resultado. Hasta aquí he llegado y aquí me
quedé con el tema.

¡¡¡¡¡¡¡¡¡¡¡ Gracias a todos los que han puesto su granito de arena en el
asunto, sobre todo a Pagaag, que aunque con su idea en el evento Timer no me
funciono, pude llegar a esta sencilla solución. !!!!!!!!!!!!!!!!


Private Sub Form_Current()
'Al activar registro

    Call mc_PausaCódigo(0.0000000001)

end Sub


Public Function mc_PausaCódigo(dblTiempo As Double)
'********************************************************************************************
'Actualización:     21/10/2001                                  Fecha Creación:    21/10/2001
'Autor:		    Desconocido
'Origen:            microsoft.public.es.access

'Propósito:         'Función para hacer una pausa en la ejecución del código y dar tiempo a _
                    terminar la tarea anteriormente encomendada.

'La sintaxis del Procedimiento o Función, consta de estos argumentos:
'Parte                          Descripción
'-------------------------------------------------------------------------------------------
'dblTiempo:       Requerido.  Un valor que son los segundos de espera.

    Dim dblEspera As Double
    
    'Espera los segundos especificados
    dblEspera = Timer
    Do While Timer - dblEspera < dblTiempo
        'Cede el control de la ejecución al sistema operativo, para que este pueda procesar _
        otros eventos.
        DoEvents
    Loop

End Function


--

Un Saludo,

McPegasus
Valencia (es)
www.mcpegasus.com