特定のフォームが開いているのか、閉じているのか、あるいは編集されているのかどうかなど、フォームの状態を知るには「SysCmd」関数を使います。次の例では"フォーム1"の状態を調べてメッセージ表示します。 Dim varRet As Variant 'フォーム "フォーム1" の状態を取得します。 varRet = SysCmd(acSysCmdGetObjectState, acForm, "フォーム1") '「SysCmd」が返す値から"フォーム1" の状態を表示します。 Select Case varRet Case 0 MsgBox "開いていないか、存在しません" Case 1 MsgBox "開いています" Case 5 MsgBox "新しいフォームです" Case 7 MsgBox "編集されましたが、まだ保存されていません" End Select ヘルプなどを見ると、「Sy