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