安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

Access获取表字段的所有属性信息

2018-01-06 16:04:00
tmtony8
原创
2310

在Access表设计中,我们都会对每个字段做一些属性修改。比如修改文本大小节省内容,修改标题方法显示字段信息等?#21462;?/p>

前面我们讲过《Access获取表中字段的标题属性》。那么其他属性也可以通过此方法去获取。


下面的函数可以获取表字段的字段大小,格式,掩码,小数位数,标题,默认值,有效性规则等信息。

Public Function GetfldInfo(tblName As String, fldName As String)
    On Error Resume Next
    Dim rs As DAO.Recordset
    Set rs = CurrentDb().OpenRecordset(tblName)
    
    Debug.Print "属性:字段大小为L: " & rs(fldName).Properties("FieldSize")
    Debug.Print "属性:格式为: " & rs(fldName).Properties("format")
    Debug.Print "属性:输入掩码为: " & rs(fldName).Properties("InputMask")
    Debug.Print "属性:小数位数为: " & rs(fldName).Properties("DecimalPlaces")
    Debug.Print "属性:标题为: " & rs(fldName).Properties("title")
    Debug.Print "属性:默认值为: " & rs(fldName).Properties("defaultvalue")
    Debug.Print "属性:有效性规则为: " & rs(fldName).Properties("Validationrule")
    rs.Close
    Set rs = Nothing
End Function


运行效果:


其他属性也是一样,?#19994;?strong>对象名称修改一下就可以了。

当然这里我?#19988;?#21487;以遍历字段的属性,获取全部信息。有兴趣的可以去写一下。这里就不再累赘了。

    分享
    ? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:19
    内存占用:7.75MB
    PHP 执行时间:0.19
    双色球大奖2000年
    安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假
    万圣节财富2注册 川崎前锋vs悉尼fc 法国里昂大学爆炸 星际争霸2破解补丁 悉尼fc上海申花直播 摔角传奇电子游戏 皇家社会vs莱加内斯的比分 佛罗伦萨小镇购物攻略 里昂纳多达芬奇 阿瓦隆电子