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. |
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
|