ник: SRG
Re: Access необновленный Вы хотите сказать, что этот код у Вас НЕ ВЫПОЛНЯЕТСЯ???:
***************
Sub opertbl()
Dim tdf As TableDef
Dim dbs As Database
Set dbs = CurrentDb
For Each tdf In dbs.TableDefs
If (tdf.Attributes And dbSystemObject) Then
Debug.Print tdf.Name & " - system"
Else
Debug.Print tdf.Name & " - NON-system"
End If
Next tdf
End Sub
***************
RE:системные таблицы можно узнать по началу наименования "MSys":
это нехорошо и неправильно. Есть штатные средства - пользуйтесь ими.
RE:А вот можно ли выявить таблицы ошибок?:
Что за таблицы Вы имеете ввиду?