Bonjour à toutes et à tous,

Je développe avec Access 2003 sous Windows XP pro.

J'ai trouvé le code suivant sur développez.com :
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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
  Un formulaire peut devenir pénible à utiliser car la molette de la souris fait défiler les enregistrements.
 
 
Cette solution fonctionne pour MS Access 2000 et 2003. (si vous avez testé pour d'autres versions n'hésitez pas à nous le faire savoir)
Il arrive cependant que l'erreur "nom ambigu détecté" se manifeste pour les version 2002 et ultérieures. Référez-vous dans ce cas au tutoriel dont le lien est en bas de cet article. 
 
 
1ere étape: 
 
 
Ouvrir un module VBA, aller dans Outils/Références, cliquer sur Parcourir et localiser la dll MouseWheel.dll puis cliquer sur Ouvrir. Cela permet d'enregistrer la dll dans les Références Access. 
 
 
2eme étape : 
 
 
Mettre le code suivant dans chaque formulaire qui requiert un contrôle de la roulette de la souris. 
   ' Déclaration dans chaque formulaire après Option Explicit et Option Compare Database
Private WithEvents clsMouseWheel As MouseWheel.CMouseWheel
 
 'Procédure à rajouter dans chaque formulaire
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
Au moment de le tester, sur l'évènement load() de mon formulaire, j'ai l'erreur suivant :

Erreur d'exécution '50002'
Erreur définier par l'application ou par l'objet.

J'ai vérifié mon code plusieurs fois.
Je ne vois pas l'erreur.
Si quelqu'un à une idée, je suis prenneur.

En fait mon but est de désactiver la molette de la souris sur mes formulaies.

Merci,
Willy