#160
Accessのフォームでは、Visual Basicのフォームのように、最大化や最小化など、フォームを開いた際の初期状態のサイズを設定するプロパティはありません。
一方、「Docmd.OpenForm」というメソッドを使ってフォームを開く場合にも、"acIcon"という定数を使って最小化の状態で開くことはできるのに、最大化で開くための引数や定数はありません。
そこで、フォームを最大化して開くようにするには、そのフォームのモジュールから、自分自身を最大化するようにします。それには、フォームの"Load/読み込み時"イベントプロシージャを次のようにします。
Private Sub Form_Load()
Echo False 'なくてもよい
DoCmd.Maximize 'フォームを最大化
Echo True 'なくてもよい
End Sub
Echo False 'なくてもよい
DoCmd.Maximize 'フォームを最大化
Echo True 'なくてもよい
End Sub
ここでは、「DoCmd.Maximize」の行だけが、自分自身のフォームを最大化するのに必要な命令です。「Echo」を使った２つの行はなくても最大化の動作には影響しません。しかし、これがないと、通常の大きさでいったん表示されたあと、最大化されるという動きが見えて、多少見苦しいかもしれません。そこで、「Echo False」で、通常サイズから最大化されるまでの画面の描画を止めることによって、スマートな動作になるようにしています。
