Добавление столбца расчета ко всей таблице в базе данных доступа - PullRequest
Новая
       16

Добавление столбца расчета ко всей таблице в базе данных доступа

1 голос
/ 07 апреля 2019

У меня есть база данных из 250 таблиц с одинаковой структурой.Мне нужно было бы добавить вычисляемый столбец для всех таблиц.Однако я получаю ошибку времени выполнения 3191, и я просто не могу понять, что не так.У кого-нибудь есть идея?

Спасибо, М. 

Dim db As DAO.Database
Dim td As DAO.TableDef
Dim Fld As DAO.Field2

Set db = CurrentDb()

    For Each td In db.TableDefs
        Set Fld = td.CreateField("Stock", dbInteger)
        Fld.Expression = "[CS]-[RS]-[TBO]"
        td.Fields.Append Fld
    Set Fld = Nothing
    Next

Set td = Nothing
Set db = Nothing
...