Public Function Zatvori()
Dim I As Integer
Dim Imena As String
Dim Svega As Integer
 
 
Svega = Forms.Count - 1
if svega<0 goto Izvjestaj
ReDim Ime(Svega) As String
Forma:
For I = 0 To Svega
Ime(I) = Forms(I).Name
Next I
For I = 0 To Svega
DoCmd.Close acForm, Ime(I)
Next I
Izvjestaj: 
Svega = Reports.Count - 1
if svega<0 goto Kraj:
ReDim Ime(Svega) As String
For I = 0 To Svega
Ime(I) = Reports(I).Name
Next I
For I = 0 To Svega
DoCmd.Close acReport, Ime(I)
Next I
Kraj:
exit function
End Function