Método Application.OpenCurrentDatabase (Access)

Use o método OpenCurrentDatabase para abrir um banco de dados existente do Microsoft Access como o banco de dados atual.

Sintaxe

mais simples. OpenCurrentDatabase (filepath, Exclusive, bstrPassword)

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

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
filepath	Obrigatório	String	O nome de um arquivo de banco de dados existente, incluindo o nome do caminho e a extensão de nome de arquivo.
Exclusivo	Opcional	Boolean	Especifica se você deseja abrir o banco de dados no modo exclusivo. O valor padrão é False, que especifica que o banco de dados deve ser aberto no modo compartilhado.
bstrPassword	Opcional	String	A senha que abre o banco de dados especificado.

Valor de retorno

Nada

Comentários

Use esse método para abrir um banco de dados de outro aplicativo que esteja controlando o Microsoft Access por meio da automação, anteriormente chamado de OLE Automation. Por exemplo, você pode usar o método OpenCurrentDatabase do Microsoft Excel para abrir o banco de dados de exemplo Northwind.mdb na janela do Access. Depois de criar uma instância do Access de outro aplicativo, você também deve criar um novo banco de dados ou especificar um banco de dados específico a ser aberto. Esse banco de dados é aberto na janela do Access.

Se você já abriu um banco de dados e deseja abrir outro banco de dados na janela do Access, pode usar o método CloseCurrentDatabase para fechar o primeiro banco de dados antes de abrir outro.

Observação

Use o método OpenAccessProject para abrir um projeto do Access (.adp) existente como o banco de dados atual.

Observação

Não confunda o método OpenCurrentDatabase com o método Open do ActiveX Data Objects (ADO) ou o método OpenDatabase do Data Access Object (DAO). O método OpenCurrentDatabase abre um banco de dados na janela do Access. O método OpenDatabase do DAO retorna uma variável de objeto Database , que representa um banco de dados específico, mas não abre esse banco de dados na janela do Access.

Exemplo

O exemplo a seguir abre um banco de dados do Access de outro aplicativo por meio da Automação e, em seguida, abre um formulário nesse 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. Por exemplo, você pode executar o código a seguir no Excel, no Visual Basic ou no Access.

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

' 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

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.