iCentar » Racunari i oprema » Programirannje i baze podataka » Access

pmiroslav	16.07.2012 12: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): Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyTab Forms!frmForm1!sub2.SetFocus Case vbKeyF2 DoCmd.OpenForm "frmForm2" End Select 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): Private Sub Form_Load() Me.KeyPreview = True End Sub
Prilozi: KeyCodes.txt (Velicina datoteke:2.87 KB) KoristenjeTipki.rar (Velicina datoteke:19.27 KB)

pmiroslav

16.07.2012 12: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):

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyTab
Forms!frmForm1!sub2.SetFocus
Case vbKeyF2
DoCmd.OpenForm "frmForm2"
End Select
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):

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

Prilozi:
KeyCodes.txt (Velicina datoteke:2.87 KB)
KoristenjeTipki.rar (Velicina datoteke:19.27 KB)

zxz	16.07.2012 13: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.

zxz

16.07.2012 13: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 14: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): Private Sub Konto_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 "frmKontniPlanNalog" Case Else Exit Sub End Select KeyCode = 0 End Select End Sub

miro35

19.07.2012 14: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):

Private Sub Konto_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 "frmKontniPlanNalog"
Case Else
Exit Sub
End Select
KeyCode = 0
End Select
End Sub