Visual Basicから起動中の特定のmdbファイルを終了したい

質問

Visual Basicのコマンドボタンを押すことで、起動中の特定のmdbファイル（例えば　C:\生徒管理\2学年.mdb）を終了したいのですが、どう記述すればよいのでしょうか？
困っています。よろしくお願いします。

回答No.1

taka_tetsu · ベストアンサー

特定のmdbファイルを終了したいというのは、
あるmdbを開いているAccessを終了させたいということで
いいでしょうか？

という前提でいきます。あと、確認したのがVB6.0、Access2000なので、Accessのバージョンによっては
（特に97、95）では動かないかもしれません。

１．GetObjectで、引数で指定したファイルを開いているAccessのオブジェクトを取得します。

２．取得できたら閉じるだけ

以上です。

一応サンプルを。
Dim ac As Object

Set ac = GetObject("C:\生徒管理\2学年.mdb")
ac.DoCmd.Quit
Set ac = Nothing

DoCmd.Quitは、終了のさせ方でパラメータがありますので
詳しくはAccessのVBAのヘルプで確認してください。

お礼

ご指摘の前提のとおりです。
頂いたサンプルを、そのまま貼り付けて試してみたところ
上手くいきました。ありがとうございました。