Geteiltes Formular positionieren

[Bopi]

Ich positioniere per VBA meine Formulare (move). Dies funktioniert bei allen Formularen ausser bei geteilten.
Mache ich etwas falsch oder habe ich etwas übersehen oder ist dies tatsächlich nicht möglich?

Code [Auswählen] Erweitern


Dim frmParent As Form
Dim frmChild As Form

          Set frmParent = Forms![frmMenu].Controls("sfrmNavigation").Form
          Set frmChild = Forms("frmTemplate")     'der Name der aktuellen Form
          DoCmd.OpenForm "frmTemplate"            'der Name der akutellen Form
          'die Position des Formulars im Verhältnis zum Hauptformular einstellen
          If frmChild.BorderStyle > 0 Then                'falls mit Rand
                    'Debug.Print frmParent.Width
                    frmChild.Move frmParent.WindowLeft + 850, frmParent.WindowTop - 200
          Else                                                                            'sonst
                    'Debug.Print frmParent.Width
                    frmChild.Move frmParent.WindowLeft + 960, frmParent.WindowTop - 220
          End If
          Set frmParent = Nothing
          Set frmChild = Nothing