Option Compare Database
Option Explicit
Global Brojac As Integer
Function ResetQ()
Brojac = 0
End Function

Function BrojacQ(ID As Integer)
Brojac = Brojac + 1
BrojacQ = Brojac
End Function