how to avoid the coming of next records when we scroll the mouse in a form

[neelesh kumar]

sir,
i have a form created using wizard from table questions.My problem is when i scroll the mouse next records are coming.can we avoid next records to come when we scroll the mouse.i want to be in the same record even when we scroll the mouse.
if so please give the code
thanks in advance.

[pks00]

Looks like u need code to disable mouse scrolling

Ok, two links
1st from MS (two samples)
2nd from Lebans

I prefer the first sample from MS, I have used it without any problems.
I have created the vb dll already and u can download it from here

or if u have vb already installed, u can create it yourself

and if u use the vb dll/approach from ms, full instructins are available in that link provided, or read below

save dll in some directory eg \windows\system32
add this vbdll as a reference (Tools/References)


then in code do this this

Option Compare Database
Option Explicit
 
Private WithEvents clsMouseWheel As MouseWheel.CMouseWheel
 
Private Sub Form_Load()
    Set clsMouseWheel = New MouseWheel.CMouseWheel
    Set clsMouseWheel.Form = Me
    clsMouseWheel.SubClassHookForm
End Sub
 
Private Sub Form_Close()
   clsMouseWheel.SubClassUnHookForm
   Set clsMouseWheel.Form = Nothing
   Set clsMouseWheel = Nothing
End Sub
 
Private Sub clsMouseWheel_MouseWheel(Cancel As Integer)
    MsgBox "You cannot use the mouse wheel to scroll records."
    Cancel = True
End Sub
 

Save and restart access and give it a go