Wenn ihr euch für eine gute Antwort bedanken möchtet, im entsprechenden Posting einfach den Knopf "sag Danke" drücken!
Me.InsideHeight = .FormHeader.Height + .FormFooter.Height + .Recordset.RecordCount * .txtId.HeightPrivate Sub Form_Load()
Me.InsideHeight = 5000: Me.InsideWidth = 7000
End Sub
kann ich problemlos die Fenstergöße anpassen.Zitat- BorderStyle: SizableUnd bitte keine Docmd.Move ... mehr, so etwas löst man in VBA direkt mit den entsprechenden Form-Eigenschaften, ohne auf Access Aktionen zurückgreifen zu müssen.
- PopUp: yes
- ControlBox: yes
Public Sub fbTst()
DoCmd.OpenForm FormName:="F_IoSltCnf", WindowMode:=acWindowNormal, OpenArgs:=143
End SubPrivate Sub Form_Load()
With Me
Set .Recordset = mdlx_SqlSrv.fcSqlRst(sSql:="EXEC spIoSltCnf @SltId = " & .OpenArgs)
.Modal = True
DoCmd.MoveSize , , , .FormHeader.Height + .FormFooter.Height + .Recordset.RecordCount * .txtId.Height + 1000
End With
End SubZitat von: LehmeMa am März 16, 2026, 12:30:46Doch bei fehlender Verbindung zum BE wird der User mit Fehlermeldungen konfrontiert.Hallo Markus,
DoCmd.MoveSize , , , .FormHeader.Height + .FormFooter.Height + .Recordset.RecordCount * .txtId.Height + 1000Mit dem Offset 1000 fuer 'Sonstiges' bin ich zufrieden.DoCmd.OpenForm FormName:="F_IoSltCnf", WindowMode:=acDialog, OpenArgs:=143Es laesst sich vom Bediener in seiner Groesse nicht aendern.