Office: (Office 2010) Prüfen welches Unterformular Focus hat

Hi,
in einem Formular habe ich zwei Unterformulare (ufrm1 und ufrm2).
Ich würde jetzt gerne prüfen ob und welches Unterformular gerade den Focus hat und dementsprechend eine Aktion ausführen.
z.B.
If ufrm1 oder ufrm2 Focus Then
…MsgBox „bitte erst Zeile markieren“
If ufrm1 = Focus Then
…Aktion 1 durchführen
If ufrm1 = Focus Then
… Aktion 2 durchführen

Wie kann man sowas umsetzen?

:)

 

Sinngemäß kannst Du so vorgehen: Code:

 

Hi Nouba,
ich es im Formular in eine Schaltfläche übertragen:
Code:

Ich erhalte den Hinweis: Fehler beim Kompilieren, erwartet Anweisungsende!
Es wird die Zeile:
Code:

rot markiert.

 

Code:

Vergegenwärtige Dich in der Hilfe mit der korrekten Syntax.

 

Hallo,
Macht es überhaupt Sinn, den Namen des 2. UF noch einmal mit ElseIf abzufragen,
wo es doch eh nur 2 UFo sind?
Und bei mehr als zwei, würde man da nicht auch eher zu einem weiteren Select
Case greifen bzw. es gleich verwenden wegen leichterem Ausbau?
Danke für Aufklärung.
gruss ekkehard

 

Muss man nicht zuerst ermitteln welches "ufrm..." den Focus hat und dann mit diesem Wert entscheiden welcher Fall vorliegt um dann die entsprechende Aktion durchzuführen? Ehrlich gesagt weiß im Moment noch nicht wie man das aktive ufrm ermittelt?

 

In einem Formular hat maximal ein (1) Steuerelement (ein Unterformular ist auch nur ein Steuerelement, das i.d.R. ein Formular beherbergt) den Fokus, welches durch Me.ActiveControl ermittelt werden kann. Erst durch die Prüfung der Eigenschaft ControlType lässt sich feststellen, ob es sich dabei um ein Unterformularsteuerelement handelt. Die Eigenschaft Name kann zur Unterscheidung der Unterformularsteuerelemente herangezogen werden.

Mit anderen Worten: entweder ist ein Unterformulasteuerelement das Steuerelement mit dem Fokus oder nicht.

FWIW: mit Me.PreviousControl ließe sich analog z. Bsp. beim Knopfklicken ermitteln, ob das Steuerelement, das vor dem Knopf fokussiert war, ein Unterformularsteuerelement war.

 

Fokus finden find ich blöd. Ehe ich einen Fokus suche, setze ich ihn so, wo ich ihn will. Aber eigentlich geht es um Aktionen. Daher sollte man Prüfungen in einen Ablaufkontext sehen und einsetzen.

Noubas Beispiel betrachtet die Situation vom Hauptformular aus. Da muss man prüfen, wo gerade etwas passiert.

Daneben könnte man auch so herangehen: Ein Formular kennt sich selber und kann sich auch melden.
Wenn man davon ausgehen kann, dass in einem der Unterformulare etwas wie eine VBA-Aktion stattfindet und dass die Unterformulare unterschiedliche SourceObjekte haben:
Code:

 

Hi Nouba,
ich habe entsprechend dem Hinweis von Eberhard den Code nochmal überprüft. Ergebnis:
Code:

Es kommt zu keiner Fehlermeldung mehr, aber es wird immer "kein Unterformular hat den Fokus!" angezeigt, egal welches Formular ich vor dem Anklicken der Schaltfläche markiert habe.

Eberhard mit
Code:

wird immer die Bezeichnung des Hauptformulars angezeigt.

 

Wenn Du eine Schaltfläche anklickst, hat diese selbstverständlich den Fokus - in ahnender Voraussicht habe ich für diesen Fall in #7 einen Hinweis gegeben.

 

Sich SELBST melden kann ein Formular vermutlich nur, wenn es aktiv ist und der angebotene Code dort enthalten ist und ausgeführt wird.
Die "Überprüfung" zeigt, dass es mit dem Hauptformular schon mal klappt.
Wie gesagt, nicht nur Code kopieren, sondern zuerst über Abläufe nachdenken.

 

Statt dem Me.ActiveControl habe ich Me.PreviousControl eingesetzt, aber erhalte ich den Hinweis: Methode oder Datenbankobjekt nicht gefunden.

 

Fehler meinerseits - Screen.PreviousCountrol muss verwendet werden.

 

Diese Funktion steht leider auch nicht zur Auswahl.

 

Nur zur Feststellung des Namens: MsgBox Screen.PreviousControl.Name & " hatte den Fokus"