Форумы HiProg.com - MS ACCESS, VBA, VB

ник: АлексейЕ
Из хелпа

The following example prints the name of each open AccessObject object in the AllForms collection. Sub AllForms()     Dim obj As AccessObject, dbs As Object     Set dbs = Application.CurrentProject     ' Search for open AccessObject objects in AllForms collection.     For Each obj In dbs.AllForms         If obj.IsLoaded = True Then             ' Print name of obj.             Debug.Print obj.Name         End If     Next obj End Sub