ник: Debilder
For Each tbl In dbs.TableDefs
d = tbl.NAME
tbl.Attributes = dbHiddenObject
Next
End Sub
так работает. Как будто таблиц вообще и не было. Супер!!!
Кстати
ВНИМАНИЕ !!!!!! В MSA версии ниже 2000 после сжатия базы, таблицы пропадут !!!
Это сообщение актуально. т.е. в 97 все данные пропадут?
а 2000 все данные в таблицах остануться?