Méthode Application.CodeDb (Access)

Utilisez la méthode CodeDb dans un module de code pour déterminer le nom de l’objet Database qui fait référence à la base de données dans laquelle le code est en cours d’exécution. Utilisez la méthode CodeDb pour accéder à Data Access Objects (DAO) qui font partie d'une base de données bibliothèque.

Syntaxe

expression. CodeDb

expressionUne variable qui représente un objetApplication.

Valeur renvoyée

Database

Remarques

Par exemple, vous pouvez utiliser la méthode CodeDb est utilisée dans un module d'une base de données bibliothèque pour créer un objet de base de données faisant référence à la base de données bibliothèque. Vous pouvez ensuite ouvrir un objet recordset basé sur une table dans la base de données bibliothèque.

Définirla base de données= CodeDb

La méthode CodeDb renvoie un objet de base de données pour lesquels la propriété Name est le chemin d'accès complet et le nom de la base de données à partir de laquelle elle est appelée. Cette méthode peut être utile lorsque vous devez manipuler les objets d'accès de données dans votre base de données bibliothèque.

Lorsque vous appelez une méthode dans une base de données bibliothèque, la base de données à partir de laquelle vous avez appelé la méthode reste la base de données en cours, même pendant l'exécution du code dans un module dans la base de données bibliothèque. Pour faire référence aux objets d’accès aux données dans la base de données de bibliothèque, vous devez connaître le nom de l’objet Database qui représente la base de données de bibliothèque.

Par exemple, supposons que vous disposez d'une table dans une base de données de bibliothèque qui répertorie les messages d'erreur. Pour manipuler les données de la table à partir du code, vous pouvez utiliser la méthode CodeDb est utilisée pour déterminer le nom de l'objet de base de données qui fait référence à la base de données de bibliothèque qui contient la table.

Si la méthode CodeDb est exécutée à partir de la base de données active, elle renvoie le nom de la base de données actuelle, qui correspond à la valeur renvoyée par la méthode CurrentDb.

Exemple

L'exemple suivant utilise la méthode CodeDb pour renvoyer un objet de base de données qui fait référence à une base de données bibliothèque. La base de données bibliothèque contient à la fois une table appelée erreurs et le code qui est en cours d'exécution. Une fois que la méthode CodeDb a déterminé ces informations, la fonction GetErrorString ouvre un jeu d’enregistrements de type table basé sur la table Errors. Elle extrait ensuite un message d'erreur à partir d'un champ nommé ErrorData basé sur la valeur Integer passée à la fonction.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.