เช็คว่าฟอร์มเปิดอยู่หรือปิดอยู่

คำถาม: ตรวจสอบว่าฟอร์มเปิดอยู่หรือไม่ (Find out if a form is open)
(How do I find out from code if a form is open or not?)
คำตอบ : ตามโค้ดที่ให้มาด้านล่างนะครับ

Private Sub Command1_Click()
'เช็คว่าฟอร์มชื่อ "form1" เปิดอยู่หรือไม่
If CurrentProject.AllForms("form1").IsLoaded = True Then
'ถ้าเปิดอยู่ให้แจ้งเป็นข้อความ "Form is loaded"
MsgBox "Form is loaded", vbInformation, "Inform.."

Else
'ถ้าเช็คแล้วฟอร์มไม่เปิดอยู่ให้แจ้งเป็นข้อความ "Form is not loaded"
MsgBox "Form is not loaded", vbInformation, "Inform.."

End If
End Sub