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

質問

ａｃｃｅｓｓです。
新規にフォームを立ち上げて
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 · ベストアンサー

> なぜ、
> 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/0c432d01031029b3a4de80e38a7d8b50
　1)リボン左端の『ファイル』タブを選択
　2)下から2番目の『オプション』を選択
　3)『Access のオプション』ダイアログが開くので、左端の領域から『カレント データベース』を選択
　4)『アプリケーション オプション』の領域の中ほどに『ドキュメント ウィンドウ オプション』の項目が
　　あるので、「ウィンドウを重ねて表示する(O)」のオプションボタンを選択
　5)『OK』ボタンをクリックして上記ダイアログを閉じる

・・・以上です。

お礼

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