pmiroslav 16.07.2012 11:54
Predmet:Programiranje tipki u Accessu

Interesantna svar je korištenje tipki na za kontrolu objekata u Accessu.
Npr. naredbom select Case možemo koristiti razne tipke za ovu namjenu.

Primjer:
PreuzmiIzvorni kôd (vbnet):
  1. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  2. Select Case KeyCode
  3. Case vbKeyTab
  4.     Forms!frmForm1!sub2.SetFocus
  5. Case vbKeyF2
  6.     DoCmd.OpenForm "frmForm2"
  7. End Select
  8. End Sub
Da bi ovo radilo u Form Properties 'Key Priew' treba staviti na 'Yes'

Ili to napraviti pomoću koda:
PreuzmiIzvorni kôd (vbnet):
  1. Private Sub Form_Load()
  2.     Me.KeyPreview = True
  3. End Sub
Prilozi:
KeyCodes.txt (Velicina datoteke:2.87 KB)
KoristenjeTipki.rar (Velicina datoteke:19.27 KB)

zxz 16.07.2012 12:11
Predmet:Re: Programiranje tipki u Accessu

Ako U Caption neke kontole upises znak & Ispred bilo kojeg slova u tekstu captio na ALT + to slovo skocit ce na tu kontrolu.
Naprimjer
Moja &Kontrola
Na alt+K skace na nju.

miro35 19.07.2012 13:55
Predmet:Re: Programiranje tipki u Accessu

Pogledajte ovo kod mene u aplikaciji radi.
Obješnjenje:
Kad se pravi nalog za knjiženje u financijskom kad je fokus na polju konto,pritiskom na kombinaciju tipki Ctrl + E otvara se forma frmKontniPlan:
PreuzmiIzvorni kôd (Text):
  1. Private Sub Konto_KeyDown(KeyCode As Integer, Shift As Integer)
  2. Select Case KeyCode
  3.         Case vbKeyF1:
  4.                     Select Case Shift
  5.                         Case acShiftMask:   MsgBox "F1 + Shift", vbInformation, "Pritisnut taster"
  6.                         Case acCtrlMask:    MsgBox "F1 + Ctrl", vbInformation, "Pritisnut taster"
  7.                         Case acAltMask:     MsgBox "F1 + Alt", vbInformation, "Pritisnut taster"
  8.                     End Select
  9.                     KeyCode = 0
  10.                    
  11.          Case vbKeyE
  12.                  Select Case Shift
  13.                       Case acCtrlMask:
  14.                         DoCmd.OpenForm "frmKontniPlanNalog"
  15.        Case Else
  16.         Exit Sub
  17.                  End Select
  18.                  KeyCode = 0
  19.                    
  20.     End Select
  21. End Sub