For I = 0 To Svega
    If Ime(I) <> "frmIzlaz" Then
    DoCmd.Close acForm, Ime(I)
    End If
Next I
Izvjestaj: