ник: Ю.Ш.
Dim frm as Object
Dim S as string
On Error Resume Next
Set frm = Me.Form.Parent
IF Err then
' Это главная форма
Else
' Это подчиненая форма
On error goto OK
Do
Set frm=frm.Parent
Loop
OK:
S = frm.Name ' имя главной формы
End If
On Error goto 0