this code is missing something,it does`nt work ??!!

[ahmedtharwat19]

problem:
when we go to new record the code not work so we add some update to that code to be :

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

we can move it up and code is work
when we move down the code not work

please help
thank you for all