Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
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
R