フォームやレポートのウィンドウサイズをAccessのMDIウィンドウ内のサイズに合わせる方法

手順

1. 下記のAPIを定義します。

   GetTopWindow
   GetClassName
   GetNextWindow
   GetClientRect
   GetDC
   GetDeviceCaps
   ReleaseDC
   

2. GetTopWindowでAccessの子ウィンドウの中の最上位ウィンドウを取得します。
   引数はAccessのウィンドウハンドル(Application.hWndAccessApp)です。
3. GetClassNameでウィンドウクラス名を取得します。
4. ウィンドウクラス名がMDIClientであればウィンドウハンドルを取得し［No.5］に進みます。
   そうでなければGetNextWindowで次のウィンドウを取得し［No.3］にもどります。
5. ［No.4］で取得したウィンドウハンドルを使用してGetClientRectを呼び出しMDIウィンドウのクライアント領域を取得します。
6. ［No.4］で取得したウィンドウハンドルを使用してGetDCを呼び出しデバイスコンテキストを取得します。
7. ［No.6］で取得したデバイスコンテキストを使用してGetDeviceCapsを呼び出し1論理インチあたりのピクセル数を取得します。
8. ［No.5］で取得したクライアント領域サイズと［No.7］で取得した1論理インチあたりのピクセル数を使用してTWIP値に変換します。
9. Docmd.MoveSizeでウィンドウサイズを変更します。

※AccessのVBAおよびAPIの知識が必要です。