在代码模块中使用 CodeDb 方法可以确定引用当前运行代码的数据库的 Database 对象的名称。 使用 CodeDb 方法来访问数据访问对象 (DAO) 的库数据库的一部分。
语法
表达式。CodeDb
expression：表示 Application 对象的变量。
返回值
Database
说明
例如，可以在某个类库数据库中的一个模块中使用 CodeDb 方法来创建引用类库数据库的 Database 对象。 然后，您可以打开基于该类库数据库中的表的记录集。
设置数据库= CodeDb
CodeDb 方法返回 Name 属性的 数据库 对象的完整路径和从中调用它的数据库的名称。 当您需要操作类库数据库中的数据访问对象时，此方法会很有用。
类库数据库中调用方法时，从其调用方法的数据库仍当前数据库，即使模块在该类库数据库中运行代码时。 若要引用库数据库中的数据访问对象，需要知道表示库数据库的 Database 对象的名称。
例如，假设您有一个表列出错误消息库数据库中。 操作代码表中的数据，可以使用 CodeDb 方法来确定引用库数据库中包含表的 数据库 对象的名称。
如果从当前数据库运行了 CodeDb 方法，它返回当前数据库，即 CurrentDb 方法返回相同的值的名称。
示例
下面的示例使用 CodeDb 方法返回引用库数据库的 数据库 对象。 类库数据库同时包含表名为错误和当前正在运行的代码。 在 CodeDb 方法确定此信息后，GetErrorString 函数将打开基于 Errors 表的表类型记录集。 它然后从名为 ErrorData 根据传递给函数的 整数 值的字段中提取一条错误消息。
Function GetErrorString(ByVal intError As Integer) As String
Dim dbs As Database, rst As RecordSet
' Variable refers to database where code is running.
Set dbs = CodeDb
' Create table-type Recordset object.
Set rst = dbs.OpenRecordSet("Errors", dbOpenTable)
' Set index to primary key (ErrorID field).
rst.Index = "PrimaryKey"
' Find error number passed to GetErrorString function.
rst.Seek "=", intError
' Return associated error message.
GetErrorString = rst.Fields!ErrorData.Value
rst.Close
End Function
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。