之前有人询问如何用vba修改字段名称 如下：

    CurrentDb.TableDefs(表名).Fields(字段名).Name = 新字段名

    修改表名：

    CurrentDb.TableDefs(表名).Name = 新的表名

    删除字段：

    CurrentDb.TableDefs(表名).Fields.Delete (字段名)

    添加字段：

    Dim dbs: Set dbs = CurrentDb
    dbs.TableDefs(表名).Fields.Append dbs.TableDefs(表名).CreateField(字段名, 字段类型, 字段长度)

    还有很多就不一一列举了