【Access VBA】フォームが開いているか否かの判断

質問

環境：WindowsXP / Access2003

[フォーム_A]というフォームがあります。

この[フォーム_A]が開いているか閉じているかの判断をVBAで行いたいのですが、どのようにコーディングすればよろしいでしょうか？

よろしくお願いします。

回答No.1

kurodai2 · ベストアンサー

If SysCmd(acSysCmdGetObjectState, acForm, "フォーム_A") = 0 Then
MsgBox ("フォーム_A　閉じている")
Else
MsgBox ("フォーム_A　開いている")
End If

で把握できます。

お礼

早速のご回答、ありがとうございました。

バッチリできました！
ホント、感謝です。

回答No.2

noname#140971

[イミディエイト]
? FormISLoaded("フォーム_A")
True

Public Function FormIsLoaded(ByVal frmName As String) As Boolean
On Error Resume Next
　　FormIsLoaded = CurrentProject.AllForms(frmName).IsLoaded
End Function

でも。

お礼

早速のご回答、ありがとうございます。

私にはちょっと高度なコーディングに感じますが、
スキルアップのためにゆっくり分析させていただきます。