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 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 S