access数据库中，在设计数据库的时候，会对应的字段添加相应的字段开发说明

但是上线之后我们就要删除这些开发字段说明，需要批量的删除

（PS：这些开发字段说明可以不删除，也可以删除）

单独删除某个字段“说明”属性用：
CurrentDb.TableDefs("表名称").Fields("字段名").Properties.Delete "Description"



批量删除所有字段“说明”属性用：

Sub RemoveAllFieldDescription()
    On Error Resume Next
    Dim dbs As DAO.Database
    Dim tdf As DAO.TableDef
    Dim fld As DAO.Field
   
    Set dbs = CurrentDb
    For Each tdf In dbs.TableDefs
        For Each fld In tdf.Fields
            fld.Properties.Delete "Description"
        Next
    Next
End Sub



点击下载：Accessoft-用代码删除字段说明,用代码批量删除表中所有字段说明属性,Properties用法.rar