Private Enum wsTrigger
MyWheel = 1
NotTheWheel = 2
End Enum
Private mWheel As Boolean
Private ValidationTrigger As wsTrigger
Private Function WheelSpin() As Integer
WheelSpin = mWheel
Select Case ValidationTrigger
Case NotTheWheel
mWheel = False
End Select
End Function
Private Sub Form_Error(DataErr As Integer, Response As Integer)
If Screen.ActiveControl.Name = "UnboundTextBox" Then
Response = acDataErrContinue
End If
End Sub
Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
On Error Goto Sub_Err
mWheel = True
ValidationTrigger = MyWheel
Me.UnboundTextBox.SetFocus
Me.UnboundTextBox.TEXT = " "
Sub_Exit:
ValidationTrigger = NotTheWheel
Msgbox "you can't scroll on this form, please stop scrolling", _
vbOKOnly + vbwarning, "No mouse scroll"
Exit Sub
Sub_Err:
Resume Sub_Exit
End Sub
|