談ACCESS中Field對象的標(biāo)題屬性_Access數(shù)據(jù)庫教程
推薦：如何在ACCESS中壓縮當(dāng)前數(shù)據(jù)庫ACCESS只能壓縮已關(guān)閉的ACCESS數(shù)據(jù)庫，因此，不能在代碼中直接對當(dāng)前的數(shù)據(jù)庫進(jìn)行。但可以調(diào)用ACCESS菜單的方法解決這個問題。accDoDefaultAction是一個Office Object Library沒有公布的調(diào)用菜
ACCESS數(shù)據(jù)庫中Field對象的caption屬性（也就是標(biāo)題）是用來設(shè)置數(shù)據(jù)字段的標(biāo)題，在正常的數(shù)據(jù)庫設(shè)計中為了保持維護(hù)的便利性，許多開發(fā)者都將字段名與標(biāo)題做了分別設(shè)置，標(biāo)題往往比字段名更友好，更能說明字段的用途。本篇從另一個角度來說明如何用ＶＢＡ讀寫該屬性。
Field對象的CAPTION屬性并不是ADO原生對象，而是“可由ADO訪問的ACCESS屬性”，在幫助文檔中介紹了兩種訪問這個屬性的方法，一種利用ADO，一種利用DAO，由于在ACCESS2003及以前的版本中Field對象并不是ACCESSObject對象，因而也就沒有AccessObjectProperties 屬性，所以我們也就不能在ADO中去解決這個問題，現(xiàn)在用另一種方式來解決DAO的代碼。
| 以下為引用的內(nèi)容： Sub SetProperty(dbsTemp As DAO.Field, strName As String, _ booTemp As String) Dim prpNew As DAO.Property Dim errLoop As Error ' Attempt to set the specified property. On Error GoTo Err_Property dbsTemp.Properties(strName) = booTemp On Error GoTo 0 Exit Sub Err_Property: ' Error 3270 means that the property was not found. If DBEngine.Errors(0).Number = 3270 Then ' Create property, set its value, and append it to the ' Properties collection. Set prpNew = dbsTemp.CreateProperty(strName, _ dbText, booTemp) dbsTemp.Properties.Append prpNew Resume Next Else ' If different error has occurred, display message. For Each errLoop In DBEngine.Errors MsgBox "Error number: " & errLoop.Number & vbCr & _ errLoop.Description Next errLoop End End If End Sub Sub DisplayClumCaption(ByVal tbname As String, ByVal fldIndex As Integer) Dim dset As DAO.TableDef) //*****必須使用TableDef對象 Dim i As Integer Dim tmpProp As DAO.Property //強(qiáng)制使用DAO類型 Dim fld As DAO.Field //強(qiáng)制使用DAO類型 Dim tmpTxt As String 'On Error Resume Next Dim msg As String Dim cdb As DAO.Database //*****強(qiáng)制使用DAO類型 Set cdb = CurrentDb //****關(guān)鍵，確定對當(dāng)前數(shù)據(jù)庫的靜態(tài)引用 Set dset = cdb.TableDefs(tbname)//*****必須使用TableDef對象 For Each fld In dset.Fields tmpTxt = fld.Name SetProperty fld, "Caption", tmpTxt msg = msg fld.Properties("Caption") msg = msg Chr(10) Chr(13) Next fld MsgBox msg End Sub |
在以上部分的代碼中有兩個SUB，一個是SetProperty ，用來判斷一個字段是否有指定的屬性，如果沒有設(shè)置，就將相應(yīng)的數(shù)值賦給該屬性。另一個是DisplayClumCaption，這是對指定表中的字段按字段名設(shè)置其CAPTION屬性的演示代碼。如果有需要，大家可以對SetProperty進(jìn)行修改，使他變成一個只讀的函數(shù)，用來枚舉指定表中每個字段的CAPTION屬性。DisplayClumCaption代碼中，打“星號”的地方是要重點(diǎn)注意的，不然可能會在MSDN中多走彎路。
分享：用Access創(chuàng)建簡單MIS管理系統(tǒng)你家中的CD、VCD一定很多吧？是不是常遇到為找一張CD把一抽屜的碟子翻得亂七八糟的情況，你一定沒少受埋怨——你不想整理它們一下？如：影片是國產(chǎn)的、還是國外的，是言情的、還是槍
- Access數(shù)據(jù)庫安全策略之ASP式
- 第N次被ACCESS的關(guān)鍵字涮
- Access中用Jet SQL語句刪除表關(guān)系
- Access報表打印如何自動分頁
- Access完成累計余額的計算
- 搭建Access為主的Mdb數(shù)據(jù)庫
- 一句sql更新兩個表并可更新對應(yīng)的字段值具體實(shí)現(xiàn)
- MySQL查詢優(yōu)化:連接查詢排序limit(join、order by、limit語句)介紹
- 內(nèi)網(wǎng)ssh/mysql登錄緩慢的解決方法
- 使用準(zhǔn)則進(jìn)行條件查詢--1.4.從窗體中選擇查詢的條件
- 中文Access2000速成教程--1.1 使用“向?qū)А痹O(shè)計數(shù)據(jù)庫
- 中文Access2000速成教程--1.3 在“設(shè)計”視圖中設(shè)計表
- 相關(guān)鏈接：
- 教程說明：
Access數(shù)據(jù)庫教程-談ACCESS中Field對象的標(biāo)題屬性
。