горячие клавиши с привязкой к кнопкам активного окна и без привязки в БД Access

горячие клавиши с привязкой к кнопкам активного окна и без привязки в БД Access
программы на Microsoft Access
access-program...
код VBA:
Public Function PressFormButton(MyKey As String)
Dim I As Integer
I = Forms.Count - 1
On Error GoTo PressFormButtonErr
Forms(I).Controls(MyKey).SetFocus
SendKeys "{Enter}"
Exit Function
PressFormButtonErr:
Err = 0
End Function