解析ACCESS数据库中Field对象的caption属性读写_Access数据库教程

推荐：关于Access 2003开发者扩展工具集的概述
许可和分发权限 Access 2003 Developer Extensions随附的许可协议简化了解决方案或代码段的分发过程。这些协议包括免版税的Access运行时，您可以分发Access解决方案和Access数据项目，以及免费使用和分发工具源代码部分以作为您的解决方案的一部分。 轻松部

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

分享：如何防治Access宏病毒
本文介绍利用Access的安全特性及良好习惯防治Access宏病毒的技巧。 防病毒通用技巧 保持防病毒软件随时更新非常重要。新病毒每天出现，防病毒厂商也通过网络、BBS等载体不断推出最新的病毒资料库和软件，所以一个重视安全的用户，应当保证一个合适的频率不断