zxz 16.07.2012 09:27
Predmet:Re: Key preview

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyF8
Call Command41_Click
Case vbKeyTab
Call Command111_Click
Na tab on poziva proceduru koja se nalazi na command111 na klik
nije potreban komandni taster.
Proceduru mozes i ovdje napisati.
Napr.
docmd.openform "nekaforma"
Case vbKeyEnd
Call Command123_Click
End Select
End Sub

pmiroslav 16.07.2012 09:36
Predmet:Re: Key preview

Napravio sam nešto. Nije radilo zato što sam kod stavio na glavnu formu, a treba biti na subformi
PreuzmiIzvorni kôd (vbnet):
  1. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  2. Select Case KeyCode
  3. Case vbKeyF2  
  4.            Call VidiProces
  5. Case vbKeyTab          
  6.            Forms!frmEvidencija!frmRealizacijaSub.SetFocus
  7. End Select
  8. End Sub

mislim da treba i ovo:

PreuzmiIzvorni kôd (vbnet):
  1. Private Sub Form_Load()
  2.     Me.KeyPreview = True
  3. End Sub

zxz 16.07.2012 09:44
Predmet:Re: Key preview

Private Sub Form_Load()
Me.KeyPreview = True
End Sub

Ukoliko je na false ne radi uopste.
Znaci ako hoces kontroolisati tastazuru mora biti KeyPreview na true i posto si ovdje stavio na otvaranj forme da se to promijeni mogao si jenostavno promijeniti tu opciju i netreba ti onda na on load.

pmiroslav 16.07.2012 10:35
Predmet:Re: Key preview

Ovo sa programiranjem tastera je interesantna svar i ja za to do sada nisam znao. Našao sam na netu popis za sve tipke pa ako nekom treba
Prilozi:
KeyCodes.txt (Velicina datoteke:2.83 KB)

zxz 16.07.2012 10:45
Predmet:Re: Key preview

Da to su VB Konstante i iamo ih u objek browseru alim svakako je dobro da imaju ovdje.
Mozda da stavis i ucionca forum kao nova tema.

miro35 16.07.2012 13:32
Predmet:Re: Key preview

Sad vidim ovo kako sam ja u nekoj gužvi pa nevidim.
Isto zakačit ću za kombinaciju tipaka to ja imam u jednoj aplikaciji.
Npr Ctrl E ; Ctrl F itd..
Kod mene je ovaj primjer Tab Količina ,ali planiram staviti da ne zatvaram Tab-om nego Esc.
Znači kad na kasi pritisne tipku Tab i želi je zatvoriti, da to ne čini tipkom Tab nego sa Esc.

nevsad 07.08.2012 21:12
Predmet:Re: Key preview

Me.KeyPreview = True

Case vbKeyPageDown
DoCmd.OpenForm "Epromjena", acNormal, , , , acDialog
SendKeys "{Esc}", True 'zatvara formu Epromjena
KeyCode = 0