access表的属性中的说明如何取到？

Question

没搞清什么意思就别乱贴代码了

Answer 1

首先添加引用 Project-Reference-Microsoft DAO 3.6 Object LibraryFunction AppendCaption()
  Dim TestDB As Database '需打开的数据库
    Dim Tbf    As DAO.TableDef
    Dim fld    As DAO.Field
    Dim P      As DAO.Property
    Dim cp     As DAO.Property
    
    On Error Resume Next
    Dim i As Integer
    
    Dim TableName As String
    Dim FieldName As String
    FieldName = "Content"'需取得属性的字段名
    TableName = "AgeType"'需取得字段的表名     '打开数据库
    Set TestDB = DBEngine(0).OpenDatabase("D:\测试新.mdb") ' 修改需打开的数据库名称
    For Each Tbf In TestDB.TableDefs
      If Tbf.Name = TableName Then'判断表名
        For Each P In Tbf.Properties
          If P.Name = "Description" Then
             Debug.Print P.Name & "-" & P.Value'取得属性中的说明内容
          End If
        Next
      End if
    Next
End Function

Answer 2

另外，如需取得表中对应字段的说明内容，则增加循环：
    For Each Tbf In TestDB.TableDefs
        For Each fld In Tbf.Fields            
          If fld.Name = FieldName And Tbf.Name = TableName Then'取得表中对应的字段
            Set cp = fld.CreateProperty("Caption", 12, "aa")
            fld.Properties.Append cp
            Set cp = fld.CreateProperty("Description", 10, "aa") '更改显示的Title
            fld.Properties.Append cp
          End If
          For Each P In fld.Properties
            If P.Name = "Description" Then
               Debug.Print Tbf.Name & ":" & fld.Name & ":" & "pro:"; P.Name & "--" & P.Value'列出字段的说明属性
            End If
         Next
      Next
    Next以上代码都已调试通过了