J
jn
can someone tell me why this code would not work?
want to suppress pageup and pagedown. supposedly this
works. however, when i go to the application, there is no
change.
Private Sub Form_KeyDown(KeyCode As Integer, Shift As
Integer)
Select Case KeyCode
' if user presses page down and shift key
Case 34, 16, 2, 33
KeyCode = 0
Case Else
Debug.Print KeyCode, Shift
End Select
End Sub
want to suppress pageup and pagedown. supposedly this
works. however, when i go to the application, there is no
change.
Private Sub Form_KeyDown(KeyCode As Integer, Shift As
Integer)
Select Case KeyCode
' if user presses page down and shift key
Case 34, 16, 2, 33
KeyCode = 0
Case Else
Debug.Print KeyCode, Shift
End Select
End Sub