Predmet:Zatvaranje svih formi i reporta
Imam ovu funkciju za zatvaranje svih aktivnih formi,kako staviti još i za reporte.
PreuzmiIzvorni kôd (Text):Public Function Zatvori()
Dim i As Integer
Dim Svega As Integer
'Saznaj broj otvorenih formi
Svega = Forms.Count
'Dimenzioniši niz koji e sadržati nazive formi
ReDim IME(Svega) As String
'Popuni niz nazivima formi
For i = 0 To Svega - 1
IME(i) = Forms(i).Name
Next i
'Zatvori sve otvorene forme osim trenutno aktivne
For i = 1 To Svega - 1
DoCmd.Close acForm, IME(i)
Next i
'Zatvori i trenutno aktivnu formu
'DoCmd.Close acForm, Ime(0)
End Function
Miro