Приветствую!

Set dao_TmpDB = DAO.OpenDatabase(Application.DefaultFilePath & "\" & "check.mdb")'пустая БД

'если в этот момент посмотреть, что есть в коллекции dao_TmpDB.TableDefs, то видно 9 системных таблиц

'*************************************** _
SQL_str = "CREATE TABLE " & SMEX_IDS_TABLE_NAME _
    & "(" _
            & "TKey COUNTER CONSTRAINT Key_Pr_Constr PRIMARY KEY, " _
            & "ID_SU Long NOT NULL" _
    & ");"
    Debug.Print SQL_str
dao_TmpDB.Execute SQL_str
SQL_str = "CREATE INDEX MyIdIndex ON " & SMEX_IDS_TABLE_NAME & " (ID_SU Asc);"
dao_TmpDB.Execute SQL_str
'***************************************
'если в этот момент посмотреть, что есть в коллекции dao_TmpDB.TableDefs, то видно ВСЕ ТЕ ЖЕ 9 системных таблиц

В этой же процедуре заполняю вновь созданную таблицу:

Set Filler = dao_TmpDB.OpenRecordset(SMEX_IDS_TABLE_NAME, dbOpenTable, dbDenyWrite)
Set asdf = Filler.Parent
With Filler
    For Each k In RangeOfIDs
        .AddNew
        !ID_SU = k.Value
        .Update
    Next
End With
Filler.Close

Ошибок не возникает, но если в этот момент посмотреть dao_TmpDB.TableDefs, то видно ВСЕ ТЕ ЖЕ 9 системных таблиц.
Теперь если закрыть БД и открыть ее заново (все через ДАО), то вуаля, новая таблица появилась в наборе TableDefs.

Есть ли способ обновить TableDefs не отключаясь от базы?

http://www.sql.ru/forum/1157926/ne-obnovlyaetsya-kollekciya-tabledefs