Question

我正在使用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

删除字段后无法添加新字段

1 个答案: