Метод Application.OpenCurrentDatabase (Access)

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

Синтаксис

expression. OpenCurrentDatabase (filepath, Exclusive, bstrPassword)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
путь к файлу	Обязательный	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 и обратная связь.