ник: АлексейЕ
Вариант от Karfaqen (слегка мною переработанный)
On Error Resume Next
Dim v
For Each v In Me.parent.Controls
If v.ControlType = acSubform Then If v.Form Is Me Then Debug.Print "hWnd sub - " & v.Form.hWnd; Tab; "hWnd form - " & Me.hWnd; Tab; v.Tag; Tab; v.Name
Next
|