繁體中文当前位置: 首页 > 图文教程 > 数据库 > Access > ACCESS中Field对象的标题属性
- 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语句的转义字符
Access 中的 ACCESS中Field对象的标题属性
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-10-17 浏览: 54 ::
收藏到网摘: n/a
ACCESS数据库中Field对象的caption属性（也就是标题）是用来设置数据字段的标题，在正常的数据库设计中为了保持维护的便利性，许多开发者都将字段名与标题做了分别设置，标题往往比字段名更友好，更能说明字段的用途。本篇从另一个角度来说明如何用ＶＢＡ读写该属性。
Field对象的CAPTION属性并不是ADO原生对象，而是“可由ADO访问的ACCESS属性”，在帮助文档中介绍了两种访问这个属性的方法，一种利用ADO，一种利用DAO，由于在ACCESS2003及以前的版本中Field对象并不是ACCESSObject对象，因而也就没有AccessObjectProperties 属性，所以我们也就不能在ADO中去解决这个问题，现在用另一种方式来解决DAO的代码。
| 以下为引用的内容： 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 //强制使用DAO类型 Dim fld As DAO.Field //强制使用DAO类型 Dim tmpTxt As String 'On Error Resume Next Dim msg As String Dim cdb As DAO.Database //*****强制使用DAO类型 Set cdb = CurrentDb //****关键，确定对当前数据库的静态引用 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 ，用来判断一个字段是否有指定的属性，如果没有设置，就将相应的数值赋给该属性。另一个是DisplayClumCaption，这是对指定表中的字段按字段名设置其CAPTION属性的演示代码。如果有需要，大家可以对SetProperty进行修改，使他变成一个只读的函数，用来枚举指定表中每个字段的CAPTION属性。DisplayClumCaption代码中，打“星号”的地方是要重点注意的，不然可能会在MSDN中多走弯路。
评论 (0) All
