Prüfen ob ein Formular oder Bericht geöffnet ist

Funktion für ein Formular:

Function IsLoaded(strFormname As String) As Integer
  IsLoaded = SysCmd(SYSCMD_GETOBJECTSTATE, A_FORM, strFormname)
End Function

Funktion für einen Bericht:

Function IsLoadedReport(strReportname As String) As Integer
  IsLoadedReport = SysCmd(SYSCMD_GETOBJECTSTATE, A_REPORT, strReportname)
End Function

Info:

Der Zugriff auf

CurrentProject.AllForms("Testformular").IsLoaded

ist um den Faktor 4 langsamer.