Método Application.CodeDb (Access)

Utilize o método CodeDb num módulo de código para determinar o nome do objeto Base de Dados que se refere à base de dados na qual o código está atualmente em execução. Use o método CodeDb para acessar o Data Access Objects (DAO) que fazem parte de um banco de dados biblioteca.

Sintaxe

expressão. CodeDb

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

Valor de retorno

Banco de dados

Comentários

Por exemplo, você pode usar o método CodeDb em um módulo de um banco de dados biblioteca para criar um objeto de banco de dados referindo-se ao banco de dados biblioteca. Você pode abrir um recordset com base em uma tabela no banco de dados biblioteca.

DefinirCodeDbda base de dados=

O método CodeDb retorna um objeto de banco de dados para o qual a propriedade Name é o caminho completo e o nome do banco de dados do qual ele é chamado. Este método pode ser útil quando você precisar manipular os objetos de acesso de dados em seu banco de dados biblioteca.

Quando você chama um método em um banco de dados biblioteca, o banco de dados do qual você chamou o método permanece o banco de dados atual, mesmo enquanto o código está sendo executado em um módulo no banco de dados biblioteca. Para consultar os Objetos de Acesso a Dados na base de dados da biblioteca, tem de saber o nome do objeto Base de Dados que representa a base de dados da biblioteca.

Por exemplo, suponha que você tenha uma tabela em um banco de dados biblioteca que lista mensagens de erro. Para manipular dados na tabela a partir de código, você pode usar o método CodeDb para determinar o nome do objeto de banco de dados referente ao banco de dados biblioteca que contém a tabela.

Se o método CodeDb for executado do banco de dados atual, ele retorna o nome do banco de dados atual, que é o mesmo valor retornado pelo método CurrentDb.

Exemplo

O exemplo a seguir usa o método CodeDb para retornar um objeto de banco de dados que se refere a um banco de dados biblioteca. O banco de dados biblioteca contém uma tabela denominada erros e o código que está sendo executado. Depois de o método CodeDb determinar estas informações, a função GetErrorString abre um conjunto de registos de tipo tabela com base na tabela Erros. Ele então extrai uma mensagem de erro de um campo denominado ErrorData com base no valor inteiro passado para a função.

Function GetErrorString(ByVal intError As Integer) As String 
 Dim dbs As Database, rst As RecordSet 
 
 ' Variable refers to database where code is running. 
 Set dbs = CodeDb 
 ' Create table-type Recordset object. 
 Set rst = dbs.OpenRecordSet("Errors", dbOpenTable) 
 ' Set index to primary key (ErrorID field). 
 rst.Index = "PrimaryKey" 
 ' Find error number passed to GetErrorString function. 
 rst.Seek "=", intError 
 ' Return associated error message. 
 GetErrorString = rst.Fields!ErrorData.Value 
 rst.Close 
End Function

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.