日韩天天综合网_野战两个奶头被亲到高潮_亚洲日韩欧美精品综合_av女人天堂污污污_视频一区**字幕无弹窗_国产亚洲欧美小视频_国内性爱精品在线免费视频_国产一级电影在线播放_日韩欧美内地福利_亚洲一二三不卡片区

談ACCESS中Field對(duì)象的標(biāo)題屬性_Access數(shù)據(jù)庫(kù)教程

編輯Tag賺U幣
教程Tag：暫無(wú)Tag,歡迎添加,賺取U幣!

推薦：如何在ACCESS中壓縮當(dāng)前數(shù)據(jù)庫(kù)
ACCESS只能壓縮已關(guān)閉的ACCESS數(shù)據(jù)庫(kù)，因此，不能在代碼中直接對(duì)當(dāng)前的數(shù)據(jù)庫(kù)進(jìn)行。但可以調(diào)用ACCESS菜單的方法解決這個(gè)問(wèn)題。accDoDefaultAction是一個(gè)Office Object Library沒(méi)有公布的調(diào)用菜

ACCESS數(shù)據(jù)庫(kù)中Field對(duì)象的caption屬性（也就是標(biāo)題）是用來(lái)設(shè)置數(shù)據(jù)字段的標(biāo)題，在正常的數(shù)據(jù)庫(kù)設(shè)計(jì)中為了保持維護(hù)的便利性，許多開(kāi)發(fā)者都將字段名與標(biāo)題做了分別設(shè)置，標(biāo)題往往比字段名更友好，更能說(shuō)明字段的用途。本篇從另一個(gè)角度來(lái)說(shuō)明如何用ＶＢＡ讀寫該屬性。

Field對(duì)象的CAPTION屬性并不是ADO原生對(duì)象，而是“可由ADO訪問(wèn)的ACCESS屬性”，在幫助文檔中介紹了兩種訪問(wèn)這個(gè)屬性的方法，一種利用ADO，一種利用DAO，由于在ACCESS2003及以前的版本中Field對(duì)象并不是ACCESSObject對(duì)象，因而也就沒(méi)有AccessObjectProperties 屬性，所以我們也就不能在ADO中去解決這個(gè)問(wèn)題，現(xiàn)在用另一種方式來(lái)解決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對(duì)象
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)鍵，確定對(duì)當(dāng)前數(shù)據(jù)庫(kù)的靜態(tài)引用
Set dset = cdb.TableDefs(tbname)//*****必須使用TableDef對(duì)象
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

在以上部分的代碼中有兩個(gè)SUB，一個(gè)是SetProperty ，用來(lái)判斷一個(gè)字段是否有指定的屬性，如果沒(méi)有設(shè)置，就將相應(yīng)的數(shù)值賦給該屬性。另一個(gè)是DisplayClumCaption，這是對(duì)指定表中的字段按字段名設(shè)置其CAPTION屬性的演示代碼。如果有需要，大家可以對(duì)SetProperty進(jìn)行修改，使他變成一個(gè)只讀的函數(shù)，用來(lái)枚舉指定表中每個(gè)字段的CAPTION屬性。DisplayClumCaption代碼中，打“星號(hào)”的地方是要重點(diǎn)注意的，不然可能會(huì)在MSDN中多走彎路。

分享：用Access創(chuàng)建簡(jiǎn)單MIS管理系統(tǒng)
你家中的CD、VCD一定很多吧？是不是常遇到為找一張CD把一抽屜的碟子翻得亂七八糟的情況，你一定沒(méi)少受埋怨——你不想整理它們一下？如：影片是國(guó)產(chǎn)的、還是國(guó)外的，是言情的、還是槍

來(lái)源：模板無(wú)憂//所屬分類：Access數(shù)據(jù)庫(kù)教程/更新時(shí)間：2009-08-25
相關(guān)Access數(shù)據(jù)庫(kù)教程：