用代码删除字段说明

网友 静水流深  11:01:57 问题

请问老师表设计视图中的“说明”属性，怎么批量清空，如下图：

Accessoft--红尘如烟  11:03:16

“说明”属性不影响操作的  可有可无

静水流深 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

静水流深  11:23:23

这个怎么执行啊？

Accessoft--红尘如烟  11:34:57

放在新建的模块里面，按F5即可。

动画演示: