Метод Application.OpenCurrentDatabase (Access)

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

Синтаксис

выражение. OpenCurrentDatabase (путь к файлу, Exclusive, bstrPassword)

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

Параметры

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

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

Отсутствует

Примечания

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

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

Примечание.

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

Примечание.

Не следует путать метод OpenCurrentDatabase с методом Open объектов данных ActiveX (ADO) или методом OpenDatabase Data Access Object (DAO). Метод OpenCurrentDatabase открывает базу данных в окне Access. Метод DAO OpenDatabase возвращает объектную переменную базы данных , которая представляет определенную базу данных, но фактически не открывает эту базу данных в окне 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 и обратная связь.