Prikazi cijelu temu 08.06.2011 14:37
zxz Na mrezi
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Zatvaranje svih formi i reporta
Dodaj samo ovo:
PreuzmiIzvorni kôd (Visual Basic):
  1. Public Function Zatvori()
  2. Dim I As Integer
  3. Dim Imena As String
  4. Dim Svega As Integer
  5.  
  6.  
  7. Svega = Forms.Count - 1
  8. if svega<0 goto Izvjestaj
  9. ReDim Ime(Svega) As String
  10. Forma:
  11. For I = 0 To Svega
  12. Ime(I) = Forms(I).Name
  13. Next I
  14. For I = 0 To Svega
  15. DoCmd.Close acForm, Ime(I)
  16. Next I
  17. Izvjestaj:
  18. Svega = Reports.Count - 1
  19. if svega<0 goto Kraj:
  20. ReDim Ime(Svega) As String
  21. For I = 0 To Svega
  22. Ime(I) = Reports(I).Name
  23. Next I
  24. For I = 0 To Svega
  25. DoCmd.Close acReport, Ime(I)
  26. Next I
  27. Kraj:
  28. exit function
  29. End Function
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.