Function Zaustavi(Trajanje)
    Dim VRIJEME
     DoCmd.OpenForm "frmSacekajte"
    DoEvents
     
    Trajanje = Trajanje + Timer()
Start:
    VRIJEME = Timer()
    If VRIJEME < Trajanje Then GoTo Start
    DoCmd.Close acForm, "frmSacekajte"
    End Function