Microsoft Access 掲示板

いちおう上記の仕様だとしたら、下記でどうでしょう。

Private Sub Form_Open(Cancel As Integer)
    Dim T As Long, H As Long, W As Long, L As Long

    On Error GoTo Finally
    DoCmd.Echo False '画面描画抑制
    
    W = Me.WindowWidth  'オリジナルのウィンドウ幅
    L = Me.WindowLeft   'オリジナルのウィンドウ左位置
    
    DoCmd.Maximize      'ウィンドウ最大化

    T = Me.WindowTop    '最大化時のウィンドウ上位置
    H = Me.WindowHeight '最大化時のウィンドウ

    DoCmd.Restore       'ウィンドウサイズを戻す

    Me.Move L, T, W, H  'ウィンドウ位置とサイズを設定

Finally:
    DoCmd.Echo True

End Sub