Predmet:Re: Zatvaranje svih formi i reporta
PreuzmiIzvorni kôd (Visual Basic):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
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.