Метод Application.CodeDb (Access)

Используйте метод CodeDb в модуле кода, чтобы определить имя объекта Database , ссылающегося на базу данных, в которой выполняется код. Используйте метод CodeDb для доступа к объектам доступа к данным (DAO), которые являются частью базы данных библиотеки.

Синтаксис

expression. CodeDb

выражение: переменная, представляющая объект Application.

Возвращаемое значение

База данных

Комментарии

Например, можно использовать метод CodeDb в модуле в базе данных библиотеки для создания объекта Database , ссылающегося на базу данных библиотеки. Затем можно открыть набор записей на основе таблицы в базе данных библиотеки.

Установкабазы данных= CodeDb

Метод CodeDb возвращает объект Database, для которого свойством Name является полный путь и имя базы данных, из которой он вызывается. Этот метод может быть полезен, если необходимо управлять объектами доступа к данным в базе данных библиотеки.

При вызове метода в базе данных библиотеки база данных, из которой был вызван метод, остается текущей базой данных даже во время выполнения кода в модуле базы данных библиотеки. Чтобы ссылаться на объекты доступа к данным в базе данных библиотеки, необходимо знать имя объекта Database , представляющего базу данных библиотеки.

Например, предположим, что в базе данных библиотеки есть таблица со списком сообщений об ошибках. Чтобы управлять данными в таблице из кода, можно использовать метод CodeDb для определения имени объекта Database , ссылающегося на базу данных библиотеки, содержащую таблицу.

Если метод CodeDb выполняется из текущей базы данных, он возвращает имя текущей базы данных, то есть то же значение, которое возвращает метод CurrentDb .

Пример

В следующем примере метод CodeDb используется для возврата объекта Database , ссылающегося на базу данных библиотеки. База данных библиотеки содержит таблицу с именем Errors и код, который выполняется в данный момент. После того как метод 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 и обратная связь.