Option Compare Database
Option Explicit
Global Uslov_Izbora As Integer
Function Izbor_Start()
Izbor_Start = Uslov_Izbora
End Function
Function ZadajUslov()
Uslov_Izbora = InputBox("Sifra", "Uslov izbora", 0)
Call Izbor_Start
DoCmd.OpenQuery "Q"
End Function