Office: (Office 2010) Prüfen, ob Formular geöffnet im Ausdrucks-Generator

Hallo,

im Ausdrucks-Generator soll in einer Formel zunächst geprüft werden, ob ein gewisses Formular geöffnet ist. Doch welchen Ausdruckswert soll ich nehmen? IsOpen, IstOffen, IstGeöffnet, etc. wird nicht angeboten.

:)

 

siehe FAQ 4.19 - Link in meiner Signatur

 

Hallo
evtl. hilft Dir das
aus meiner Doc s. fusszeile unten rechts
Seite 132
6.28 Ermittelung des Formularstatus

 

If IsLoaded("DeinFormular") Then
MsgBox "Das Formular ist offen!"
Else
MsgBox "Das Formular ist geschlossen!
End If

 

Hallo Elmar,

der Ausdruck "CurrentProject.AllForms("MeinFormular").IsLoaded" funktioniert. Das ist die gute Nachricht.
Doch jetzt habe ich ein anderes Problem. Das habe ich versucht den ganzen Tag zu lösen, aber es klappt überhaupt nicht.
Aber zunächst der Reihe nach, ich fange mal zunächst ganz einfach an:
Folgender einfacher Test-Code im Ausdrucks-Generator eines UFOs, das in 2 HAFOs eingebaut ist, funktioniert noch: Code:

Wenn also das HAFO frm_KunAnf geöffnet ist, wird in einem Textfeld des UFOs ein "A" angezeigt.
Wenn das HAFO frm_LieAnf geöffnet ist, wird in diesem Textfeld ein "B" angezeigt.
Wie gesagt, bei diesem Test funktioniert noch alles.

Ersetze ich jedoch das "A" durch: Code:

 

Hallo,

ist an folgender Formel vom Aufbau her irgendetwas falsch? Code:

Sie funktioniert. Je nachdem, welches Formular ich öffne, wird mir ein "A" oder ein "B" angezeigt.

Gibt es eine Alternative?

 

Hallo!
Was Du hier entworfen hast ist ein unlesbares Monster.
Wahrscheinlich denkt sich Access das auch.

Versuche dieses Monster in einem allg. VBA-Modul als Public Function in die einzelnen Bestandteile aufzubröseln,
dann siehst Du was geht und was nicht. Diese Funktion kann dann auch anstatt der Wenn-Funktion im Form verwenden werden.

Wolfgang

 

Hallo Wolfgang,

zunächst vielen Dank für Deine Antwort.

Ich muss diese Formel in den Ausdrucks-Generator setzen, da es sich um ein UFO handelt.

Ich frage mich bei dieser "Monster-Formel", warum beim Einsetzen der großen Blöcke anstelle von "A" und "B" ein #Name? angezeigt wird. Und das, obwohl jeder Block für sich alleine in Bezug zum entsprechenden HFO funktioniert.

Nochmal zusammengefasst. Diese Formel funktioniert: Code:

Jetzt ersetze ich "A" und "B" durch die beiden Blöcke (ich habe hier zwecks der Übersichtlichkeit bewusst Abstände eingefügt):
Code:

 

Hallo Alexander,
ich stimme Wolfgang zu. Deine "Blöcke" sind Monster, die in Public-Funktionen eines allgemeinen Modul besser aufgehoben sind. Im Ausdrucksgenerator ersetzt dann der Funktionsname die Blöcke.

Doch was anderes:
Mir scheint da ein notwendinges Argument zu fehlen:
Code:

Wenn ich das richtig sehe, ist "A" das TRUE-Argument der ersten Wenn-Funktion. Und die zweite Wenn-Funktion Wenn([CurrentProject].[AllForms]("frm_LieAnf").[IsLoaded];"B") ist das FALSE-Argument der ersten Wenn-Funktion.
"B" ist das TRUE-Argument der zweiten Wenn-Funktion. Doch was ist das FALSE-Argument der zweiten Wenn-Funktion?

Das gleich gilt dann auch für die Variante, wenn Du "A" und "B" durch die Blöcke ersetzt.

 

Hallo Frank,

Wie gesagt, handelt es sich um ein UFO. Wie bewerkstellige ich das mit einem VBA-Code, ohne dass mir in allen Feldern des UFOs das gleiche angezeigt wird?

Funktioniert ohne Probleme, siehe unteren Anhang als Beweis.

 

Moin Alexander.

Es liegt imho daran, dass in solchen Zuweisungen auf Me. und entsprechend auch auf .Parent nicht zugegriffen werden kann sondern nur auf voll durchqualifizierte Bezeichnungen, an deren Anfang ein 'Forms' steht.

Verweise auf Me. und .Parent klappen nur in VBA und auch da nur in den entsprechenden Klassenmodulen der betreffenden Objekte.

 

Hallo Hans-Christian,

dem muss ich widersprechen, sonst hätte meine alte Formel trotz "Parent" nicht funktionieren dürfen: Code: