Método Application.CurrentDb (Access)

O método CurrentDb retorna uma variável de objeto do tipo Banco de Dados que representa o banco de dados atualmente aberto na janela do Microsoft Access.

Sintaxe

expressão. CurrentDb

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

Valor de retorno

Banco de dados

Comentários

Observação

No Microsoft Access, o método CurrentDb estabelece uma referência oculta à biblioteca de objetos do Mecanismo de Conectividade de Acesso do Microsoft Office 12.0 em um banco de dados do Microsoft Access.

Para manipular a estrutura do banco de dados e seus dados do Visual Basic, você deve usar o DAO (Data Access Objects). O método CurrentDb proporciona uma maneira de acessar o banco de dados atual a partir de código do Visual Basic sem ser necessário conhecer o nome do banco de dados. Depois de ter uma variável que aponta para o banco de dados atual, você também pode acessar e manipular outros objetos e coleções na hierarquia DAO.

Use o método CurrentDb para criar várias variáveis de objeto que se referem ao banco de dados atual. No exemplo a seguir, as variáveis dbsA e dbsB referem-se ao banco de dados atual:

Dim dbsA As Database, dbsB As Database 
Set dbsA = CurrentDb 
Set dbsB = CurrentDb

Observação

Nas versões anteriores do Microsoft Access, você pode ter usado a sintaxe DBEngine.Workspaces(0).Databases(0)ou DBEngine(0)(0)para retornar um ponteiro para o banco de dados atual. No Microsoft Access 2000 e posterior, você deve usar o método CurrentDb . The CurrentDb method creates another instance of the current database, while the DBEngine(0)(0)syntax refers to the open copy of the current database. O método CurrentDb permite criar mais de uma variável do tipo Banco de Dados que se refere ao banco de dados atual. Microsoft Access still supports the DBEngine(0)(0)syntax, but you should consider making this modification to your code in order to avoid possible conflicts in a multiuser database.

Se você precisar trabalhar com outro banco de dados ao mesmo tempo em que o banco de dados atual está aberto na janela do Microsoft Access, use o método OpenDatabase de um objeto Workspace . O método OpenDatabase, na realidade, não abre o segundo banco de dados na janela do Microsoft Access; ele simplesmente retorna uma variável Database representando o segundo banco de dados. O exemplo a seguir retorna um ponteiro para o banco de dados atual e para um banco de dados denominado Contacts.mdb:

Dim dbsCurrent As Database, dbsContacts As Database 
Set dbsCurrent = CurrentDb 
Set dbsContacts = DBEngine.Workspaces(0).OpenDatabase("Contacts.mdb")

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.