Prikazi cijelu temu 08.06.2011 13:03
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Zatvaranje svih formi i reporta
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. ReDim Ime(Svega) As String
  9. For I = 0 To Svega
  10. Ime(I) = Forms(I).Name
  11. Next I
  12. For I = 0 To Svega
  13. DoCmd.Close acForm, Ime(I)
  14. Next I
  15.  
  16. Svega = Reports.Count - 1
  17. ReDim Ime(Svega) As String
  18. For I = 0 To Svega
  19. Ime(I) = Reports(I).Name
  20. Next I
  21. For I = 0 To Svega
  22. DoCmd.Close acReport, Ime(I)
  23. Next I
  24. End Function
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.