创建表字段的说明属性和标题属性

时　间:2005-07-28 00:00:00
作　者:海狸先生   ID：210  城市：丽水
摘　要:说明属性可以拿来当　控件的　tag 属性使用，当然了，最好不要用这个表来自动生成窗体，不然成了控件的控件提示属性，就怪怪的
正　文:

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, "aa")
                fld.Properties.Append cp
                Set cp = fld.CreateProperty("Description", 10, "aa")
                fld.Properties.Append cp
            End If
         Next
    Next
End Function

Access软件网官方交流QQ群 (群号:54525238) 　　　　　　Access源码网店