prevent mouse wheel scrolling on a form

[tim johnson]

I am trying to prevent the user from using the mouse
scroll wheel to scroll through the records on a form in
Accesss 2003.

Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal
Count As Long)

If Page = True Then

DoCmd.GoToRecord , , acPrevious
End If
End Sub

If the page =true then you have moved to a new record so
the Docmd line should take you back to the previous
record you were on but it is not working.

Kindly help

Thanks

tim

 

[Cheryl Fischer]

You might want to have a look at MVP Stephen Lebans' downloadable example
for controlling the mousewheel:

http://www.lebans.com/mousewheelonoff.htm


hth,