Scroll Wheel In Access 2007

[doubleJ]

Apparently, there are a lot of people that didn't like the scroll wheel
navigating records in Access 2003. Well, Access 2007 doesn't do that and now
I don't like it. I've been through the access options and help and haven't
seen a way to set it.
Does anyone have an idea?
JJ

 

[Allen Browne]

Use the new MouseWheel event procedure of the form.

If the Count is negative, use:
RunCommand acCmdRecordsGotoPrevious
If it's positive, use:
RunCommand acCmdRecordsGotoNext

 

[doubleJ]

Below is the code that I ended up with, but it didn't work. I don't get an
error or anything. This is my first effort in vb, so please bear with me.
JJ

Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
If Count = negative Then
RunCommand acCmdRecordsGoToPrevious
End If
If Count = positive Then
RunCommand acCmdRecordsGoToNext
End If
End Sub

 

[Allen Browne]

Try:
If Count < 0 Then
etc.

I suggest you add this line to the very top of your module:
Option Explicit

It will then give you an error when you use an undeclared word (such as
negative or positive.)

 

[doubleJ]

This does work. Thank you...
If I'm at the beginning and accidentally go backward it pops up an error.
The same happens if I'm at the end and accidentally go forward.
Is there a way to suppress the error in that instance?
JJ

 

[Allen Browne]

Add error handling.

Access gives you the error number.
Just ignore the error.

If error handling is new, see:
http://allenbrowne.com/ser-23a.html