Scrolling a Form

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I am using Access 2002 and I'm having trouble getting the scroll to work the way I want. When a user uses the mouse wheel I want Access to scroll up or down on the current form. Now, when the mouse wheel is used Access moves through the records that are bound to the form. Is there any way to fix this or disable the mouse wheel. As of now my users are getting confused because when they try to scroll it jumps to a new record and they lose track of what they are doing.

Thanks.
 
See:
http://www.lebans.com/mousewheelonoff.htm
MouseWheelHook97.zip is an MDB demonstrating how to use a MouseHook to
turn off the MouseWheel. No more MouseWheel.DLL Hell! No DLL
registration required. The MouseHook DLL is a standard Windows DLL. Do
not try to Register it or set a Reference to it from within Access.
Just copy the included MouseHook.DLL into your Windows/System folder or
into the same folder as your application MDB. One instance handles all
Forms and SubForms so only call the functions once from a SINGLE Form.
Here is an A2K sample MDB including the DLL. MouseWheelHookA2K.zip .
Please note there is no difference between the MouseHook.DLL included in
either the A97 or A2K ZIP file.

Here is sample code that can be placed behind CommandButton controls.
You could also place this code in the Load event of a single Form.
Remember you need to call these functions only ONE TIME. The MouseHook
will look after the MouseWheel messages for all forms that you have open
now or at any time during your current session. Remember to turn the
MouseWheel back on before you exit the current session!

Private Sub Command14_Click()
' Turn the MouseWheel Off
Dim blRet As Boolean
blRet = MouseWheelOFF
End Sub

Or if you will be running multiple instances of Access then you can pass
an optional parameter to ask for a Global Hook. The default is FALSE.
Please note the Version documentation below.

blRet = MouseWheelOFF(True)


Private Sub Command16_Click()
' Turn the MouseWheel On
Dim blRet As Boolean
blRet = MouseWheelON
End Sub

--

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


SuzieR said:
I am using Access 2002 and I'm having trouble getting the scroll to
Click to expand...
work the way I want. When a user uses the mouse wheel I want Access to
scroll up or down on the current form. Now, when the mouse wheel is
used Access moves through the records that are bound to the form. Is
there any way to fix this or disable the mouse wheel. As of now my
users are getting confused because when they try to scroll it jumps to a
new record and they lose track of what they are doing.
 
Back
Top