'/**
' * Schliesst alle geladenen Formulare mit Ausnahmen
' * @param  AcCloseSave     iSave           Access-Type ob die Daten der Formulare gespeichert werden sollten
' * @param  Array<String>   iExceptions     Array mit den Namen der Formulare die nicht geschlossen werden sollen
' * @return void
' */
Public Function closeAllForms(Optional ByVal iSave As AcCloseSave = acSaveNo, Optional ByVal iExceptions As Variant)
	Dim pForm   As Form
	
	For Each pForm In Forms
		If IsArray(iExceptions) Then
			If ArrayIndex(pForm.name, iExceptions) < -1 Then Call DoCmd.Close(acForm, pForm.name, acSavePrompt)
		Else
			Call DoCmd.Close(acForm, pForm.name, acSavePrompt)
		End If
	Next pForm
	
End Function