[es] - Tasteri F1-F12 u Access-u Kako?

Daks
Tu Tamo

Član broj: 2310
Poruke: 88
*.as54.bi.bih.net.ba.

Profil

^{27.02.2004. u 22:41 - pre 245 meseci}

Da li se moze u access-u dodijeliti odredjena komanda tasterima F1-F12, npr. Print?

Hvala!

Simke
Marko Simic
Sandfield Associates (Solution
Developer)
Novi Zeland

Član broj: 1158
Poruke: 751
*.dialup.xtra.co.nz

ICQ: 71578686
Sajt: www.sandfield.co.nz

Profil

Re: Tasteri F1-F12 u Access-u Kako?

^{28.02.2004. u 00:05 - pre 245 meseci}

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.

All beer is good. Some beer is better.

Odgovor na temu

Daks
Tu Tamo

Član broj: 2310
Poruke: 88
*.as54.bi.bih.net.ba.

Profil

Re: Tasteri F1-F12 u Access-u Kako?

^{28.02.2004. u 09:03 - pre 245 meseci}

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!

Odgovor na temu

Simke
Marko Simic
Sandfield Associates (Solution
Developer)
Novi Zeland

Član broj: 1158
Poruke: 751
*.dialup.xtra.co.nz

ICQ: 71578686
Sajt: www.sandfield.co.nz

Profil

Re: Tasteri F1-F12 u Access-u Kako?

^{29.02.2004. u 00:17 - pre 245 meseci}

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.

All beer is good. Some beer is better.

Odgovor na temu

Daks
Tu Tamo

Član broj: 2310
Poruke: 88
*.as54.bi.bih.net.ba.

Profil

Re: Tasteri F1-F12 u Access-u Kako?

^{29.02.2004. u 11:01 - pre 245 meseci}

Hvala Simke!

Funkcija radi dobro, zamijenio sam Me reference. Jos jednom Hvala!

Odgovor na temu