Método Application.OpenCurrentDatabase (Access)

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

Sintaxe

expressão. 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 está controlando o Microsoft Access por meio da Automação, anteriormente chamada automação OLE. Por exemplo, você pode usar o método OpenCurrentDatabase do Microsoft Excel para abrir o banco de dados de exemplo Northwind.mdb na janela 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 para abrir. Esse banco de dados é aberto na janela Acesso.

Se você já abriu um banco de dados e deseja abrir outro banco de dados na janela Access, poderá 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 de Acesso existente (.adp) como o banco de dados atual.

Observação

Não confunda o método OpenCurrentDatabase com o método ActiveX Data Objects (ADO) Open ou o método OpenDatabase (Objeto de Acesso de Dados). O método OpenCurrentDatabase abre um banco de dados na janela Access. O método DAO OpenDatabase 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 Access.

Exemplo

O exemplo a seguir abre um banco de dados 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, Visual Basic ou Access.

Quando a variável que aponta para o objeto Application sai do escopo, a instância do Access que ele representa também fecha. 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.