エクセルVBAで開いたアクセスをエクセルが終了しても開いておきたい

Question

エクセルVBAでアクセスを開を、エクセルが終了しても
そのまま開いておきたいのですが、下記ののコードだと閉じてしまいます。
変数の中身がなくなるので閉じてしまうと思うのですが、
エクセルが終了しても、そのまま開いておく方法はありますでしょうか。
どうぞよろしくお願いします。

Dim accApp As Access.Application

Set accApp = New Access.Application
accApp.OpenCurrentDatabase ActiveWorkbook.Path & "\DB_sample.accdb"
accApp.Visible = True

Answer 1

Accessアプリケーションへの参照が解放される前に、accApp の UserControl プロパティを True に設定して下さい。

Dim accApp As Access.Application

Set accApp = New Access.Application
accApp.Visible = True
accApp.OpenCurrentDatabase ActiveWorkbook.Path & "\DB_sample.accdb"
accApp.UserControl = True
Set accApp = Nothing

Comments

[maru3]

出来ました！
こんなプロパティが(UserControl)があったなんて知りませんでした。
この後、マイクロソフトのページをじっくり読みます。
とても勉強になりました。
どうもありがとうございました。