[ACCESS]フォームが開いているかどうか確認する

自分用メモ

SysCmd()関数を使用して、オブジェクトの状態を把握します。
指定したフォームが開いていない場合は0、それ以外の場合は、それぞれの値を返します。

If SysCmd(acSysCmdGetObjectState, acForm, "フォーム名") <> 0 then
MsgBox "フォームは開いています。"
Else
MsgBox "フォームは開いていません。"
End If

0: 開いていないか、存在しない
1: 開いている
5: 新しいフォーム
7: 編集後、保存されていない

呼び出し元のフォームによって動作を変えたい場合などに便利。

以上、ご参照ください。

Accessのデータベースのツボとコツがゼッタイにわかる本―最初からそう教えてくれればいいのに!Access2007/2003対応

• 作者: 立山 秀利
• 出版社/メーカー: 秀和システム
• 発売日: 2008/11
• メディア: 単行本