Метод Application.OpenCurrentDatabase (Access)

Статья
04/07/2023

Используйте метод OpenCurrentDatabase , чтобы открыть существующую базу данных Microsoft Access в качестве текущей базы данных.

Синтаксис

expression. OpenCurrentDatabase (filepath, Exclusive, bstrPassword)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Filepath	Обязательный	String	Имя существующего файла базы данных, включая имя пути и расширение имени файла.
Эксклюзивные	Необязательный	Логический	Указывает, нужно ли открывать базу данных в монопольном режиме. Значение по умолчанию — False, указывающее, что база данных должна быть открыта в общем режиме.
bstrPassword	Необязательный	String	Пароль для открытия указанной базы данных.

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

Отсутствует

Примечания

Используйте этот метод, чтобы открыть базу данных из другого приложения, которое управляет Microsoft Access с помощью службы автоматизации, ранее называемой OLE-автоматизацией. Например, можно использовать метод OpenCurrentDatabase из Microsoft Excel, чтобы открыть пример базы данных Northwind.mdb в окне Access. После создания экземпляра Access из другого приложения необходимо также создать новую базу данных или указать конкретную базу данных для открытия. Эта база данных откроется в окне Access.

Если вы уже открыли базу данных и хотите открыть другую базу данных в окне Доступа, можно использовать метод CloseCurrentDatabase , чтобы закрыть первую базу данных перед открытием другой.

Примечание.

Используйте метод OpenAccessProject , чтобы открыть существующий проект Access (ADP) в качестве текущей базы данных.

Примечание.

Не путайте метод OpenCurrentDatabaseс методом Open объектов данных ActiveX (ADO) или методом OpenDatabase объекта доступа к данным (DAO). Метод OpenCurrentDatabase открывает базу данных в окне Access. Метод DAO OpenDatabase возвращает переменную объекта Database , которая представляет определенную базу данных, но фактически не открывает ее в окне Access.

Пример

В следующем примере открывается база данных Access из другого приложения с помощью службы автоматизации, а затем открывается форма в этой базе данных.

Этот код можно ввести в модуле Visual Basic в любом приложении, которое может выступать в качестве com-компонента. Например, можно выполнить следующий код из Excel, Visual Basic или Access.

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

' Include the following in Declarations section of module. 
Dim appAccess As Access.Application 
 
Sub DisplayForm() 
 
 Dim strDB as String 
 
 ' Initialize string to database path. 
 Const strConPathToSamples = "C:\Program " _ 
 & "Files\Microsoft Office\Office11\Samples\" 
 
 strDB = strConPathToSamples & "Northwind.mdb" 
 ' Create new instance of Microsoft Access. 
 Set appAccess = _ 
 CreateObject("Access.Application") 
 ' Open database in Microsoft Access window. 
 appAccess.OpenCurrentDatabase strDB 
 ' Open Orders form. 
 appAccess.DoCmd.OpenForm "Orders" 
End Sub

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

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

Поделиться через