Block Mouse Wheel in MSAccess 2003 - Visual Basic Snipplr Social Repository

Revision: 31062

at August 28, 2010 06:23 by erne100

Initial Code

Private bkmCurrentRecord as Variant
Private timeWheel as Variant

Private Sub Form_Current()
Dim tmpBookmark as Variant

    If Timer - timeWheel < 1 Then 'If Wheel has been recently used
        If Not IsEmpty(bkmCurrentRecord) Then
            tmpBookmark = bkmCurrentRecord
            bkmCurrentRecord = Empty
            Me.Bookmark = tmpBookmark
        Else
            bkmCurrentRecord = Me.Bookmark
        End If
    Else
        bkmCurrentRecord = Me.Bookmark
    End If
End Sub

Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
    timeWheel = Timer
End Sub

Private Sub Form_Open(Cancel As Integer)
    bkmCurrentRecord = Me.Bookmark
End Sub

Initial URL

Initial Description

Initial Title

Block Mouse Wheel in MSAccess 2003

Initial Tags

Initial Language

Visual Basic

Choose a language for easy browsing: