Access PAGEUP and PAGEDOWN keys 1

[DH]

Is there a way to disable or prevent the PAGEUP,PAGEDOWN keys and mouse wheel from moving to a blank record when viewing and form? Thanks.

 

[PaulF]

Set the Form's Key Preview Event to Yes and use:


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


PaulF

 

[DH]

Thanks! Any suggestions for disabling the wheel mouse from moving to a new/blank record when scrolling in a form?

 

[PaulF]

Not really, however I just looked at the code listed at this URL

http://www.vbthunder.com/source/ui/mousewheel.htm

take a look at it, there's some code in there that you might be able to use to do what you want. I don't have a wheel mouse on my machine here at home, so I can't do any testing on it.

PaulF