有群友问到，如果动态添加表字段信息。比如建好表后，我想在字段添加部分属性，如标题，说明等信息。

这里我们用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