SaveProperty 函数
简介
修改指定对象的指定属性的值。
语法
SaveProperty(Object,PropertyName, DataType, PropertyValue)
输入参数
| 参数名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| Object | 必需 | Object | 任意对象。 |
| PropertyName | 必需 | String | 属性名称。 |
| DataType | 必需 | DataTypeEnum | 属性值的数据类型。 |
| PropertyValue | 必需 | Variant | 要修改为的新的属性值。 |
返回值
无
说明
GetProperty 和 SaveProperty 一起成对使用，一个用于读取属性，一个用于写入修改属性。
相关
示例
Dim strText As String
SaveProperty CurrentDb.TableDefs("表1").Fields("字段1"), "Caption", dbText, "字段1_A"
strText = GetProperty(CurrentDb.TableDefs("表1").Fields("字段1"), "Caption", "字段1")
MsgBox "表1中字段1的标题已被修改为" & strText