1

我正在使用 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 个字段保留在我不使用查询的表中，因为这对我来说更快。（我想）

4

1 回答 1

0

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

于 2013-11-20T23:16:46.577 回答