Изменение порядка столбцов с помощью OrdinalPosition в таблице доступа

Question

Я импортировал электронную таблицу Excel и добавил новые поля в конец таблицы.Я знаю, что можно просто изменить порядок полей вручную, но я хотел бы автоматизировать его для каждого импорта.

Это код, с которым я играл, но таблица не обновляется с помощьюопределено OrdinalPosition для столбца, который я пытаюсь переместить.Я хочу позже применить эту же технику для нескольких столбцов.

Sub ReorderColumns()
    Dim db As Database
    Dim td As TableDef
    Dim NewField As Field

    Set db = CurrentDb
    Set td = db.TableDefs("Imported Pcard")

    td.Fields("Postal Code").OrdinalPosition = 2

    td.Fields.Refresh
End Sub

Answer 1

Явно объявляйте db и td как объекты DAO.

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

Метод обновления не требуется.