网友 静水流深(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即可。
示例如下:
点击下载此示例
动画演示: