PDA

Vollständige Version anzeigen : Feststellen ob ein Formular geöffnet ist


Toennissen
10.07.2001, 11:14
Gibt es eine Möglichkeit, festzustellen, ob ein Formular offen ist oder nicht?

Judith
10.07.2001, 11:17
Hallo!

Schau dir mal www.donkarl.com (http://www.donkarl.com) FAQ 4.19 an.

Dicker
10.07.2001, 11:19
Hallo

Versuch es mal damit.

Function gfIsLoaded(ByVal strForm As String) As Boolean
'-----------------------------------------------------------------------------------
' Zweck : Prüft, ob ein Formular oder ein Report geöffnet ist
' Rückgabewert : true = geöffnet, false = nicht geöffnet
'-----------------------------------------------------------------------------------

On Error GoTo gfIsLoaded_Error

Dim ysnLoaded As Boolean
Dim dmy as Vairant

ysnLoaded = True

'Forms
dmy = Forms(strForm).Name
GoTo gfIsLoaded_Done

'Reports
gFIsloaded_Reports:
dmy = Reports(strForm).Name

gfIsLoaded_Done:
gfIsLoaded = ysnLoaded
Exit Function

gfIsLoaded_Error:
If (err = 2450) Then 'Unzulässige Bezugnahme auf Formular XXX
Resume gFIsloaded_Reports 'Prüfe Reports
ElseIf (err = 2451) Then 'Unzulässige Bezugnahme auf Report XXX
ysnLoaded = False
Resume gfIsLoaded_Done 'weder geöffnetes Formular noch Report gefunden -> Ende
End If
ysnLoaded = False
Resume gfIsLoaded_Done

End Function

Hab ich in der Suche gefunden und es hat bei mir funktioniert.