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.

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!

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.

Hvala Simke!

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