- ベストアンサー
アクセスフォームのサイズを調整する方法とは?
- アクセスフォームのサイズを調整する方法について教えてください。
- フォーム1は全画面表示、フォーム2はノーマルな表示にしたいのですが、可能なのでしょうか?
- フォーム1とフォーム2の表示サイズを別々に設定する方法を教えてください。
- みんなの回答 (4)
- 専門家の回答
質問者が選んだベストアンサー
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 以上です。
その他の回答 (3)
- piroin654
- ベストアンサー率75% (692/917)
No2です。ポップアップを設定すると当然ながら フォーム1をアクティブにしても後ろには隠れませんから、 フォーム1での作業に邪魔になるならばそのときには 最小化ボタンをプチッとすればいいのでは、と思いますが。
お礼
ありがとうございます。
- piroin654
- ベストアンサー率75% (692/917)
フォーム2のプロパティで、「ポップアップ」を 「はい」にしてみてください。そのとき Private Sub Form_Load() DoCmd.Restore End Sub は必要ないとは思いますが、一応念のために確認してみてください。
お礼
ありがとうございます。
- nag0720
- ベストアンサー率58% (1093/1860)
無理ですね。 DoCmd.Maximize、DoCmd.Restoreはフォームに対するコマンドではなく、アプリケーションに対するコマンドですから。
お礼
ありがとうございます。
お礼
ありがとうございます。