KeyPress and KeyDown not working

[SiberBob]

I can't seem to get either KeyPress or KeyDown to work on a userform in Excel 2000. Is that a known problem?

Here is my code:

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyPageUp Then GotoPreviousRecord
    If KeyCode = vbKeyPageDown Then GotoNextRecord
End Sub

Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyCode = vbKeyPageUp Then GotoPreviousRecord
    If KeyCode = vbKeyPageDown Then GotoNextRecord
End Sub

Thanks...

 

[CautionMP]

SiberBob,
I'm guessing that a control on your form has the focus, so that control is experiencing the KeyPress or KeyDown event, not the form.

The userform object does not have a built in mechanism to 'preview' the keys pressed before the individual controls do.

There have been a couple of posts on how to preview keyboard activity, try searching for WithEvents.

CMP

(GMT-07:00) Mountain Time (US & Canada)