次の方法で共有


Application.CodeDb メソッド (Access)

コード モジュールで CodeDb メソッドを使用して、コードが現在実行されているデータベースを参照する Database オブジェクトの名前を決定します。 ライブラリ データベースの一部であるデータ アクセス オブジェクト (DAO) にアクセスするには、CodeDb メソッドを使います。

構文

CodeDb

expressionApplication オブジェクトを 表す変数。

戻り値

Database

注釈

たとえば、ライブラリ データベースのモジュールで CodeDb メソッドを使って、ライブラリ データベースを参照する Database オブジェクトを作成できます。 その後、ライブラリ データベースのテーブルに基づくレコードセットを開くことができます。

データベース= CodeDb を設定する

CodeDb メソッドは Database オブジェクトを返し、オブジェクトの " Name /名前" プロパティには、メソッドを呼び出したコードを含むデータベースの名前とフル パスが入ります。 このメソッドは、ライブラリ データベース内のデータ アクセス オブジェクトの操作に役立ちます。

ライブラリ データベースのメソッドを呼び出す場合に、コードがライブラリ データベースのモジュールで実行されていても、呼び出したメソッドを含むデータベースはカレント データベースとなります。 ライブラリ データベース内のデータ アクセス オブジェクトを参照するには、ライブラリ データベースを表す Database オブジェクトの名前を知る必要があります。

たとえば、ライブラリ データベースにエラー メッセージを一覧表示するテーブルがあるとします。 コードからテーブル内のデータを操作するには、 CodeDb メソッドを使用して、テーブルを含むライブラリ データベースを参照する Database オブジェクトの名前を決定できます。

カレント データベースで CodeDb メソッドを実行すると、カレント データベースの名前 ( CurrentDb メソッドが返す値と同じ) が返されます。

次の使用例では、 CodeDb メソッドを使ってライブラリ データベースを参照する Database オブジェクトを取得します。 ライブラリ データベースには、[エラー] という名前のテーブルと現在実行中のコードが含まれています。 CodeDb メソッドがこの情報を決定した後、GetErrorString 関数は Errors テーブルに基づいてテーブル型のレコードセットを開きます。 その後、その関数に渡された Integer 型の値に基づいて、[エラーデータ] という名前のフィールドからエラー メッセージを抽出します。

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

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。