Predmet:Re: Zatvaranje svih formi i reporta
Dodaj samo ovo:
PreuzmiIzvorni kôd (Visual Basic):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 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
Kraj:
exit function
End Function
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.