[ Miro35 @ 14.04.2010. 08:43 ] @
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
[ SLOJ.1973 @ 14.04.2010. 09:52 ] @
Evo ovako:
Code:
Private Sub Text1_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 "frmOpisNalog"

Case Else
exit sub
End Select
KeyCode = 0

End Select
End Sub
[ Miro35 @ 14.04.2010. 12:14 ] @
To je to.
Hvala