AccessVBA_カレントデータベースの場所と名前を取得【CurrentProject】【CurrentDB】

AccessVBAでカレントデータベースが存在する場所を調べる方法

カレントデータベースとは

今開いているデータベースファイルのこと
データベースファイルの場所の指定が必要な時、CurrentProjectオブジェクトを指定すればベタ打ちする必要がない

CurrentProjectオブジェクトの利用

Parent Folderを知りたいときの書式：
CurrentProject.Path

データベースのファイル名を知りたいときの書式：
CurrentProject.Name

▼記述例▼

Sub 場所1()
　Debug.Print CurrentProject.Path
　Debug.Print CurrentProject.Name
End Sub

▼処理結果▼

CurrentDBオブジェクトの利用

フルパスを知りたいときの書式：
CurrentDB.Name
ファイル名を知りたいときの書式：
Dir(CurrentDB.Name)

▼記述例▼

Sub 場所2()
　Debug.Print CurrentDB.Name
　Debug.Print Dir(CurrentDB.Name)
End Sub

▼処理結果▼

「Current」のスペル、LとRのどちらだったっけ、てなる…