Désactiver la molette de la souris dans un formulaire

**snoopy69** · 06/12/2007, 09h13

Bonjour à tous,

Je travaille avec Access 2003.

Je souhaite désactiver la molette de ma souris dans certains de mes formulaires. Pour faire cela, je me suis rendue à ce lien dans la FAQ : http://access.developpez.com/faq/?pa...#molettesouris

J'ai suivis les consignes à la lettre et pourtant je n'arrive pas à désactiver la molette.

Voici ce que j'ai fait :
1) J'ai télécharger la DLL et je l'ai mise dans "C:\WINDOWS\system32"
2) Dans les références VBA j'ai ajouté la DLL
3) Au niveau de mon formulaire j'ai ajouté cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private WithEvents clsMouseWheel As MouseWheel.CMouseWheel

après les deux lignes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Option Compare Database
Option Explicit

J'ai ajouté ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub clsMouseWheel_MouseWheel(Cancel As Integer)
    Cancel = True
End Sub

Puis sur l'évènement LOAD du formulaire j'ai ajouté ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Set clsMouseWheel = New MouseWheel.CMouseWheel
Set clsMouseWheel.Form = Me
clsMouseWheel.SubClassHookForm

Puis sur l'évènement CLOSE du formulaire j'ai ajouté ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If Not (clsMouseWheel Is Nothing) Then
            clsMouseWheel.SubClassUnHookForm
            Set clsMouseWheel.Form = Nothing
            Set clsMouseWheel = Nothing
End If

J'ai tout enregistré puis j'ai quitter ma base Access et je l'ai réouverte.

Lorsque j'ouvre mon formulaire sur lequel j'ai mis le code voici l'erreur que j'ai :

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

Si je clic sur "Débogage" voici la ligne qui vient en jaune :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set clsMouseWheel = New MouseWheel.CMouseWheel

au niveau de l'évènement "LOAD" du formulaire.

Savez-vous d'où peut provenir cette erreur ?

Merci d'avance pour vos réponses.

S'Noopy...

**Domi2** · 06/12/2007, 09h18

Bonjour,

Pas sûr que le code de la FAQ fonctionne avec toutes les versions d'Access (notamment 2003).

Personnellement, j'utilise cette solution d'Arkham... Pas besoin de registrer la dll, c'est très appréciable...

Domi2