Application.CodeDb-Methode (Access)

Verwenden Sie die CodeDb-Methode in einem Codemodul, um den Namen des Database-Objekts zu bestimmen, das auf die Datenbank verweist, in der derzeit Code ausgeführt wird. Mit der CodeDbCodeDb-Methode können Sie auf Datenzugriffsobjekte (DAO) zugreifen, die Bestandteil einer Bibliotheksdatenbank sind.

Syntax

Ausdruck. CodeDb

expression Eine Variable, die ein Application-Objekt darstellt.

Rückgabewert

Datenbank

Bemerkungen

Sie können z. B. mit der CodeDbCodeDb-Methode in einem Modul einer Bibliotheksdatenbank ein Database-Objekt erstellen, das auf die Bibliotheksdatenbank verweist. Anschließend können Sie eine Datensatzgruppe öffnen, die auf einer Tabelle der Bibliotheksdatenbank basiert.

Festlegen vonDatenbankcodeDb=

Die CodeDb-Methode gibt ein Database-Objekt zurück, für das die Name-Eigenschaft der vollständige Pfad und der Name der Datenbank ist, aus der sie aufgerufen wird. Diese Methode bietet sich dann an, wenn Sie die Datenzugriffsobjekte in Ihrer Bibliotheksdatenbank bearbeiten müssen.

Wenn Sie eine Methode einer Bibliotheksdatenbank aufrufen, bleibt die Datenbank, von der aus Sie die Methode aufgerufen haben, die aktuelle Datenbank, auch wenn Code in einem Modul der Bibliotheksdatenbank ausgeführt wird. Um auf die Datenzugriffsobjekte in der Bibliotheksdatenbank zu verweisen, müssen Sie den Namen des Database-Objekts kennen, das die Bibliotheksdatenbank darstellt.

Angenommen, in einer Bibliotheksdatenbank gibt es eine Tabelle mit einer Liste von Fehlermeldungen. Wenn Sie Daten in der Tabelle aus Code heraus bearbeiten möchten, können Sie mithilfe der CodeDbCodeDb-Methode den Namen des Database-Objekts ermitteln, das auf die Bibliotheksdatenbank verweist, zu der die Tabelle gehört.

Wenn die CodeDb-Methode aus der aktuellen Datenbank ausgeführt wird, wird der Name der aktuellen Datenbank zurückgegeben. Dabei handelt es sich um den gleichen Wert, der von der CurrentDb-Methode zurückgegeben wird.

Beispiel

Im folgenden Beispiel wird die CodeDb-Methode verwendet, um ein Database-Objekt zurückzugeben, das auf eine Bibliotheksdatenbank verweist. Die Bibliotheksdatenbank enthält sowohl eine Tabelle mit dem Namen Errors als auch den derzeit ausgeführten Code. Nachdem die CodeDb-Methode diese Informationen ermittelt hat, öffnet die GetErrorString-Funktion basierend auf der Errors-Tabelle ein Recordset vom Tabellentyp. Anschließend wird eine Fehlermeldung aus einem Feld mit dem Namen ErrorData extrahiert, basierend auf dem integer-Wert , der an die Funktion übergeben wird.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.