创建表字段的说明属性和标题属性-毛海波
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


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

发表时间:2005/7/28 评论(1) 浏览(6411)  评论 | 加入收藏 | 复制
   
摘 要:说明属性可以拿来当 控件的 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群(群号:198465573)
 
 相关文章
用代码新增字段及更改字段数据类型示例  【褚玉春  2007/5/23】
在access中创建表及如何指定字段类型  【umvsoft整理  2008/6/30】
在access中修改字段类型的SQL语句  【竹笛  2011/8/24】
【Access源码示例】VBA获取表中字段的数据类型示例,通过代码...  【红尘如烟  2012/10/9】
 
 访客评论
总记录:0篇  页次:0/0 9 1 :
 
 发表评论
评论内容 (必填)

常见问答
技术分类
相关资源
文章搜索
关于作者

毛海波

文章分类

文章存档

友情链接