ACC："太多的字段定义"保存表的错误信息

当您添加新字段或更改现有字段的属性后，保存表时，您收到消息"定义了过多的字段，"跟邮件"中遇到错误保存。 数据类型未被更改"。 即使您有 255 个或更少在表中定义的字段，您将会收到这些消息。

注意： 您还收到此信息如果添加或修改基于具有太多的字段的表的报表中的字段。

注意： 此错误消息生成 Microsoft Jet 数据库引擎 3.0 保留的错误号 3190。

本文假定您熟悉 Visual Basic for Applications 和创建 Microsoft Access 应用程序使用随 Microsoft Access 提供的编程工具。 有关 Visual Basic for Applications 的更多信息，请参阅"构建应用程序与 Microsoft Access"手册的版本。

注意： Visual Basic for Applications 被称为 Access Basic 在 Microsoft Access 版本 1 x 和 2.0。 有关 Access Basic，请参考 Microsoft Access 版本 1 x 中的"介绍到 Programming"手动或在 Microsoft Access 版本 2.0"构建应用程序"手册

虽然可能有表中的少于 255 个字段，Microsoft Access 用来跟踪的表中的字段数内部的列计数已达到 255。 因为删除字段时，Microsoft Access 不会更改内部的列数，则可能发生这种情况。 Microsoft Access 还会创建每个字段，修改其属性的新字段 （1 增加内部的列数）。

若要释放内部的列数为已删除的字段或字段，修改其属性，执行以下项：

• 在 Microsoft Access 7.0 或 97，单击另存为 / 导出在的文件菜单并保存不同的名称表。 然后，删除原始表，并重命名为原始表名称的新表。
  
  警告： 在文件菜单在版本 1 x 或 2.0 上单击另存为复制表，不记录结构。 在使用追加查询来填充新的表之前，不要删除原始表。
• 在 Microsoft Access 1 x 或 2.0，单击保存文件菜单上，并保存不同的名称表。 填充新表，原始表中的数据。 然后，删除原始表，并重命名为原始表名称的新表。
  
  您还可以通过压缩数据库来释放内部的列数。

这种现象是设计使然。

在 Microsoft Access 中可以定义表中的最多 255 个字段。 如果您创建 255 个字段，并删除 10，Microsoft Access 不会释放内部的列数中的字段。 此外，每个字段，修改其属性，Microsoft Access 创建一个新的域并不会释放从内部的列计数中原始的字段。

重现问题的步骤

注意： 为 Microsoft Access x 手动创建一个表包含所有的文本的数据类型的 255 个字段。 下面的该代码可一起只为 Microsoft Access 2.0 及更高版本。

1. 创建以下 Visual Basic for Applications 代码以便使用 255 个字段创建一个新的表：

         ' ****************************************************************
         ' Declarations section of the module
         ' ****************************************************************
   
         Option Compare Database
         Option Explicit
   
         ' ****************************************************************
         ' The Fill_Table() function creates a table in the current database
         ' named Field Test with 255 fields, each of which has a Text data
         ' type and a size of one character.
         ' ****************************************************************
         Function Fill_Table ()
            Dim mydb As Database
            Dim tbl As TableDef
            Dim fld As Field
            Dim i As Integer
            Set mydb = CurrentDb()
            Set tbl = mydb.CreateTableDef("Field Test")
            For i = 0 To 254
               Set fld = tbl.CreateField("Field" & CStr(i + 1))
               fld.type = DB_TEXT
               fld.size = 1
               tbl.fields.Append fld
            Next i
            mydb.tabledefs.Append tbl
         End Function
   						

2. 调试窗口 （或 2.0 版中的立即窗口） 以运行该函数，并创建表中键入下面一行：
   ? Fill_Table()
3. 在设计视图中查看表字段测试和删除最后一个域，以便仅的表中定义的 254 个字段。
4. 再次，添加字段，并尝试保存表。
   
   在 Microsoft Access 97，您将看到下面的错误消息：
   定义了过多的字段。
   
   在保存期间遇到错误操作。 无法添加字段。 属性未被更新。
   在 Microsoft Access 7.0，您将看到下面的错误消息：
   定义了过多字段
   
   无法添加字段。 属性未被更新。
   在 Microsoft Access 版本 1 x 和 2.0，您看到以下：
   定义了过多字段
   
   在过程中遇到错误保存。 数据类型未被更改。

有关表规范的详细信息，搜索 规范 ，在帮助索引或询问 Microsoft Access 97 Office 助手。