Bonjour,

Je suis sous Access 2000 et je souhaite bloquer la roulette de la souris.


J'ai suivi "à la lettre" le tuto présent sur le FAQ mais j'ai une erreur que je ne sais pas corriger :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
Application defined or object-defined error
J'ai l'impression qu'il ne reconnait pas la déclaration de la variable alors que le dll est installé et qu'il est coché et que la variable est coché.

il bloque sur la ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
Set clsMouseWheel = New MouseWheel.CMouseWheel
Ci-dessous le code du formuaire
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Option Compare Database
Option Explicit
Private WithEvents clsMouseWheel As MouseWheel.CMouseWheel
Private Sub clsMouseWheel_MouseWheel(Cancel As Integer)
    Cancel = True
End Sub
 
Private Sub Form_Load()
    'Code à rajouter dans l'événement chargement de chaque formulaire
    Set clsMouseWheel = New MouseWheel.CMouseWheel
    Set clsMouseWheel.Form = Me
    clsMouseWheel.SubClassHookForm
End Sub
 
Private Sub Form_Close()
    'Code à rajouter dans l'événement fermeture de chaque formulaire
    If Not (clsMouseWheel Is Nothing) Then
        clsMouseWheel.SubClassUnHookForm
        Set clsMouseWheel.Form = Nothing
        Set clsMouseWheel = Nothing
    End If
End Sub
Avez-vous une idée de la provenance de cette erreur ?

Merci pour votre aide.