スキルアップ・問題解決なら、モーグにおまかせ！

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