删除字段后无法添加新字段 [英] Can't add new field after deleting fields

问题描述

我正在使用MS Access 2010.

I am using MS Access 2010.

情况:

表格达到225个字段

Table reach 225 fields

删除一个字段(因此表中有224个可见"字段)

Delete one field (so there is 224 fields "visible" in the table)

添加新字段

获取错误3109定义的字段太多."

Get error 3109 "Too many fields defined."

我使用VBA添加和删除字段.

I add and delete fields with VBA.

添加:

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

我在查询中添加一个字段，因为它对我来说更容易

I add a field with a query because its easier for me

删除:

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个字段保留在表格中 我不使用查询，因为这对我来说更快. (我认为)

I want the first 3 fields to be stayed in the table I don't use a query because this was faster for me. (I thought)

推荐答案

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

In your delete code, before closing database do method TableDefs.Refresh

这篇关于删除字段后无法添加新字段的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！