フォームのサイズが指定した値にならない

ａｃｃｅｓｓです。
新規にフォームを立ち上げて
Private Sub Form_Open(Cancel As Integer)
DoCmd.MoveSize , , 10000, 10000

Debug.Print Me.InsideHeight
Debug.Print Me.InsideWidth

End Sub
としました。

そうすると戻り値がそれぞれ
7365
17025
なのですが、
なぜ、
DoCmd.MoveSize , , 10000, 10000
で、10000を設定してるのに、
その通りにならないのでしょうか？

No.1 ベストアンサー 回答者： DexMachina 回答日時： 2012/12/16 13:00

> なぜ、

> DoCmd.MoveSize , , 10000, 10000
> で、10000を設定してるのに、
> その通りにならないのでしょうか？

Access2007以降で、『タブ付きドキュメント』として表示する設定(→これが既定)の場合は、
常に最大化された(ような)状態での表示しかできません。
このため、サイズ変更を指定しても無効化されます。
(DoCmd.Minimizeなども、DoCmd.MoveSizeと同様に無効になっています)

フォーム毎にサイズ指定を行う必要がある場合は、
　a)そのフォームをポップアップ表示にするか
　　(フォームの『ポップアップ』プロパティを「はい」にするか、フォームを開くときにダイアログモードを
　　　指定する)
　b)Access2003以前のように、ウィンドウを重ねて表示する設定に変更する
の、どちらかを選択してください。


なお、「b」の設定の変更方法は以下の通りです：

<Access2007の場合>
　1)画面左上の『Office』ボタンをクリック
　2)ドロップダウンの最下方にある『 Access のオプション(I)』ボタンをクリック
　3)『Access のオプション』ダイアログが開くので、左端の領域から『カレント データベース』を選択
　4)『アプリケーション オプション』の領域の中ほどに『ドキュメント ウィンドウ オプション』の項目が
　　あるので、「ウィンドウを重ねて表示する(O)」のオプションボタンを選択
　5)『OK』ボタンをクリックして上記ダイアログを閉じる

<Access2010の場合>
　※手持ちにないので、以下のサイトを参考にさせていただきました：
　　http://blog.goo.ne.jp/office_y/e/0c432d01031029b …
　1)リボン左端の『ファイル』タブを選択
　2)下から2番目の『オプション』を選択
　3)『Access のオプション』ダイアログが開くので、左端の領域から『カレント データベース』を選択
　4)『アプリケーション オプション』の領域の中ほどに『ドキュメント ウィンドウ オプション』の項目が
　　あるので、「ウィンドウを重ねて表示する(O)」のオプションボタンを選択
　5)『OK』ボタンをクリックして上記ダイアログを閉じる


・・・以上です。

この回答へのお礼

ご回答ありがとうございます。

お礼日時：2012/12/22 00:59