1

MS Access 2010 を使用しています。

状況：

テーブルリーチ 225 フィールド

1 つのフィールドを削除します (そのため、テーブルには 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 に答える