HOME > 即効テクニック > AccessVBA > データベース・データ保護 > カレントデータベースを参照する

即効テクニック

データベース・データ保護

カレントデータベースを参照する

(Access 2000/2002/2003)
●概要●
構文  expression.CurrentDb

設定項目        内容
expression      Applicationオブジェクト[省略可能]

現在Accessウィンドウに開いているデータベースを参照します。
次のコードは、現在Accessウィンドウ上に開いているデータベースの名前を表示するものです。

●設定●
動作確認をするためには、Visual Basic Editorのメニューから[ツール]→[参照設定]コマンドを選択し、[参照設定]ダイアログボックスで「Microsoft DAO 3.6 Object Library」にチェックを入れてください。

●サンプル●
Sub CurrentDbSample()
    Dim myDB As Database
  'Accessで現在開いているデータベース
    Set myDB = CurrentDb
  'データベースの名前を表示
    MsgBox "データべース名: " & myDB.Name
End Sub

●ポイント●
OpenDatabeseメソッドは、保存されているデータベースのデータにアクセスできるように、VBA内でデータベースを開いて参照するものです。メソッドを使用する際、Access画面上にデータベースファイルを開く必要はありません。一方、CurrentDbメソッドは、現在Access画面上に開いているデータベースを参照するものです。

●補足●
CurrentDbメソッドでは、カレントデータベースオブジェクトのインスタンスを作成し、これを参照しています。カレントデータベースを参照する変数を複数作成すれば、インスタンスを同時に複数作成することになります。したがって、複数のユーザーが同時にデータベースにアクセスした際の競合を防ぐことができます。