Application.CodeDb-Methode (Access)

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

Syntax

Ausdruck verwendet werden. 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.

Datenbank= CodeDb festlegen

Die CodeDb-Methode gibt ein Database-Objekt zurück, bei dem die Name-Eigenschaft der vollständige Pfad und 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 Datenbankobjekts 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, der derselbe Wert ist, der von der CurrentDb-Methode zurückgegeben wird.

Beispiel

Im folgenden Beispiel wird die CodeDb-Methode verwendet, um ein Datenbankobjekt zurückzugeben, das auf eine Bibliotheksdatenbank verweist. Die Bibliotheksdatenbank enthält sowohl eine Tabelle mit dem Namen "Fehler" als auch den Code, der derzeit ausgeführt wird. Nachdem die CodeDb-Methode diese Informationen ermittelt hat, öffnet die GetErrorString-Funktion ein Tabellentypen-Recordset basierend auf der Fehlertabelle. Anschließend wird eine Fehlermeldung aus einem Feld namens "Fehlerdaten" extrahiert, basierend auf dem ganzzahligen 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.