Can't add new field after deleting fields

自古美人都是妖i 提交于 2019-12-24 13:41:28

问题


I am using MS Access 2010.

Situation:

Table reach 225 fields

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

Add new field

Get error 3109 "Too many fields defined."

I add and delete fields with VBA.

Add:

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

Delete:

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

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)


回答1:


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



来源:https://stackoverflow.com/questions/19266532/cant-add-new-field-after-deleting-fields

易学教程内所有资源均来自网络或用户发布的内容,如有违反法律规定的内容欢迎反馈
该文章没有解决你所遇到的问题?点击提问,说说你的问题,让更多的人一起探讨吧!