’フォームが開いているかどうか調べる

If CurrentProject.AllForms("フォーム１").IsLoaded = True Then

〜〜〜〜〜

End If