Microsoft Access 掲示板

Microsoft Access 掲示板

ディスプレイサイズに合わせてサブ画面を調整する方法

3 コメント
views
4 フォロー

よろしくお願いします。

環境はノートPCをディスプレイに繋げ、拡張で対応しています
メイン画面から詳細ボタンを押してサブ画面を開くのですが、
ディスプレイに合わせて縦幅を調節したいのですが、わからず困っています
ディスプレイは全て収まるのですが、ノートのモニタでは見切れてしまうのです

Docmd.openform 詳細,,,,, acwindownormal

解像度でいけるかと思ったのですが、取得できるのは同じ値でダメでした
どうか、アドバイスいただけないでしょうか

ヒロウ
作成: 2022/05/31 (火) 11:33:19
通報 ...
1
hatena 2022/05/31 (火) 12:21:38

そのサブ画面フォームは「ポップアップ」が「はい」になっている、あるいはダイアログモードで開いているということでしょうか。

で、そのフォームの高さをディスプレイの高さに合わせたいということがご希望でしょうか。
2
hatena 2022/05/31 (火) 12:49:36

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

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
3
ヒロウ 2022/05/31 (火) 13:36:10 08f69@ba6a5

ありがとうございます。ありがとうございます。ありがとうございます。
上記に手を加えることで形になりました
最大化させて長さを取ればよかったのですね、盲点でした