Метод Application.CloseCurrentDatabase (Access)

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

Синтаксис

expression. CloseCurrentDatabase

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

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

Отсутствует

Примечания

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

Метод CloseCurrentDatabase полезен при открытии базы данных Microsoft Access из другого приложения с помощью службы автоматизации. После создания экземпляра Microsoft Access из другого приложения необходимо также создать новую базу данных или указать существующую базу данных для открытия. Эта база данных откроется в окне Microsoft Access.

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

Пример

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

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

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

' Enter the following in the Declarations section of the module. 
Dim appAccess As Access.Application 

Sub CreateForm() 
 Const strConPathToSamples = "C:\Program Files\Microsoft Office\Office12\Samples\" 
 
 Dim frm As Form, strDB As String 
 
 ' Initialize string to database path. 
 strDB = strConPathToSamples & "Northwind.mdb" 
 ' Create new instance of Microsoft Access. 
 Set appAccess = CreateObject("Access.Application") 
 ' Open database in Microsoft Access window. 
 appAccess.OpenCurrentDatabase strDB 
 ' Create new form. 
 Set frm = appAccess.CreateForm 
 ' Save new form. 
 appAccess.DoCmd.Save , "NewForm1" 
 ' Close currently open database. 
 appAccess.CloseCurrentDatabase 
 Set AppAccess = Nothing 
End Sub

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

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