Return to Snippet

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