ファンクションキーで命令を実行させたい

質問

よろしくお願いします。
ACCESS２０００を使用しています。
ファンクションキーで命令を実行したく、下記のコマンドを書いて実行しましたが動作しません。
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Me.メインsub.Form.SetFocus
Select Case KeyCode
Case vbKeyF5
Me.btn帰社.SetFocus
Call btn帰社_Click
Case Else
KeyCode = 0
End Select
End Sub
Private Sub Form_Load()
Me.KeyPreview = True
End Sub
フォームプロパティのキーボードイベント取得は「はい」で設定してあります。
2週間位、いろいろやってみましたがうまくいきません。はまっています。回答・ヒントをよろしくお願いします。

回答No.1

nda23

もし、サブフォームを使っていて、そこにフォーカスがある時には
親フォームにはイベントが通知されません。

お礼

nda23様
参考意見ありがとうござます。
もう少し頑張ってみます。