对Access表中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

不需要刷新方法。