'/**
' * Überprüft ob ein bestimmtes Formular geöffnet (geladen) ist
' * @param  String      Name des Formulares
' * @return Boolean
' */
Public Function formIsLoaded(ByVal strFormName As String) As Boolean
	formIsLoaded = False
	If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> 0 Then
		If Forms(strFormName).CurrentView <> 0 Then
			formIsLoaded = True
		End If
	End If
End Function