This documentation is archived and is not being maintained.

MouseWheel Event [Access 2003 VBA Language Reference]

Office 2003

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.

Example

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


Show: