Public Function Zatvori()
Dim i As Integer
Dim Svega As Integer

'Saznaj broj otvorenih formi
Svega = Forms.Count

'Dimenzioniši niz koji e sadržati nazive formi
ReDim IME(Svega) As String
    
'Popuni niz nazivima formi
For i = 0 To Svega - 1
    IME(i) = Forms(i).Name
Next i

'Zatvori sve otvorene forme osim trenutno aktivne
For i = 1 To Svega - 1
    DoCmd.Close acForm, IME(i)
Next i

'Zatvori i trenutno aktivnu formu
'DoCmd.Close acForm, Ime(0)
End Function