アクセスフォームのサイズの調整について

一つは全画面表示（Maximize）で開きもう一つは普通の表示（Restore）で開くには？

フォーム１とフォーム２があります。画像をご覧ください。

フォーム１は
Private Sub Form_Load()
DoCmd.Maximize
End Sub
で、
フォーム２は
Private Sub Form_Load()
DoCmd.Restore
End Sub
としてます。

フォーム１にコマンドボタンを設置して、
Private Sub フォーム2を開く_Click()
DoCmd.OpenForm "フォーム2"
End Sub
として、フォーム２を開くのですが、
フォーム2が開くとフォーム1まで、元の大きさに戻ってしまいます。

行いたいことは、
フォーム１は全画面表示、フォーム2は、ノーマルな表示（全画面でも最小化でもない）
にしたいのですが、不可能なのでしょうか？

No.4 ベストアンサー 回答者： piroin654 回答日時： 2012/10/28 03:20

No2です。

最小化ボタンも面倒だな、ということであれば、
フォーム1にボタンを二つ追加して、それぞれ


Private Sub コマンド1_Click()
'フォーム2が起動されているか確認して
If IsLoaded("フォーム2") = True Then
DoCmd.SelectObject acForm, "フォーム2"
DoCmd.Minimize
End If
End Sub

Private Sub コマンド2_Click()
'フォーム2が起動されているか確認して
If IsLoaded("フォーム2") = True Then
DoCmd.SelectObject acForm, "フォーム2"
DoCmd.Restore
End If
End Sub



のようにします。それから標準モジュールに以下を
貼り付け、保存します。以下はOfficeのSaplesの中にある
NorthWindowというAccessのサンプルの中にあるコードです。
それを利用します。


Function IsLoaded(ByVal strFormName As String) As Boolean
' 指定したフォームがフォーム ビューまたはデータシート ビューで開かれている場合
'True を返します。

Const conObjStateClosed = 0
Const conDesignView = 0

If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then
If Forms(strFormName).CurrentView <> conDesignView Then
IsLoaded = True
End If
End If

End Function



以上です。

この回答へのお礼

ありがとうございます。

お礼日時：2012/11/06 20:24

No.3 回答者： piroin654 回答日時： 2012/10/28 02:35

No2です。

ポップアップを設定すると当然ながら
フォーム１をアクティブにしても後ろには隠れませんから、
フォーム１での作業に邪魔になるならばそのときには
最小化ボタンをプチッとすればいいのでは、と思いますが。

この回答へのお礼

ありがとうございます。

お礼日時：2012/11/06 20:24

No.2 回答者： piroin654 回答日時： 2012/10/28 02:28

フォーム２のプロパティで、「ポップアップ」を

「はい」にしてみてください。そのとき

Private Sub Form_Load()
DoCmd.Restore
End Sub

は必要ないとは思いますが、一応念のために確認してみてください。

この回答へのお礼

ありがとうございます。

お礼日時：2012/11/06 20:24

No.1 回答者： nag0720 回答日時： 2012/10/28 01:56

無理ですね。

DoCmd.Maximize、DoCmd.Restoreはフォームに対するコマンドではなく、アプリケーションに対するコマンドですから。

この回答へのお礼

ありがとうございます。

お礼日時：2012/11/06 20:24