Private Sub Form_Load()
Me.KeyPreview = True
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyF2
' Process F2 key events.
Case vbKeyF3
' Process F3 key events.
Case vbKeyF4
DoCmd.OpenForm "Form1"
Case Else
End Select
End Sub

Kod Bankası Mehmet Demiral Kaydı