ник: Дядя Федор
On Error Resume Next 'Если форма загружена как подчиненная, то у нее есть основная (Parent)
strarg = Me.Parent.name
FlagSubForm = (Err.Number = 0)
Err.Clear
If FlagSubForm Then
... блаблабла
End if
|
Впрочем, вопрос, кажется вдругом - загрузилась ли форма УЖЕ.