Disable the mouse wheel in form view

[Guest]

Hi I am trying to write an event procedure to effectively disable the record
scrolling function of the mouse wheel, I have so far written the following...

Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
MsgBox ("This function is disabled")
Recordset.record = Recordset.record - 1
End Sub

but after the message box all I get is "object doesn't support this property
or method" My primary key is Membership_No and I have tried a few things with
that but don't seem to be making any headway.

Any help would be greatly appreciated
Steve

 

[Guest]

Addendum

Sorry guys, got it solved by using recordset.moveprevious

Thanks though to thos who were thinking for me.

Kind regards
Steve