MS Access 2003: evitar que la rueda del mouse desplace los registros en el formulario ▷ Access

Los datos expuestos en este blog, son solo de índole informativo. Por favor realiza siempre una copia de seguridad antes de realizar cualquier cambio en tu proyecto.

MS Access 2003: evitar que la rueda del mouse desplace los registros en el formulario

Este tutorial de MSAccess explica cómo evitar que la rueda del mouse desplace los registros en un formulario en Access 2003 (con capturas de pantalla e instrucciones paso a paso).

Pregunta: En Microsoft Access 2003/XP/2000/97, ¿cómo evito que la rueda del mouse desplace los registros en un formulario?

R: Debe descargar y copiar el siguiente archivo MouseWheel.dll en cada computadora en la que desee evitar el desplazamiento.

Descargar el archivo MouseWheel.dll

Le recomendamos que copie el archivo MouseWheel.dll en el siguiente directorio:

c:Program FilesMicrosoft OfficeOffice

Pero puede copiar este archivo a cualquier directorio que desee. Sin embargo, siempre debe copiar este archivo en la misma ubicación de directorio en cada computadora.

registrar archivo dll

A continuación, debe registrar el archivo. Esto es especialmente importante si está ejecutando Access 97. Sin embargo, si está ejecutando Access 2000 o posterior, sigue siendo una buena idea registrar archivos.

Para hacer esto, abra un símbolo del sistema. Escribe el siguiente comando y presiona Enter:

cd /program files/microsoft office/office

Esto cambiará su indicador para señalar el directorio donde guardó el archivo MouseWheel.dll. Ahora, vamos a registrar el archivo. Escribe el siguiente comando y presiona Enter:

regsvr32.exe mousewheel.dll

Debería aparecer la siguiente ventana, indicando que el archivo MouseWheel.dll se ha registrado correctamente.

Actualizar referencias en Access

A continuación, abra la base de datos de Access y presione Alt+F11. Esto lo llevará al editor de Visual Basic.

En el menú Herramientas, seleccione Referencias.

Cuando aparezca la ventana de referencia, haga clic en el botón Examinar.

Busque el archivo MouseWheel.dll que guardó en su computadora. En este ejemplo, el archivo MouseWheel.dll se puede encontrar en c:Program FilesMicrosoft OfficeOffice.

Haga clic en el botón Abrir.

Ahora, cuando regrese a la ventana Referencias, el archivo MouseWheel.dll debería aparecer a la izquierda con una marca de verificación. Haga clic en el botón Aceptar.

Agrega el código a tu formulario

Abra su formulario en la vista Diseño y vaya al Editor de Visual Basic para el formulario. Puede hacerlo haciendo clic en el botón a la derecha del evento On Open del formulario.

Cuando aparezca la ventana Seleccionar generador, resalte Code Builder y haga clic en el botón Aceptar.

Cuando aparezca la ventana de Microsoft Visual Basic, pegue el siguiente código:

Option Compare Database
Option Explicit

Private WithEvents clsMouseWheel As MouseWheel.CMouseWheel

Private Sub Form_Load()
   Set clsMouseWheel = New MouseWheel.CMouseWheel
   Set clsMouseWheel.Form = Me
   clsMouseWheel.SubClassHookForm
End Sub

Private Sub Form_Close()
   clsMouseWheel.SubClassUnHookForm
   Set clsMouseWheel.Form = Nothing
   Set clsMouseWheel = Nothing
End Sub

Private Sub clsMouseWheel_MouseWheel(Cancel As Integer)
   Cancel = True
End Sub

El código debería verse así:

Ahora puede cerrar el editor de Microsoft Visual Basic. (Si se le solicita, guarde los cambios)

Guardar cambios en el formulario. Ahora, cuando vea el formulario y mueva la rueda del mouse, los registros ya no deberían desplazarse.