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?
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