acCmdAppMaximizeができてない

質問

アクセスのフォームのイベントで

Private Sub Form_Load()
DoCmd.RunCommand acCmdAppMaximize 'アプリケーションのサイズを最大化する
End Sub

としてるのに、実際フォームを開いても、フォームが最大化されません。

Private Sub Form_Open(Cancel As Integer)
DoCmd.RunCommand acCmdAppMaximize 'アプリケーションのサイズを最大化する
End Sub

にしてもダメです。

なんででしょうか？ご回答よろしくお願いします。

回答No.1

m3_maki · ベストアンサー

フォームを最大化するなら

　　DoCmd.Maximize

ですね。

> DoCmd.RunCommand acCmdAppMaximize 'アプリケーションのサイズを最大化する

これは文字通り、アプリケーションのウィンドウ
（Access を単独で開いた時に表示される一番外側のウィンドウ）
を最大化する命令です。

お礼

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

回答No.2

tsubuyuki

> Private Sub Form_Load()
> DoCmd.RunCommand acCmdAppMaximize 'アプリケーションのサイズを最大化する
> End Sub
>としてるのに、実際フォームを開いても、フォームが最大化されません。

「最大化したい」のは、アクセス自体でしょうか？フォームでしょうか？

acCmdAppMaximizeは、アクセスというアプリケーションをを最大化する命令です。
すでに最大化されているときには何も起きません。

フォームを最大化したいなら、

Private Sub Form_Load()
　　DoCmd.Maximize
End Sub

ですね。

もちろん、

Private Sub Form_Load()
　　DoCmd.RunCommand acCmdAppMaximize '念のためアプリケーションのサイズを最大化して
　　DoCmd.Maximize　　　　　　　　　　'フォームも最大化
End Sub

ともできます。

お礼

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