How do I Disable the scroll button on the mouse.

[Dr. Hung]

I dont want the user to be able to use the Middle scroll wheel on the
mouse when he's in a form. It brings up a warning message about null
values when this happens and it will confuse the user.

Any ideas would be great thanks..

Martin R

 

[Allen Browne]

Stephen Lebans has the code to disable the mouse wheel:
http://www.lebans.com/mousewheelonoff.htm

(It might be better to teach the user how to use a mouse, rather than to
disable this functionality.)

 

[Dr. Hung]

i copied the code from that link, But it does not stop the mouse
wheel's function. The reason why i want to disable it is because, when
i am entering data, i dont want the person to scrowl the mouse on to a
new record or a previous one without finishing with the current records
details first. Why might this code not be working. I have it in the
open form event. here is the code:

Private Sub Form_Open(Cancel As Integer)
Dim blRet As Boolean
blRet = MouseWheelOFF
End Sub

 

[Dr. Hung]

I am now getting an error message that says,


"Variable not defined"
MouseWheelOff is highlighted.

How do i define this??

Here is the code again:

Dim blRet As Boolean
blRet = MouseWheelOFF

Martin R

 

[Douglas J. Steele]

Did you download the sample database and copy the code from it? Did you copy
the included MouseHook.DLL into your Windows/System folder or into the same
folder as your application MDB?

 

[Dr. Hung]

Yes that worked for me thanks.

 

[Pieter Wijnen]

Much better to use the Form's On Error Event to give the users a more
"friendly" message

Pieter

 

[Dr. Hung]

I got that to work ok, thanks

 

[Stephen Lebans]

Well Hung, I'm glad Doug was able to straighten you out.
;-)

--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.

 

[Guest]

Will this work in an Excel spreadsheet outside a form?

 

[Douglas J. Steele]

It might, but you'd probably have to use the same VB in Excel as you do in
Access.