Public Function Zatvori()
Dim I As Integer
Dim Imena As String
Dim Svega As Integer
 

Svega = Forms.Count - 1
ReDim Ime(Svega) As String
For I = 0 To Svega
Ime(I) = Forms(I).Name
Next I
For I = 0 To Svega
DoCmd.Close acForm, Ime(I)
Next I

Svega = Reports.Count - 1
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
End Function