Mouse Wheel Off

[Opal]

I was hoping someone could clear up some confusion for me.....

I have gone to: http://www.lebans.com/mousewheelonoff.htm

and downloaded the sample database and the .dll file.

I have looked through the database and seen how it works, but I can't
quite figure
out how to adapt it to my dilemma.

I have an inventory input form that I do not want the user to use the
mousewheel on
at all. It must be turned off completely. I know this because I have
been testing the
form with some users and they have accidently moved the mouse wheel
and the
inventory record they have input disappears since I have the following
in place:

Private Sub Form_Current()
DoCmd.GoToRecord , , acNewRec
End Sub

Can someone help me adapt this mousewheel off to my situation? Thank
you.

 

[OldPro]

I was hoping someone could clear up some confusion for me.....

I have gone to: http://www.lebans.com/mousewheelonoff.htm

and downloaded the sample database and the .dll file.

I have looked through the database and seen how it works, but I can't
quite figure
out how to adapt it to my dilemma.

I have an inventory input form that I do not want the user to use the
mousewheel on
at all. It must be turned off completely. I know this because I have
been testing the
form with some users and they have accidently moved the mouse wheel
and the
inventory record they have input disappears since I have the following
in place:

Private Sub Form_Current()
DoCmd.GoToRecord , , acNewRec
End Sub

Can someone help me adapt this mousewheel off to my situation? Thank
you.

Did you put this:
Dim blRet As Boolean
blRet = MouseWheelOFF
in the form_load event?
Did you also put this:
Dim blRet As Boolean
blRet = MouseWheelON
in the form_unload event?

 

[Opal]

Did you put this:
Dim blRet As Boolean
blRet = MouseWheelOFF
in the form_load event?
Did you also put this:
Dim blRet As Boolean
blRet = MouseWheelON
in the form_unload event?- Hide quoted text -

- Show quoted text -

Thank you, Old Pro... that works great!