有群友问到,如果动态添加表字段信息。比如建好表后,我想在字段添加部分属性,如标题,说明等信息。
这里我们用DAO去修改表的信息。当然你也可以换成参数自定义修改的内容。
作者:海狸先生
Access修改表字段标题和说明属性动态图
Access修改表字段标题和说明属性VBA代码:
Function AppendCaption(FieldName As String, TableName As String)
'引用DAO
Dim Tbf As DAO.TableDef
Dim fld As DAO.Field
Dim cp As DAO.Property
On Error Resume Next
Dim i As Integer
For Each Tbf In CurrentDb.TableDefs
For Each fld In Tbf.Fields
If fld.Name = FieldName And Tbf.Name = TableName Then
Set cp = fld.CreateProperty("Caption", 12, "员工编号")
fld.Properties.Append cp
Set cp = fld.CreateProperty("Description", 10, "员工唯一信息")
fld.Properties.Append cp
End If
Next
Next
End Function
如想更快的系统地学习Access数据库,请点右上角 关注 部落
点击加入群:access学习群 与更多Access大牛交流
如果您觉得这篇技巧真的有用,请关注我们。更重要手机转发分享一下!
如喜欢此技巧,手机右上角点开,分享到QQ空间,方便自己以后看