Метод Application.CurrentDb (Access)

Метод CurrentDb возвращает объектную переменную типа Database , которая представляет базу данных, открытую в окне Microsoft Access.

Синтаксис

expression. CurrentDb

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

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

База данных

Комментарии

Примечание.

В Microsoft Access метод CurrentDb устанавливает скрытую ссылку на библиотеку объектов microsoft Office 12.0 Access Connectivity Engine в базе данных Microsoft Access.

Чтобы управлять структурой базы данных и ее данными из Visual Basic, необходимо использовать объекты доступа к данным (DAO). Метод CurrentDb позволяет получить доступ к текущей базе данных из кода Visual Basic без необходимости знать имя базы данных. После получения переменной, указывающей на текущую базу данных, вы также можете обращаться к другим объектам и коллекциям в иерархии DAO и управлять ими.

Используйте метод CurrentDb для создания нескольких объектных переменных, ссылающихся на текущую базу данных. В следующем примере переменные dbsA и dbsB оба ссылаются на текущую базу данных:

Dim dbsA As Database, dbsB As Database 
Set dbsA = CurrentDb 
Set dbsB = CurrentDb

Примечание.

В предыдущих версиях Microsoft Access вы могли использовать синтаксис DBEngine.Workspaces(0).Databases(0)или DBEngine(0)(0)для возврата указателя на текущую базу данных. В Microsoft Access 2000 и более поздних версиях вместо этого следует использовать метод CurrentDb . Метод CurrentDb создает другой экземпляр текущей базы данных, а DBEngine(0)(0)синтаксис ссылается на открытую копию текущей базы данных. Метод CurrentDb позволяет создать несколько переменных типа Database , ссылающихся на текущую базу данных. Microsoft Access по-прежнему DBEngine(0)(0)поддерживает синтаксис, но рекомендуется внести это изменение в код, чтобы избежать возможных конфликтов в многопользовательской базе данных.

Если необходимо работать с другой базой данных в то же время, когда текущая база данных открыта в окне Microsoft Access, используйте метод OpenDatabase объекта Workspace . Метод OpenDatabase фактически не открывает вторую базу данных в окне Microsoft Access. он просто возвращает переменную Database , представляющую вторую базу данных. В следующем примере возвращается указатель на текущую базу данных и на базу данных Contacts.mdb:

Dim dbsCurrent As Database, dbsContacts As Database 
Set dbsCurrent = CurrentDb 
Set dbsContacts = DBEngine.Workspaces(0).OpenDatabase("Contacts.mdb")

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.