Wie prüft man, ob ein Formular
geöffnet ist?
Erstellen Sie ein neues Modul und fügen Sie nachfolgenden Code ein:
Function IstGeladen(MeinFormularname As String)
Dim I
IstGeladen = False
For I = 0 To Forms.Count - 1
If Forms(I).FormName = MeinFormularname Then
IstGeladen = True
Exit Function
End If
Next
End Function |
Die Funktion gibt einen Wert vom Typ Boolean zurück und ist entweder True oder False. Zum Aufrufen der Funktion bzw. zum Überprüfen ob das Formular geladen ist, verwenden Sie folgenden Aufruf:
If IstGeladen("frm_Kunden") Then
MsgBox "Das Fomular ist geladen."
Else
MsgBox "Das Fomular ist nicht geladen."
End If
|
Zurück zu Tipps und Tricks
|