アクセス 自身のデータベース名を取得するのは「CurrentDatabase」ではない？

質問

Sub test()
MsgBox CurrentDatabase
End Sub
を実行すると
「変数が定義されていません。」となってしまいます。

エクセルで言う
MsgBox ActiveWorkbook.Name
を行ないたいのですがどんなコードを書けばいいのでしょうか？
よろしくお願いします。

回答No.1

bonaron · ベストアンサー

Access2000 以降でしたら
MsgBox CurrentProject.Name で。

Access97 なら
CurrentDB.Name で フルパスが返るので
そこから最後の「\」を探し
ファイル名のみを取得するロジックが必要です。

お礼

MsgBox CurrentProject.Name でできました。ありがとうございます。