Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Check the keycode

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)         If KeyCode = vbKeyPageDown Or _          KeyCode = vbKeyPageUp Then          KeyCode = 0         End If End Sub