Funktion AlleFormulareSchliessen()

Function AlleFormulareSchliessen()

'----------------------------------------------------------
' Funktion zum Schließen aller geöffneten Formulare. Steht
' "SetWarnings=False" werden alle Formulare gespeichert
' und geschlossen, steht "SetWarnings=True" wird vor dem
' Speichern gefragt.
'----------------------------------------------------------

Dim f As Form
Dim n As Integer
Dim i As Integer

    i = 0
    While Forms.Count > 0
        i = i + 1
        Set f = Forms(n)
        DoCmd.Close acForm, f.Name
    Wend
    If i = 1 Then
        MsgBox "Es wurde ein Formular geschlossen!", 64
    Else
        MsgBox "Es wurden " & i & " Formulare geschlossen!", 64
    End If

End Function