hi,
it`s give me pleasure to join with u
i have a problem in code below
the problem:
when i move up mouse wheel the code work but in move down it not work
the code:
-
Public CurrentBookmark As String
-
Public MouseWheelMoved As Boolean
-
-
Private Sub Form_Current()
-
On Error Resume Next
-
If MouseWheelMoved = True Then
-
Me.Bookmark = CurrentBookmark
-
End If
-
MouseWheelMoved = False
-
End Sub
-
-
Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
-
On Error Resume Next
-
CurrentBookmark = Me.Bookmark
-
MouseWheelMoved = True
-
MsgBox "you cannot use mouse wheel."
-
End Sub
-
please help me
the file is attached
