office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

Access獲取表字段的所有屬性信息

2018-01-06 16:04:00
tmtony8
原創
3817

在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


運行效果:


其他屬性也是一樣,找到對象名稱修改一下就可以了。

當然這里我們也可以遍歷字段的屬性,獲取全部信息。有興趣的可以去寫一下。這里就不再累贅了。

    分享
    北京十一选五基本走势