ค้นของเก่า ทั้งในบอร์ดใหม่นี้ และ/หรือในบอร์ดเก่าของ อ.สุภาพก็ได้
ลองใช้คำเหล่านี้ไปค้นดูครับ
Exist
Isload

แบนนี้ครับ
ท่อนบน check form is open
ท่านล่าง check report is open


Option Compare Database
Option Explicit

'******************** Code Start ************************
Function fIsLoaded(ByVal strFormName As String) As Integer
'Returns a 0 if form is not open or a -1 if Open
    If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> 0 Then
        If Forms(strFormName).CurrentView <> 0 Then
            fIsLoaded = True
        End If
    End If
End Function
'******************** Code End ************************

Function fnIsReportLoaded(ByVal strReportName As String) As Integer
    If SysCmd(acSysCmdGetObjectState, acReport, strReportName) <> 0 Then
        If Forms(strReportName).CurrentView <> 0 Then
            fnIsReportLoaded = True
        End If
    End If
End Function

CurrentProject.AllForms("ชื่อฟอร์ม").IsLoaded ให้่ค่า True เมื่อฟอร์มนั้นเปิดอยู่
CurrentProject.AllReports("ชื่อรายงาน").IsLoaded ให้่ค่า True เมื่อรายงานนั้นเปิดอยู่

ขอบคุณมากคับ