Ircservices.com


Cómo deshabilitar la rueda del ratón en MS Access 2003

Cómo deshabilitar la rueda del ratón en MS Access 2003

La rueda de desplazamiento con el ratón es útil en algunas aplicaciones de la computadora, pero puede causar problemas en Microsoft Access. Si crear aplicaciones de base de datos con Access, puede familiarizarse con la forma de que la rueda de desplazamiento puede causar registros ciclo demasiado rápido o ciclo antes de que finalice la entrada de datos. Con el lanzamiento de Access 2007, la rueda de desplazamiento está deshabilitada por defecto en la aplicación. En versiones anteriores a Access 2007, incluyendo Access 2003, debe deshabilitar manualmente la función de rueda de desplazamiento con un módulo o código de VBA en un procedimiento de evento de ratón. Este artículo describe dos métodos para lograr esto.

Instrucciones

1 descargar la base de datos de MouseWheelHookA2k libre y el código de la página de Lebans Holdings (ver recursos para el enlace). Extraiga el archivo en una carpeta en el equipo.

2 copiar y pegar el archivo "MouseHook.DLL" en la carpeta con el archivo MDB de Access.

3 abrir la base de datos de Access. Busque y abra el formulario de "Inicio" en la lista de formas para su base de datos (el formulario de inicio que tenga un nombre diferente).

4 haga clic en la barra de herramientas "Herramientas de diseño de formulario" y crear un "botón de comando" en cualquier lugar en el formulario.

5 haga clic en el botón de comando y haga clic en la opción "Propiedades" en el menú emergente. Desplácese hasta la opción "OnClick" y haga doble clic en el campo vacío para abrir el Visual Basic para el editor de aplicaciones (VBA).

6 copiar y pegar el siguiente código en el editor de VBA: ' girar la rueda del mouse de Dim blRet como Boolean blRet = MouseWheelOFF

7 cierre el editor de VBA.

8 crear otro "botón de comando" en cualquier otra forma en su base de datos para volver a activar la rueda de desplazamiento antes de salir de la base de datos. Introduzca el código siguiente detrás del botón de comando en el código de "OnClick": "girar la rueda del mouse en Dim blRet como Boolean blRet = MouseWheelON

1 descargar el código y base de datos de basMouseHook gratis desde el sitio de EverythingAccess.com (ver recursos para el enlace). Guardar la base de datos en una carpeta en su computadora.

2 abrir la base de datos en Access. Haga clic en la opción "Importación de archivos" y seleccione "Módulos". Busque la carpeta donde guardó la base de datos de basMouseHook e importar el módulo de código basMouseHook de la base de datos.

3 Abra el formulario "Inicio" en la ventana diseñador de formularios. Haga clic en el formulario, luego haga clic en la opción "Propiedades" en el menú emergente.

4 Desplácese hacia abajo para el procedimiento de evento "OnOpen del" y haga doble clic para entrar en el editor de VBA.

5 copiar y pegar el siguiente código en el procedimiento de evento "OnOpen": privada Sub Form_Open(Cancel As Integer) estáticos MouseHook como objeto Set MouseHook = NewMouseHook(Me) End Sub