Método Application.CodeDb (Access)

Use o método CodeDb em um módulo de código para determinar o nome do objeto Database que se refere ao banco de dados no qual o código está em execução no momento. 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.

DefinirCodeDbde banco 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 se referir aos Objetos de Acesso a Dados no banco de dados da biblioteca, você precisa saber o nome do objeto Banco de Dados que representa o banco 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 que o método CodeDb determina essas informações, a função GetErrorString abre um conjunto de registros do 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.