MouseWheel Off: Code not working

[Dököll]

Hey Gang!

Can you have a look tell me what you see happening?

Below code should turn MouseWheel off, right!

 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   Select Case KeyCode
      Case 33, 34
         KeyCode = 0
   End Select
End Sub
 
 

My mousewheel still works with above code. Perhaps it is more specific to buttons!



I am getting a weird error when I run below. Any ideas!

 
Private Sub Form_Load()
    Dim blRet As Boolean
    blRet = MouseWheelOFF(False)
End Sub
 
 

It looks like the error is saying MouseWheelOff is not defined. But it isn't true because blRet is defined.

What are your thoughts?

Also, I picked up this link through our help pages:

http://www.thescripts.com/forum/thread632608.html

Will I need to do this as another option?

Thanks for your help!

Dököll

[Rabbit]

The mousewheel, as far as I know, doesn't trigger the KeyDown event because it doesn't represent the pressing of a key. For a packaged solution, you can google Leban's .dll solution for this.

If you want it confined to Access itself, I developed a process that locks down all forms of record navigation except for custom created buttons. Although I think this can easily be adapted to affect only the mousewheel with some tweaking of the code.

[missinglinq]

If you're running Access 2007, you already have a function that addresses this issue! Just check with Help.

For all other versions, you'll need some outside help. A gentleman by the name of Stephen Lebans has a sample database that does this and can be downloaded at:

http://www.lebans.com/mousewheelonoff.htm

First, download and unzip the db and take a look. Go into your db and goto File > External Data > Import and import the module modMouseHook from the sample database. Next make sure you have the included file, MouseHook.dll, in the same folder your database resides in. The following code needs to run before the mousewheel will be locked:

Private Sub Form_Load()
' Turn off Mouse Scroll
blRet = MouseWheelOFF
End Sub

If you have one form that always loads first in your db, like a menu form or a splash screen, place the code there. If the first form to load varies, place the same code in each form. You should now be set!

Linq ;0)>

[Dököll]

Thanks to you both, funny you sent me in the same direction, sound like it is pretty common problem.

Will give it a whirl, thanks again:-)

[missinglinq]

It is and has been since the advent of the mouse wheel; my response was from a boilerplate file I keep just to answer this question! It's amazing to me that it's taken Micro$oft this long to finally address the problem!

Linq ;0)>

[Dököll]

Works like a charm guys, thanks, saves us a world of trouble...

Have a wonderful week-end!

Dököll

[missinglinq]

Glad we could help!

Linq ;0)>