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 "frmOpisNalog"
End Select
KeyCode = 0
End Select
miro