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號