Método Application.CloseCurrentDatabase (Access)

Use o método CloseCurrentDatabase para fechar o banco de dados atual, um banco de dados do Microsoft Access ou um projeto access (.adp) de outro aplicativo que abriu um banco de dados por meio da Automação.

Sintaxe

expressão. CloseCurrentDatabase

expressão Uma variável que representa um Aplicativo objeto.

Valor de retorno

Nada

Comentários

Por exemplo, você pode utilizar esse método no Microsoft Excel para fechar o banco de dados aberto no momento na janela do Microsoft Access antes de abrir outro banco de dados.

O método CloseCurrentDatabase é útil quando você tem um banco de dados do Microsoft Access aberto em um outro aplicativo através de Automação. Depois de criar uma instância do Microsoft Access de outro aplicativo, você também deve criar um novo banco de dados ou especificar um banco de dados existente para abrir. Esse banco de dados é aberto na janela do Microsoft Access.

Se você utilizar o método CloseCurrentDatabase para fechar o banco de dados que está aberto na instância atual do Microsoft Access, poderá abrir um banco de dados diferente sem ter de criar outra instância do Microsoft Access.

Exemplo

O exemplo a seguir abre um banco de dados do Microsoft Access de outro aplicativo por meio da Automação, cria um novo formulário e o salva e fecha o banco de dados.

Você pode inserir esse código em um módulo do Visual Basic em qualquer aplicativo que possa atuar como um componente COM. É possível, por exemplo, executar o código a seguir no Microsoft Excel ou no Microsoft Visual Basic.

Quando a variável que aponta para o objeto Application sai do escopo, a instância do Microsoft Access que ela representa também é fechada. Portanto, você deve declarar essa variável no nível de módulo.

' 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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.