Folgender Quellcode prüft, ob ein Formular geöffnet ist und es sich in der Datenblattansicht oder Formularansicht befindet.
Code
Public Function FormIstOffen(strFormularname As String) As Boolean
'***
'*** Prüfen, ob sich ein Formular in der Datenblatt- oder Formularansicht befindet
'***
FormIstOffen = False
If SysCmd(acSysCmdGetObjectState, acForm, strFormularname) <> 0 Then
If Forms(strFormularname).CurrentView <> 0 Then
FormIstOffen = True
End If
End If
End Function
Alles anzeigen
Prüfroutine ob die Funktion funktioniert
Code
Public Sub TestProzedure()
If FormIstOffen("Name des Formulars") = True Then MsgBox "Formular geöffnet"
End Sub