Thread: Disabling Mouse Scroll

HELLO AOG123:

Thank you for replying to my call fro help on the "Disabling the Mouse Wheel when used in MS Access. I Downloaded you sample and realized my mistake. Basically, the problem was that I Created the "CMouseWheel" as a Module rather than as a Class Module as per your sample. It has worked as needed. Thank you again for your help

CRC

Hi,
New to all of this which is not unusual I expect.

Well now, This handy code may well have saved the day,

I have copied the modules.

My Question lies in the events and an error message,


Forms Events which are

Load,
Close and
MouseWheel_MouseWheel

The event = MouseWheel_MouseWheel = where is it?
I created one

Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
'This is the event procedure where you can
'decide what to do when the user rolls the mouse.
'If setting Cancel = True, we disable the mouse wheel
'in this form.

MsgBox "You cannot use the mouse wheel to scroll through records."
Cancel = True
End Sub

and I get on debug Variable not defined

for "clsMouseWheel.subClassUnhookForm"
In
Private Sub Form_Close()
'Unhook the form by calling the
'SubClassUnhook form method in the
'class, and then destroy the object
'variable

clsMouseWheel.SubClassUnHookForm
Set clsMouseWheel.Form = Nothing
Set clsMouseWheel = Nothing
End Sub

Acces 2003

Best Regards
Bill

Oppppppppppppppppps - My Bad,
Forgot to declare this at the top of the form
'Declare a module level variable as the custom class
'and give us access to the class's events
Private WithEvents clsMouseWheel As CMouseWheel


All good - yahoooooooooooooooooooooooo

Kind Regards
Bill

Thanks worked great!

One thing I noticed is that form crashes once you have had the visual basic editor open. But as long as you just stay in the form and tables... its all good.