ник: SRG
tdf.attributes В следующем примере проверяется значение свойства Attributes каждой таблицы текущей базы данных, а также отображаются имена системных и скрытых таблиц ядра базы данных Microsoft Jet.
Следует отметить, что оператор And выполняет поразрядное сравнение для определения установленных атрибутов.
Sub CheckAttributes()
Dim dbs As Database, tdf As TableDef
Возвращает ссылку на текущую базу данных.
Set dbs = CurrentDb
For Each tdf In dbs.TableDefs
Сравнивает значение свойства с заданными константами.
If (tdf.Attributes And dbSystemObject) Or _
(tdf.Attributes And dbHiddenObject) Then
Debug.Print tdf.Name
End If
Next tdf
Set dbs = Nothing
End Sub