ник: Денис82
Доброго времени суток.
Есть код, который удаляет из внешней базы ненужные таблицы. Таблицы с латинскими именами таблиц удаляет, а с русскими выдаёт run-time error '7874': приложению Microsoft office access не удается найти объект... Как с этим бороться?
(при запуске аналогичного кода в локальной базе всё работает)
Вот код:
Dim MYDB As Database
Dim baseStr As String
Dim Tabl As TableDef
baseStr = "путь к базе"
Set MYDB = DBEngine.Workspaces(0).OpenDatabase(baseStr)
For Each Tabl In MYDB.TableDefs
If Tabl.Name "ненужная таблица" Then
DoCmd.DeleteObject acTable, Tabl.Name
End If
Next
|