Kod:
Private Sub Form_Load()
Me.KeyPreview = True
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyF2
DoCmd.GoToRecord , , acNewRec
DoCmd.GoToControl "Çeker Plaka1"
Case Else
End Select
End Sub