MouseWheel Event [Access 2003 VBA Language Reference]

Occurs when the user rolls the mouse wheel in Form View, Datasheet View, PivotChart View, or PivotTable View.

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

Page True if the page was changed.

Count   The number of lines by which the view was scrolled with the mouse wheel.


The following example demonstrates the syntax for a subroutine that traps the MouseWheel event.

Private Sub Form_MouseWheel( _
        ByVal Page As Boolean, ByVal Count As Long)   If Page = True Then
        MsgBox "You've moved to another page."
    End If
End Sub

Applies to | Form Object