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
苏公网安备 32070502010230号