当前位置: 首页 > 图文教程 > 数据库 > Access > ACCESS数据库中Field对象的caption属性读写

Access
中文Access2000速成教程--1.2 使用“数据库向导”创建表
建立自由的会计日期的报表--1.2.创建让用户选择日期窗体
建立自由的会计日期的报表--1.1.认识几个有关时间的函数
建立自由的会计日期的报表
使用准则进行条件查询--1.5.常用的准则表达式
使用准则进行条件查询--1.4.从窗体中选择查询的条件
中文Access2000速成教程--1.1 使用“向导”设计数据库
获取ACCESS2000数据库中所有表的名称
中文Access2000速成教程--1.3 在“设计”视图中设计表
中文Access2000速成教程--1.4 使用“表向导”建立新表
中文Access2000速成教程--1.8 定义表之间的关系
中文Access2000速成教程--1.5 使用已有的数据自动建新表
中文Access2000速成教程--1.6 定义“主键”
中文Access2000速成教程--1.7 创建索引
解决Access中分组报表的问题
用 INNER JOIN语法联接多个表建记录集
ACCESS学习日记
Access保留字&变量名列表
如何 在Access中选择指定日期前的记录？
ACCESS中关于SQL语句的转义字符

No. « 1 2 3 4 »

技术文章搜索

关键字

Access 中的 ACCESS数据库中Field对象的caption属性读写

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-10-17   浏览: 52 ::
收藏到网摘: n/a

本文章说明如何用VBA读写该属性。 可惜Field对象的CAPTION属性并不是ADO原生对象，而是“可由ADO访问的ACCESS属性”，在帮助文档中介绍了两种访问这个属性的方法，一种利用ADO，一种利用DAO，在这里我直接说出结果，由于在ACCESS2003及以前的版本中Field对象并不是ACCESSObject对象，因而也就没有AccessObjectProperties属性，所以我们也就别想在ADO中去解决这个问题吧，现在给出DAO的代码解决办法

SubSetProperty(dbsTempAsDAO.Field,strNameAsString,_ booTempAsString) DimprpNewAsDAO.Property DimerrLoopAsError 'Attempttosetthespecifiedproperty.

OnErrorGoToErr_Property dbsTemp.Properties(strName)=booTemp OnErrorGoTo0 ExitSub Err_Property:

'Error3270meansthatthepropertywasnotfound. IfDBEngine.Errors(0).Number=3270Then

'Createproperty,setitsvalue,andappendittothe 'Propertiescollection.

SetprpNew=dbsTemp.CreateProperty(strName,_ dbText,booTemp)

dbsTemp.Properties.AppendprpNew ResumeNext Else

'Ifdifferenterrorhasoccurred,displaymessage. ForEacherrLoopInDBEngine.Errors

MsgBox"Errornumber:"&errLoop.Number&VBCr&_ errLoop.Description NexterrLoop End EndIf

EndSub SubDisplayClumCaption(ByValtbnameAsString,ByValfldIndexAsInteger)

DimdsetAsDAO.TableDef) //*****必须使用TableDef对象

DimiAsIntegerDimtmpPropAsDAO.Property //强制使用DAO类型

DimfldAsDAO.Field //强制使用DAO类型DimtmpTxtAsString'OnErrorResumeNext

DimmsgAsStringDimcdbAsDAO.Database //*****强制使用DAO类型

Setcdb=CurrentDb //****关键，确定对当前数据库的静态引用

Setdset=cdb.TableDefs(tbname)//*****必须使用TableDef对象

ForEachfldIndset.Fields tmpTxt=fld.Name SetPropertyfld,"Caption",tmpTxt msg=msg fld.Properties("Caption")

msg=msg Chr(10) Chr(13) Nextfld MsgBoxmsgEndSub

这里代码中有两个SUB，一个是SetProperty，用来判断一个字段是否有指定的属性，如果没有设置，有就将相应的数值赋给该属性，这段代码几乎完全是照搬MS的帮助文档。另一个是DisplayClumCaption，这是对指定表中的字段按字段名设置其CAPTION属性的演示代码。如果有需要，大家可以对SetProperty进行修改，使他变成一个只读的函数，用来枚举指定表中每个字段的CAPTION属性。DisplayClumCaption代码中，我打“星号”的地方是要重点注意的，因为我在这里曾走过弯路，浪费了一个下午的时间在MSDN中游荡。