Imam ovaj code na KeyPrewiewDown text polja,znači kad se nalazim na tom polju stisnem kombinaciju tipki Ctrl E,otvaram drugu formu za unos podataka i to radi.Ali na tom polju ne mogu ukucati slovo E, kad hoću da upišem to slovo ništa se ne desi.Evo code:
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
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
Potpis
miro