Public Function roi_IsFormOpen(strName As String) As Boolean
    Dim frm As Form

    For Each frm In Forms
        If frm.Name = strName Then
            roi_IsFormOpen = True
            Exit Function
        End If
    Next
    roi_IsFormOpen = False
End Function

'************************************************************
'
'               Функция  возвращает списка открытых форм
'
'***********************************************************
Private Function roiListForms() As String
    Dim vFormName As String
    Dim vForm As Form
    Dim vControl As Control
    Dim vFormSub As Control
On Error GoTo HandleError
    
    vFormName = ""
    For Each vForm In Forms
        vFormName = vFormName & "Форма — '' " & vForm.Name & " ''" & vbCrLf
        For Each vControl In vForm.Controls
            'Если у формы есть подчиненные
            If vControl.ControlType = acSubform Then
                vFormName = vFormName & "    Контрол — '' " & vControl.Name & " ''" & vbCrLf
                vFormName = vFormName & "                Форма — '' " & vControl.Form.Name & " ''" & vbCrLf
                For Each vFormSub In vControl.Form.Controls
                    'Если у подчиненной есть подчиненные
                    If vFormSub.ControlType = acSubform Then
                        vFormName = vFormName & "                          Контрол — '' " & vFormSub.Name & " ''" & vbCrLf
                        vFormName = vFormName & "                                      Форма — '' " & vFormSub.Form.Name & " ''" & vbCrLf
                    End If
                Next
            End If
        Next
    Next
    
roiListForms = vFormName

ExitProc:
    Exit Function
HandleError:
    MsgBox vbCrLf & Err.Description & _
            vbCrLf & vbCrLf & "  Имя объекта = " & Me.Name & _
            vbCrLf & vbCrLf & "  Имя процедуры = roiListForms", _
            vbCritical, "Ошибка " & Err.Number
    Resume ExitProc
End Function