G
Guest
I have inserted Leban's code to disable mouse scrolling into the forms
"OnOpen", "OnGotFocus", "OnActivate" and "OnPrettyMuchEverythingElse"...and
it works.
HOWEVER, as soon as I use a command button (Previous Record, Next Record,
Create New Record, etc.) the mouse scroll is reactivated. If I enable the
record navigators on the bottom of the form, and use those to navigate, the
mouse scroll stays inactive.
Is there some other code I need to add to my command buttons? (I would
really like to keep them on the form instead of the record navigators)
This is the code I used:
Private Sub xxxxxxxxxxxx
' Turn the MouseWheel Off
Dim blRet As Boolean
blRet = MouseWheelOFF(False)
End Sub
"OnOpen", "OnGotFocus", "OnActivate" and "OnPrettyMuchEverythingElse"...and
it works.
HOWEVER, as soon as I use a command button (Previous Record, Next Record,
Create New Record, etc.) the mouse scroll is reactivated. If I enable the
record navigators on the bottom of the form, and use those to navigate, the
mouse scroll stays inactive.
Is there some other code I need to add to my command buttons? (I would
really like to keep them on the form instead of the record navigators)
This is the code I used:
Private Sub xxxxxxxxxxxx
' Turn the MouseWheel Off
Dim blRet As Boolean
blRet = MouseWheelOFF(False)
End Sub