Does anyone know the code to disable the Mouse Scroll Wheel please? Is 
there a keycode for this operation? I've disabled the PageUp and PageDown 
keys to stop the possibility of changing records on a form, but I cannot 
work out how to disable the mouse wheel. This is what I have so far....

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
         Select Case KeyCode
            Case 33, 34
               KeyCode = 0
         End Select
End Sub

If anyone can help I would be most grateful as it's doing my head in now.

Stephen

Stephen,
  You can refer to the Microsoft Knowledge Base to answer your problem.  
here's the url
http://support.microsoft.com/default.aspx?scid=3Dkb;en-us;Q308636
Hint: You need MS VB to create a dynamic library.

Good Luck,
Derrick Flores
Sony Semiconductor
San Antonio, TX


>>> "Stephen Birnie" <beelzebubs_offspring@h...> 06/18 2:31 PM >>>
Does anyone know the code to disable the Mouse Scroll Wheel please? Is
there a keycode for this operation? I've disabled the PageUp and 
PageDown
keys to stop the possibility of changing records on a form, but I 
cannot
work out how to disable the mouse wheel. This is what I have so far....

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
         Select Case KeyCode
            Case 33, 34
               KeyCode =3D 0
         End Select
End Sub

If anyone can help I would be most grateful as it's doing my head in now.

Stephen

> Thanks for your help Derrick, unfortunately I'm still having problems. I 
do not have MS VB to create a dynamic library. I followed the instructions 
for creating the MouseWheel Event from within Microsoft Access to the 
letter, but I am getting a Form_Load error when opening the form. I'll 
keep trying but if you have any ideas they would be appreciated.

Stephen




Stephen,
  You can refer to the Microsoft Knowledge Base to answer your problem.  
here's the url
http://support.microsoft.com/default.aspx?scid=3Dkb;en-us;Q308636
Hint: You need MS VB to create a dynamic library.

Good Luck,
Derrick Flores
Sony Semiconductor
San Antonio, TX


>>> "Stephen Birnie" <beelzebubs_offspring@h...> 06/18 2:31 PM >>>
Does anyone know the code to disable the Mouse Scroll Wheel please? Is
there a keycode for this operation? I've disabled the PageUp and 
PageDown
keys to stop the possibility of changing records on a form, but I 
cannot
work out how to disable the mouse wheel. This is what I have so far....

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
         Select Case KeyCode
            Case 33, 34
               KeyCode =3D 0
         End Select
End Sub

If anyone can help I would be most grateful as it's doing my head in now.

Stephen