Application.OpenCurrentDatabase method (Access) (Método Application.OpenCurrentDatabase [Access])

Utilize o método OpenCurrentDatabase para abrir uma base de dados do Microsoft Access existente como base de dados atual.

Sintaxe

expressão. OpenCurrentDatabase (caminho de ficheiro, Exclusivo, 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

Utilize este método para abrir uma base de dados a partir de outra aplicação que esteja a controlar o Microsoft Access através da Automatização, anteriormente denominada Automatização OLE. Por exemplo, pode utilizar o método OpenCurrentDatabase do Microsoft Excel para abrir o Northwind.mdb base de dados de exemplo na janela do Access. Depois de criar uma instância do Access a partir de outra aplicação, também tem de criar uma nova base de dados ou especificar uma base de dados específica para abrir. Esta base de dados é aberta na janela do Access.

Se já abriu uma base de dados e pretende abrir outra base de dados na janela do Access, pode utilizar o método CloseCurrentDatabase para fechar a primeira base de dados antes de abrir outra.

Observação

Utilize o método OpenAccessProject para abrir um projeto do Access existente (.adp) como a base 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 DaO (Data Access Object) OpenDatabase . O método OpenCurrentDatabase abre uma base de dados na janela do Access. O método OpenDatabase do DAO devolve uma variável de objeto Base de Dados, que representa uma base de dados específica, mas não abre essa base de dados na janela do Access.

Exemplo

O exemplo seguinte abre uma base de dados do Access a partir de outra aplicação através da Automatização e, em seguida, abre um formulário nessa base 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, pode executar o seguinte código a partir do Excel, Visual Basic ou Access.

Quando a variável que aponta para o objeto Aplicação fica fora do âmbito, a instância do Access que 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.