Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

  • 4 odgovora
  • 4.810 pregleda

Najnovija ↓

Tasteri F1-F12 u Access-u Kako? 27.02.2004. u 23:41 · pre 276 meseci #1
Da li se moze u access-u dodijeliti odredjena komanda tasterima F1-F12, npr. Print?

Hvala!
Re: Tasteri F1-F12 u Access-u Kako? 28.02.2004. u 01:05 · pre 276 meseci #2
Moze, napravis macro koji se zove AutoKeys cini mi se, i u njemu postavis sta ce koji taster da radi - pogledaj malo help, nije uopste komplikovano. Nisam ovo odavno radio pa nisam 100% siguran kako se izvodi.
Potpis
All beer is good. Some beer is better.
Re: Tasteri F1-F12 u Access-u Kako? 28.02.2004. u 10:03 · pre 276 meseci #3
Nasao sam kako mogu napraviti macro AutoKeys, medjutim kako od slijedeceg koda napraviti funkciju da bi se mogao na nju pozivati iz macroa:

Private Sub IspisRacuna_Click()
On Error GoTo Err_Preview_Click

Dim uplaceno As Double
Dim vraceno As Currency


uplaceno = InputBox("U KASU SE UPLACUJE IZNOS OD:", "UPLACENI IZNOS", Format(Text27, "###0.00"))
vraceno = uplaceno - Text27.Value

MsgBox "IZ KASE SE ISPLACUJE IZNOS OD: " & Format(vraceno, "###0.00") & " KM", vbInformation, "VRACENI IZNOS"


DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
If IsNull(Me![BrojRacuna]) Then
MsgBox "Nema podataka za ispis."
Else
DoCmd.OpenReport "Racun", acViewNormal, , "[Racun].[BrojRacuna]=" & Me![BrojRacuna]
End If


Exit_Preview_Click:
Exit Sub

Err_Preview_Click:
If Err <> 2501 Then
MsgBox Err.Description
End If
Resume Exit_Preview_Click


End Sub

Ako neko moze neka pomogne. Hvala!
Re: Tasteri F1-F12 u Access-u Kako? 29.02.2004. u 01:17 · pre 276 meseci #4
Opet, ako se ne varam, treba da napravis module i da u njega stavis tu proceduru kao Public da bi mogao da je zoves iz macroa. Probaj pa vidi hoce li ovo da radi. Naravno moraces da promenis Me reference u puno ime forme (Forms!FormName). Takodje na pocetku procedure proveri sa IsLoaded da li je ucitana forma sa koje pokusavas da citas/pises podatke, inace ces dobiti run-time error.
Potpis
All beer is good. Some beer is better.
Re: Tasteri F1-F12 u Access-u Kako? 29.02.2004. u 12:01 · pre 276 meseci #5

Hvala Simke!

Funkcija radi dobro, zamijenio sam Me reference. Jos jednom Hvala!
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme