Public Function GetFormPath(frmForm As Form) As String
'returns form form path like "frm_Main>frm_SubFormControl>frm_SubSubFormControl"

Dim strRes
Dim frm As Form

Set frm = frmForm

Do
    If IsFormStandalone(frm) Then
        strRes = frm.Name & IIf(strRes = "", "", ">" & strRes)
        Exit Do
    Else
        strRes = frm.Parent.ActiveControl.Name & IIf(strRes = "", "", ">" & strRes)
        Set frm = frm.Parent
    End If
Loop While True

GetFormPath = strRes
End Function

Public Function GetFormByPath(strFormPath As String) As Form
'returns form variable of last subform in path by form path like "frm_Main>frm_SubFormControl>frm_SubSubFormControl"
Dim astrFrm() As String
Dim i As Long
Dim frm As Form

astrFrm = Split(strFormPath, ">")

If UBound(astrFrm) < 0 Then
    GoTo ExitHere
End If
Set frm = Forms(astrFrm(0))

For i = 1 To UBound(astrFrm)
    Set frm = frm.Controls(astrFrm(i)).Form
Next

Set GetFormByPath = frm

End Function


Public Function IsFormStandalone(frm As Form) As Boolean
    Dim frmParent As Form
    
    IsFormStandalone = False
    
    On Error Resume Next
    Set frmParent = frm.Parent
    If Err.Number = 2452 Then
        On Error GoTo ErrorHandler
        Err.Clear
        IsFormStandalone = True
    ElseIf Err.Number <> 0 Then
        GoTo ErrorHandler
    End If

End Function