2 Formulare übereinander anzeigen

[Heiko03]

Hallo zusammen,

ich verzweifle gerade an einem vermutlich simplen Problem: Ich möchte 2 Formulare gleichzeitig anzeigen, so dass das zweite geöffnete Formular am Monitor über dem anderen hin- und herbewegt werden kann.

Zurzeit öffne ich mit

docmd.OpenForm ...
docmd.maximize

das erste Formular

Dann wird ebenfalls mit
docmd.openForm ...

das zweite Formular geöffnet. Obwohl das zweite Formular deutlich kleiner ist als das erste, wird es immer maximiert geöffnet und verdeckt das erste Formular komplett.

Wie erreiche ich, dass das zweite Formular in seiner von mir festgelegten Größe geöffnet wird und es optimaler Weise auch sichtbar bleibt, wenn das hintere Formular angeklickt wird, um in ihm zu scrollen?

Vielen Dank im Voraus!

Gruß
Heiko

[oma]

Hallo Heiko,

das 2. Formular als PopUp-Formular und

Code [Auswählen] Erweitern

Private Sub Form_Open(Cancel As Integer)   

DoCmd.MoveSize 40, 40, 10000, 9000      '---> Right, Down, Width, Height
...
End Sub

Gruß Oma

[Heiko03]

Hallo Oma,

das funktioniert bei mir nicht, so sieht der Code aus:

DoCmd.OpenForm "frm_Homepage_planung"
DoCmd.MoveSize 40, 40, 10206, 11907      '---> Right, Down, Width, Height

Set frm = Forms!frm_Homepage_Planung
frm!ueberschrift = "Ausgewählte KW: " & plan_kw & " / " & plan_jahr
frm!kw = plan_kw
frm!jahr = plan_jahr
...


nach den ... kommen nur noch ein paar Wertzuweisungen an Formularfelder. Das erste Formular ist zu dem Zeitpunkt bereits geöffnet. frm_Homepage_planung ist das zweite Formular und öffnet sich trotz des movesize im Vollbild.   

Hast Du noch eine Idee woran das liegen kann, evtl. an einer Formulareigenschaft. Gesetzt habeich folgende:
autom. zentieren --> nein
größe anpasse --> nein
an bildschirmgröße anpassen --> nein
Rahmenart = Dialog


Gruß
Heiko

[oma]

Hallo Heiko,

du musst auch das Formular-Ereignis: "Beim Öffnen! benutzen!

So wie ich geschrieben habe:

Code [Auswählen] Erweitern

Private Sub Form_Open(Cancel As Integer)   
DoCmd.MoveSize 40, 40, 10000, 9000   'bzw Deine Werte!   

...
End Sub

Gruß Oma

[Heiko03]

.. wer lesen kann, ist eindeutig im Vorteil!

Jetzt läufts, vielen Dank.

Gruß
Heiko