日韩性视频-久久久蜜桃-www中文字幕-在线中文字幕av-亚洲欧美一区二区三区四区-撸久久-香蕉视频一区-久久无码精品丰满人妻-国产高潮av-激情福利社-日韩av网址大全-国产精品久久999-日本五十路在线-性欧美在线-久久99精品波多结衣一区-男女午夜免费视频-黑人极品ⅴideos精品欧美棵-人人妻人人澡人人爽精品欧美一区-日韩一区在线看-欧美a级在线免费观看

歡迎訪問 生活随笔!

生活随笔

當前位置: 首頁 > 编程资源 > 编程问答 >内容正文

编程问答

access vba表字段_Access获取表字段的所有属性信息

發布時間:2025/3/20 编程问答 22 豆豆
生活随笔 收集整理的這篇文章主要介紹了 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

運行效果:

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

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

總結

以上是生活随笔為你收集整理的access vba表字段_Access获取表字段的所有属性信息的全部內容,希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯,歡迎將生活随笔推薦給好友。