Private Sub Konto_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyF1: Select Case Shift Case acShiftMask: MsgBox "F1 + Shift", vbInformation, "Pritisnut taster" Case acCtrlMask: MsgBox "F1 + Ctrl", vbInformation, "Pritisnut taster" Case acAltMask: MsgBox "F1 + Alt", vbInformation, "Pritisnut taster" End Select KeyCode = 0 Case vbKeyE Select Case Shift Case acCtrlMask: DoCmd.OpenForm "frmKontniPlanNalog" Case Else Exit Sub End Select KeyCode = 0 End Select End Sub