access vba表字段_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

运行效果：

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

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