Office: (Office 2016) Formular im Hintergrund

golfi · 5. Juni 2017

Hallo,
Ich habe meine DB fast fertig.
Jetzt habe ich ein kleines Problem, was eigentlich nur ein "Schönheitsproblem" ist aber so nicht gedacht war.
Ich habe ein Formular, welches sich im maximal Modus öffnet.
Auf diesem Formular befinden sich alle Buttons zum öffnen der anderen Formulare im Popup Modus.

Wenn ein Popup Formular geöffnet ist und ich öffne ein zweites, dann verschwindet das erst geöffneten hinter dem maximierten u.s.w.
Es ist immer nur ein Formular vor dem "maximierten" zu sehen. Alle Anderen liegen darunter.
Es sollen aber alle davor sichtbar sein.
Kann mir da jemand helfen?

Gruß Günther

:)

Steffen0815 · 7. Juni 2017

... gelöscht ...

sonic8 · 7. Januar 2021

von Steffen0815

PopUp bedeutet: Formular steht im Vordergrund und alle anderen Formulare sind deaktiviert/nicht anklickbar/im Hintergrund.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Der erste Teil ("im Vordergrund") ist korrekt, der zweite Teil ("deaktiviert/nicht anklickbar") ist abhängig von der Eigenschaft Modal (oder dem WindowMode acDialog).

CatboyJones · 7. Juni 2017

Und wenn Du bei einer Avocado wissen willst, ob sie reif ist, musst du hinten draufdrücke. *biggrin.gif*

Marsu65 · 7. Juni 2017

Hallo Günther,

bei der Problembeschreibung, gehe ich davon aus, dass auch dein zentrales Form
ein Popupform ist (da das Phänomen sonst nicht auftreten würde).

Hier ist eine Quick and Dirty-Lösung:
Im Kopf des Zentralen Formulars
Code:

Private Declare Function SetForegroundWindow Lib _
"user32" (ByVal hwnd As Long) As Long
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Bei den Aufrufen der neuen Formulare per Button
Code:

Private Sub Befehlxx_Click()
DoCmd.OpenForm "Formularname"
FormForground Forms("Formularname")
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die Prozedur FormForground holt alle Popups in den Vordergrund und
setzt das zuletzt geöffnete nach ganz oben:
Code:

Sub FormForground(ByRef Lastform As Access.Form)
Dim f As Access.Form
Dim res As Long

For Each f In Forms
If Not f.Name = Me.Name And f.PopUp Then
res = SetForegroundWindow(f.hwnd)
End If
Next
res = SetForegroundWindow(Lastform.hwnd)
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

PS/OT:

von CatboyJones

Und wenn Du bei einer Avocado wissen willst, ob sie reif ist, musst du hinten draufdrücke[n].
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Und wenn du zur Fragestellung nichts produktives beitragen kannst,
einfach mal Klappe bzw. Finger still halten! *wink.gif*

golfi · 7. Juni 2017

Hallo Marsu65,

Erstmal vielen Dank für die Antwort.

bei der Problembeschreibung, gehe ich davon aus, dass auch dein zentrales Form
ein Popupform ist (da das Phänomen sonst nicht auftreten würde).
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nein, es sind derer 8 Formulare aber das zentrale ist kein Popup.
Das geht über den ganzen Bildschirm.
Ich werde mir deine Prozeduren mal zu Gemüte führen und dir dann Bescheid geben, ob und wie es geklappt hat.

Gruß Günther

golfi · 7. Juni 2017

Sorry Marsu65,
ich sitz' schon zu lange vor dem Rechner.
Natürlich ist das zentrale Formular auch ein Popup

Ich denke ich brauch mal ne Pause. :-)

golfi · 7. Juni 2017

Hallo Marsu65,

vielen Dank für deinen Tipp. Es funktioniert hervorragend.

Sollte ich mal in den Pott kommen bringe ich dir " e Fläschje Flaschebier" mit

Gruß Günther

Office: (Office 2016) Formular im Hintergrund

Formular im Hintergrund

Formular im Hintergrund

Formular im Hintergrund

Formular im Hintergrund

Formular im Hintergrund - Similar Threads - Formular Hintergrund

Suchfeld in Formular

Formularsteuerelement Textfeld: Selbe Formatierung wie verlinkte Zelle?

Word Steuerelemente/Formular erstellen

Aktuelles Datum und Uhrzeit in Formular

Formular ist ActiveForm aber trotzdem im Hintergrund

VBA Code im Hintergrund ausführen ohne dass das Formular blockiert

VB zu VBA: Farbverlauf als Hintergrund im Formular