Как программно узнать эта таблица: системная, временная, созданная программистом?

Первоначально новая БД в Access содержит системные таблицы, потом программист добавляет свои. А в процессе работы при ошибках Access создает свои таблицы, где описывает эти ошибки. К ним относятся “Ошибки ввода”, Ошибки импорта”, могут быть другие.
В Help Access на странице Attributes Property нашел, что в системных файлах .Attributes=dbSystemObject. В отладчике просмотрел системный файл, его .Attributes=2,
просмотрел там же dbSystemObject, его значение равно несколько тысяч.
Можно конечно таблицы отнести к разным видам анализирую их наименования, но возможны ошибки.
Вопрос, можно ли программно определить к какому виду относится каждая таблица?
Если да, то какой параметр нужно анализировать?


С уважением, patq

Re: Не все так просто в подлунном мире Не все так просто в подлунном мире

Должно быть у Access есть несколько типов системных таблиц и у них разные Attributes, так у таблиц MSysAccessStorage MSysCmbbar TableDef.Attributes=2, у остальных MSys …другие числа. (Числовые данные взяты из Отладчика). Что-то у меня не выявились таблицы по dbSystemObject. В общем, пока не понял
Спасибо за консультацию, буду искать место, где зарыта собака.

С уважением, patq

Re[2]: Не все так просто в подлунном мире Так я тоже пробовал, эффект такой же.
Должно быть мой Access необновленный.

Как вариант системные таблицы можно узнать по началу наименования "MSys".
А вот можно ли выявить таблицы ошибок?

Re: Как программно узнать эта таблица: системная, временная, созданная программистом? Уточнение вопроса как и откуда все вызывается
Поиск системных таблиц Access и временных таблиц Access (таблиц ошибок) производится из программы, написанной на VBA.

1. Системные таблицы Access
С системными более-менее ясно. Ниже приведен код программы, где тремя методами выявляются системные таблицы. Еще ниже приведены результаты их работы.


Public AccObj As Access.Application
Public TestBD As Database тестируемая БД

Sub AboutTable()
Dim i_Ob As Integer
Dim i_End As Integer
Dim i_Soo As String

‘создаем приложение Access
Set AccObj = CreateObject("Access.Application.8")
Set TestBD = CurrentDb
i_End = TestBD.TableDefs.Count
For i_Ob = 0 To i_End - 1
With TestBD.TableDefs(i_Ob)
Сравнивает значение свойства с заданными константами.
If (.Attributes And dbSystemObject) > 0 Then 1-ый метод выявления
i_Soo = .Name
End If
If .Attributes = dbSystemObject Then ‘2-ой метод выявления
i_Soo = .Name
End If
If Mid(.Name, 1, 4) = "MSys" Then 3-ий метод выявления
i_Soo = .Name
End If
End With
Next i_Ob
End Sub

Результаты выявления системных таблиц
Таблица And = "MSys"
MSysAccessObjects + - +
MSysACEs - - +
MSysCmdbars + - +
MSysModules + - +
MSysModules2 + - +
MSysObjects - - +
MSysQueries - - +
MSysRelationships - - +
где "+" - таблица выявлена
"-" - таблица не выявлена

2 Временные таблицы Access
Повторюсь (см. вопрос). Если в процессе работы БД (открытие БД, импорт данных, преобразование данных, …), возникает ошибка, то Access создает свои таблицы, где описывает эти ошибки (обычно это одна строка), с Attributes=0. К таким таблицам относятся “Ошибки ввода”, Ошибки импорта”, (из личного опыта и Help Access). В одной из моих БД он создал их аж 409 с наименованием “Ошибки преобразования409” (взято из реальной БД).
И непонятно, как выявить их

как мне кажется таблицы “Ошибки ввода”, Ошибки импорта” являются не временными, а обычными таблицами, по этому отличить их от других кроме (как по имени) не получится.

Использование системы именования объектов вполне позволяет отсеить все таблицы не созданные программистом.

Что касается методов определения...

Первый способ должен выглядеть так:
If (.Attributes And dbSystemObject) <> 0 then

второй способ есть неверная модификация первого по этому ничего и не нашел
от покажет только таблицы которые объявлены ТОЛЬКО системными без каких либо других атрибутов т.е. скрытую и системную таблицу не найдет