Prikazi cijelu temu 22.10.2011 18:03
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Lokacija:SARAJEVO


Predmet:Re: Fiskalizacija u FBiH
PreuzmiIzvorni kôd (Text):
  1. Function Zaustavi(Trajanje)
  2.     Dim VRIJEME
  3.      DoCmd.OpenForm "frmSacekajte"
  4.     DoEvents
  5.      
  6.     Trajanje = Trajanje + Timer()
  7. Start:
  8.     VRIJEME = Timer()
  9.     If VRIJEME < Trajanje Then GoTo Start
  10.     DoCmd.Close acForm, "frmSacekajte"
  11.     End Function

Nije bas elegantno ali radi.
Pozdrav
Pozdrav, Amela
Ovaj post je ureden 1 puta. Posljednja izmjena 22.10.2011 18:03 od strane Amelasar.