Centar za edukaciju-BiH


Stranice (1):1

#1 16.07.2012 11:54
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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:
Informacije o tipu datoteke za:txt  KeyCodes.txt
Preuzimanja:485
Velicina datoteke:2.87 KB
Informacije o tipu datoteke za:rar  KoristenjeTipki.rar
Preuzimanja:395
Velicina datoteke:19.27 KB


Pozdrav
↑  ↓

#2 16.07.2012 12:11
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#3 19.07.2012 13:55
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


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

Miro
↑  ↓

Stranice (1):1


Sva vremena su GMT +01:00. Trenutno vrijeme: 9: 22 pm.