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

2018-01-06 16:04:00
黄善超
原创
1131

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

前面我们讲过《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


运行效果:


其他属性也是一样,找到对象名称修改一下就可以了。

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

    分享