删除字段后无法添加新领域(Can't add new field after deletin

我使用的MS Access 2010。

情况：

表达到225场

删除一个字段（因此有224个字段“可见”在表中）

添加新字段

获取错误3109“定义的字段太多。”

我添加和删除与VBA领域。

加：

Dim dbs as Database
Set dbs = CurrentDb()
queryAlter = "ALTER TABLE [Table] ADD [" & [field] & "] Varchar(255)"
dbs.Execute queryAlter, dbFailOnError
dbs.Close

我添加一个字段，因为它更容易为我查询

删除：

Dim dbs as Database
Dim field as Field
Set dbs = CurrentDb()
    Do While dbs.TableDefs([Table]).Fields.count > 3
        Set field = dbs.TableDefs([Table]).Fields(3)
        dbs.TableDefs([Table]).Fields.Delete field.name
    Loop
dbs.Close

我想第3场被留在桌上，我不使用查询，因为这是对我更快。 （我想）

Answer 1:

在您删除代码，关闭数据库之前做的方法TableDefs.Refresh

文章来源: Can't add new field after deleting fields