office交流網--QQ交流群號

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

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

Access穫取錶字段的所有屬性信息

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

在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


運行效果:


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

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

    分享