【Access字段】用代码删除字段说明,用代码批量删除表中字段说明属性,Properties.Delete "Description"用法

时　间:2014-06-16 12:34:57
作　者:红尘如烟   ID：10768  城市：成都
摘　要:【Access字段】用代码删除字段说明,用代码批量删除表中字段说明属性,Properties.Delete "Description"用法
正　文:

网友 静水流深(992129815)  11:01:57 问题
请问老师表设计视图中的“说明”属性，怎么批量清空，如下图：

Accessoft--红尘如烟  11:03:16
“说明”属性不影响操作的  可有可无

静水流深(992129815)  11:08:04
我知道可有可无，为的是让别人打开数据库不知道我的库是怎么设计的目的

Accessoft--红尘如烟  11:18:54
单独删除某个字段“说明”属性用：
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

静水流深(992129815)  11:23:23
这个怎么执行啊？

Accessoft--红尘如烟  11:34:57
放在新建的模块里面，按F5即可。

示例如下:

动画演示: