Método Application.CodeDb (Access)

Use el método CodeDb en un módulo de código para determinar el nombre del objeto Database que hace referencia a la base de datos en la que se ejecuta actualmente el código. Use el método CodeDb para tener acceso a objetos de acceso de datos (DAO) que forman parte de una base de datos de biblioteca.

Sintaxis

expresión. CodeDb

expresión Variable que representa un objeto Application.

Valor devuelto

Base de datos

Comentarios

Por ejemplo, puede usar el método CodeDb en un módulo en una base de datos de biblioteca para crear un objeto de base de datos hace referencia a la base de datos de biblioteca. A continuación, puede abrir un objeto recordset basado en una tabla en la base de datos de biblioteca.

Establecercodedbde base de datos=

El método CodeDb devuelve un objeto de base de datos para la que la propiedad Name es la ruta de acceso completa y el nombre de la base de datos desde la que se llama. Este método puede ser útil cuando se necesita manipular objetos de acceso a datos en la base de datos de biblioteca.

Cuando se llama a un método en una base de datos de biblioteca, la base de datos desde la que ha llamado al método sigue siendo la base de datos actual, incluso mientras se ejecuta el código en un módulo en la base de datos de biblioteca. Para hacer referencia a los objetos de acceso a datos de la base de datos de biblioteca, debe conocer el nombre del objeto Database que representa la base de datos de biblioteca.

Por ejemplo, suponga que tiene una tabla en una base de datos de biblioteca que enumera los mensajes de error. Para manipular datos en la tabla desde el código, podría usar el método CodeDb para determinar el nombre del objeto de base de datos que hace referencia a la base de datos de biblioteca que contiene la tabla.

Si el método CodeDb se ejecuta desde la base de datos actual, devuelve el nombre de la base de datos actual, que es el mismo valor devuelto por el método CurrentDb.

Ejemplo:

En el siguiente ejemplo se usa el método CodeDb para devolver un objeto de base de datos que hace referencia a una base de datos de biblioteca. La base de datos de biblioteca contiene una tabla denominada errores y el código que se está ejecutando actualmente. Una vez que el método CodeDb determina esta información, la función GetErrorString abre un conjunto de registros de tipo tabla basado en la tabla Errors. Después extrae un mensaje de error de un campo denominado ErrorData basándose en el valor Integer pasado a la función.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.