本文章说明如何用VBA读写该属性。可惜田对象的标题属性并不是麻烦原生对象，而是"可由麻烦访问的接近属性",在帮助文档中介绍了两种访问这个属性的方法，一种利用阿多，一种利用道，在这里我直接说出结果，由于在ACCESS2003及以前的版本中田对象并不是访问对象对象，因而也就没有AccessObjectProperties属性，所以我们也就别想在麻烦中去解决这个问题吧，现在给出数据访问对象(数据访问对象)的代码解决办法
SubSetProperty(dbsTempAsDAO .Field，strNameAsString，_ booTempAsString)DimprpNewAsDAO .属性“DimerrLoopAsError”试图设置指定得属性.
OnErrorGoToErr_Property dbsTemp .properties(strName)=booTemp on error to 0 exit sub Err _ Property:
错误3270找不到意味着财产.IfDBEngine .错误数(0)。号码=3270然后
Createproperty、setitsvalue和appendittthepropertiescollection .
SetprpNew=dbsTemp .CreateProperty(strName，_ dbText，booTemp)
dbsTemp .属性。appendprpnewresumenext Else
如果出现不同情况，显示一条消息ForEacherrLoopInDBEngine .错误
MsgBox'Errornumber:'errLoop .NumberVBCr_ errLoop .描述NexterrLoop End EndIf
end sub SubDisplayClumCaption(ByValtbnameAsString，ByValfldIndexAsInteger)
DimdsetAsDAO .TableDef) //*****必须使用TableDef对象
DimiAsIntegerDimtmpPropAsDAO .属性//strong制使用数据访问对象(数据访问对象)类型
DimfldAsDAO .Field //strong制使用数据访问对象(数据访问对象)类型DimtmpTxtAsString ' onerrorresumenext
DimmsgAsStringDimcdbAsDAO .数据库//*****强制使用数据访问对象(数据访问对象)类型
setcdb=当前数据库/* * * * *关键，确定对当前数据库的静态引用
Setdset=cdb .TableDefs(tbname)//*****必须使用TableDef对象
ForEachfldIndset .字段tmpTxt=fld .Name SetPropertyfld，' Caption 'tmpTxt msg=msg fld .属性("标题")
msg=msg Chr(10)Chr(13)Nextfld MsgBoxmsgEndSub
这里代码中有两个SUB，一个是SetProperty，用来判断一个字段是否有指定的属性，如果没有设置，有就将相应的数值赋给该属性，这段代码几乎完全是照搬女士的帮助文档。另一个是DisplayClumCaption，这是对指定表中的字段按字段名设置其标题属性的演示代码。如果有需要，大家可以对SetProperty进行修改，使他变成一个只读的函数，用来枚举指定表中每个字段的标题属性显示clum选项代码中，我打"星号"的地方是要重点注意的，因为我在这里曾走过弯路，浪费了一个下午的时间在MSDN中游荡。
