access數據庫中,在設計數據庫的時(shí)候,會(huì )對應的字段添加相應的字段開(kāi)發(fā)說(shuō)明
但是上線(xiàn)之后我們就要刪除這些開(kāi)發(fā)字段說(shuō)明,需要批量的刪除
(PS:這些開(kāi)發(fā)字段說(shuō)明可以不刪除,也可以刪除)
單獨刪除某個(gè)字段“說(shuō)明”屬性用:
CurrentDb.TableDefs("表名稱(chēng)").Fields("字段名").Properties.Delete "Description"
批量刪除所有字段“說(shuō)明”屬性用:
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
點(diǎn)擊下載:
Accessoft-用代碼刪除字段說(shuō)明,用代碼批量刪除表中所有字段說(shuō)明屬性,Properties用法.rar