• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:アクセスフォームのサイズの調整について)

アクセスフォームのサイズを調整する方法とは?

このQ&Aのポイント
  • アクセスフォームのサイズを調整する方法について教えてください。
  • フォーム1は全画面表示、フォーム2はノーマルな表示にしたいのですが、可能なのでしょうか?
  • フォーム1とフォーム2の表示サイズを別々に設定する方法を教えてください。

質問者が選んだベストアンサー

  • ベストアンサー
  • piroin654
  • ベストアンサー率75% (692/917)
回答No.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 以上です。

ICUWSQHF
質問者

お礼

ありがとうございます。

その他の回答 (3)

  • piroin654
  • ベストアンサー率75% (692/917)
回答No.3

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

ICUWSQHF
質問者

お礼

ありがとうございます。

  • piroin654
  • ベストアンサー率75% (692/917)
回答No.2

フォーム2のプロパティで、「ポップアップ」を 「はい」にしてみてください。そのとき Private Sub Form_Load() DoCmd.Restore End Sub は必要ないとは思いますが、一応念のために確認してみてください。

ICUWSQHF
質問者

お礼

ありがとうございます。

  • nag0720
  • ベストアンサー率58% (1093/1860)
回答No.1

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

ICUWSQHF
質問者

お礼

ありがとうございます。