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

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

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

No.1 ベストアンサー 回答者： bonaron 回答日時： 2009/04/05 21:10

Access2000 以降でしたら

MsgBox CurrentProject.Name で。

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

この回答へのお礼

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

お礼日時：2009/04/05 21:48