Prikazi cijelu temu 08.06.2011 11:58
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Lokacija:-


Predmet:Zatvaranje svih formi i reporta
Imam ovu funkciju za zatvaranje svih aktivnih formi,kako staviti još i za reporte.
PreuzmiIzvorni kôd (Text):
  1. Public Function Zatvori()
  2. Dim i As Integer
  3. Dim Svega As Integer
  4.  
  5. 'Saznaj broj otvorenih formi
  6. Svega = Forms.Count
  7.  
  8. 'Dimenzioniši niz koji e sadržati nazive formi
  9. ReDim IME(Svega) As String
  10.    
  11. 'Popuni niz nazivima formi
  12. For i = 0 To Svega - 1
  13.     IME(i) = Forms(i).Name
  14. Next i
  15.  
  16. 'Zatvori sve otvorene forme osim trenutno aktivne
  17. For i = 1 To Svega - 1
  18.     DoCmd.Close acForm, IME(i)
  19. Next i
  20.  
  21. 'Zatvori i trenutno aktivnu formu
  22. 'DoCmd.Close acForm, Ime(0)
  23. End Function
Miro