Sayın Mehmet, aşağıdaki kodları kullanarak istediğiniz kadar tuşa istediğiniz kodları yazarak kullanabilirsiniz. Umarım faydam olmuştur. Kolay gelsin.
'Form Açıldığında Olay yordamına
Private Sub Form_Load()
Me.KeyPreview = True
End Sub
'Form Tuşa basıldığında olay yordamına
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCodeCase vbKeyF4
DoCmd.OpenForm "Form Adi"
Case vbKeyEscape
DoCmd.Close
Case Else
End Select
End Sub