אופיס 365 פונקציה שבודקת האם טופס פתוח גם כטופס משנה

[אפר]

הרבה זמן שחיפשתי פונקציה שבודקת האם טופס פתוח כעת
ותחזיר True גם אם הוא פתוח כטופס משנה
לא מצאתי ברשת פתרון מעשי
היום נפל לי הרעיון

מצורף למעוניינים

Public Function IsLoaded(Search As String, Optional Scan As Object) As Boolean
    Dim i As Object
    Dim First As Boolean
    If Scan Is Nothing Then First = True: Set Scan = Application.Forms
    For Each i In Scan
        If Not First Then
            If i.ControlType = acSubForm Then
                If Search = i(0).Parent.Name Then IsLoaded = True: Exit Function
                IsLoaded = IsLoaded(Search, i(0).Parent)
                If IsLoaded Then Exit Function
            End If
        Else
            If Search = i.Name Then IsLoaded = True: Exit Function
            IsLoaded = IsLoaded(Search, i)
            If IsLoaded Then Exit Function
        End If
    Next
End Function

 

[רושם]

נראה שהפונקציה נותנת אינדיקציה גם לאובייקטים אחרים ולא רק "טופס".
איך בודקים מצב של "דוח"?

 

[אפר]

תנסה לנסח עם reports
מצב הצגה לפני הדפסה כנראה יהיה גם בעייתי

אולי מאוחר יותר אבדוק

נראה שהפונקציה נותנת אינדיקציה גם לאובייקטים אחרים ולא רק "טופס".
איך בודקים מצב של "דוח"

 

[אפר]

נראה שהפונקציה נותנת אינדיקציה גם לאובייקטים אחרים ולא רק "טופס".
איך בודקים מצב של "דוח"?

תנסה לנסח עם reports
מצב הצגה לפני הדפסה כנראה יהיה גם בעייתי

אולי מאוחר יותר אבדוק

Public Function IsLoadedReport(Search As String, Optional Scan As Object) As Boolean
    Dim i As Object
    Dim First As Boolean
    If Scan Is Nothing Then First = True: Set Scan = Application.Reports
    For Each i In Scan
        If Not First Then
            If i.ControlType = acSubform Then
                If Search = i(0).Parent.Name Then IsLoadedReport = True: Exit Function
                IsLoadedReport = IsLoadedReport(Search, i(0).Parent)
                If IsLoadedReport Then Exit Function
            End If
        Else
            If Search = i.Name Then IsLoadedReport = True: Exit Function
            IsLoadedReport = IsLoadedReport(Search, i)
            If IsLoadedReport Then Exit Function
        End If
    Next
End Function

 

[רושם]

אם אני מבין נכון, למרות שמחפשים דוח, "האובייקט משנה" הוא טופס.
מה עם "דוח משנה"?

 

[אפר]

אם אני מבין נכון, למרות שמחפשים דוח, "האובייקט משנה" הוא טופס.
מה עם "דוח משנה"?

נראה לי שזה אותו אובייקט
הבעיה היא שבהצגה לפני הדפסה שה לא עובד

 

[רושם]

תורה רבה!