how do I disable record navigation w/ intellimouse on Access form?

S

shanebgross

On an Access form, in single form view, a user can navigate between records
using the wheel button on the Intellimouse. How can I disable the wheel
button for the form, so the user cannot navigate records with it?
 
B

Bob Howard

Shane; I suggest going to www.lebans.com --- this site contains tons of
tools, and one of them is what you want (I use this tool plus another from
this site). Bob (@Martureo_Org)
 
R

Rick Brandt

Sprinks said:
Hi, Shane.

Set the form's ScrollBar property to Neither.
Click to expand...

Sorry, but that does not disable the scroll wheel's ability to change
records.

Stephen Lebans has a Mousehook.DLL that lets you disable the scroll wheel in
an Access app. I've been using it for a few years now with no problems.
 
T

Ted

i have imported lebans' code/etc into my a2k application and it's giving me a
"Runtime Error 53: File Not Found: Mousehook" error message which when i
click on the 'Ok' takes me to

Public Function MouseWheelON() As Boolean
MouseWheelON = StartMouseWheel(Application.hWndAccessApp)
If hLib <> 0 Then
hLib = FreeLibrary(hLib)
End If
End Function

and (yellow) highlights the 2nd line. can anybody tell me what's up with
that? this was working yesterday, oddly enough.

thanks for any (needed) help in advance,

-ted
 
D

Douglas J Steele

Did you remember to copy MouseHook.DLL into either your Windows/System
folder or into the same folder as your application MDB?
 
T

Ted

i sure did, (they're both on the 'desktop' currently), and that's when i kind
of decided to post this.

-ted
 
T

Ted

doug,

as i think i wrote, this was working yesterday. i have an earlier version of
this mdb which does work on my dektop. i would be glad to try our your idea,
but could you be a bit more specific wrt the details/mechanics required --
this is unfamiliar territory.

-ted
 
T

Ted

doug,

i find that if i place the code below in either the On Open or On Load EVENT
properties, that the error i described ensues. otherwise, it seems to work?

' Turn the MouseWheel On
Dim blRet As Boolean
blRet = MouseWheelON
Me.txtStatus.Value = "The MouseWheel is turned ON"
 
D

Douglas J Steele

Sorry, I haven't looked closely enough at Stephen's code to be able to
comment.

I'll see whether I can attract his attention for you...
 
T

Ted

thanks, doug.
it's probably not going to be a show-stopper if i don't use it in either
EVENT, but it seemed like an appopriate thing to do at the time.

-ted
 
Top