Can I still navigate through forms using the Mouse Wheel?

[Guest]

I have just upgraded to Access 2007 and can no longer roll through records in
my forms using the mouse wheel - my prefeered navigation method.

Is it possible to enable this?

 

[Allen Browne]

Access 2007 has a new MouseWheel event that you can use if you want the old
behavior. Code example below.

Personally, I *really* like the change. In the new version, the mousewheel
still scrolls your forms in Continuous or Datasheet view, but not in Form
view.


Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
On Error GoTo Err_Handler
'Purpose: Move record on mouse wheel, as in previous versions.

If Count > 0 Then
RunCommand acCmdRecordsGoToNext
Else
RunCommand acCmdRecordsGoToPrevious
End If

Exit_Handler:
Exit Sub

Err_Handler:
If Err.Number = 2046& Then 'No next/previous record.
Beep
Else
MsgBox "Error " & Err.Number & ": " & Err.Description
End If
Resume Exit_Handler
End Sub

 

[Guest]

Thanks - that's perfect. Allows me to enable the mousewheel in my main form
but not in my sub-forms, which is exactly what I wanted.

Appreciate the help.