閉じる

フォームが開かれているかチェックする　（ CurrentProject。AllForms("フォーム名").IsLoaded ）




　　If CurrentProject.AllForms("フォーム名").Isloaded = True then

　　　　MsgBox "フォームはひらいていいます。"

　　Else

　　　　msgBox "フォームがとじています。"

　　EndIF