Disabling the mouse wheel 2

[4321z]

Hi,

I've got a form based on a table which i want to open for one record only in edit mode. However when i'm looking at the record and i move the mouse scroll wheel down, the form moves to a blank (i.e new) record. The only way i've stopped this from happening is to open the form in read-only mode but then i can't edit the record.I've also set set the forms property "Allow Additions" to NO, but this makes no difference.

Is there a way of disabling the mouse wheel? Or maybe another property i can set on the form to stop this happening.

 

[evalesthy]

Do an advanced search in this forum and you will find many postings on this topic.

 

[drctx]

set "Allow Additions" and "Allow Deletions" to "No" that should do it.

 

[kevinwilson]

4321z,
Try this... forgot where I got it.

Private Sub MyButton_Click()
' Turns the Mouse Wheel Off
Dim blRet As Boolean
blRet = MouseWheelOFF
End Sub