アクセスからアクセスを立ち上げたいのですが

オフィス２００７です。
アクセスからアクセスを立ち上げたいのですが、うまくいきません。

test1.accdbにフォームとコマンドボタンを設置して、

Private Sub コマンド1_Click()
Dim acApp As Object
Set acApp = CreateObject("Access.Application")
acApp.OpenCurrentDatabase C:\test2.accdb"
acApp.Visible = True
End Sub

を実行したのですが、アクセスのアプリケーションが一瞬だけ開いて、閉じてしまいます。

「 acApp.Visible = True」の部分に、ブレークポイントを設定して、ステップインしてみたところ、
acApp.Visible = Trueでアクセスのアプリケーションが立ち上がり、test2.accdbが表示されますが
「End Sub」で閉じてしまいます。

ずっと開き続けるにはどうすればいいでしょうか？

No.3 ベストアンサー 回答者： 30246kiku 回答日時： 2012/07/12 20:33

提示された VBA でやろうとした場合、

acApp.UserControl = True

を記述追加してみて、どうなりますか。



※ ただ単に Accessファイルを別プロセスで起動したい場合

・コマンドボタンの HyperlinkAddress に起動したいファイルパスを設定するとか
・FollowHyperlink　でそのファイルパスを指定するとか
・CreateObject("Shell.Application").ShellExecute　でそのファイルパスを指定するとか
・API の　ShellExecute　を使って
　　Call ShellExecute(0, "OPEN", ファイルのパス, "", "", 1)

等々、実現する方法はいろいろあると思います。

※※　それぞれ起動された後の表示の違い等は実際にやってみてください。

この回答へのお礼

方法はいくつかあるのですね。ありがとうございました。

お礼日時：2012/07/19 20:45

No.2 回答者： o_chi_chi 回答日時： 2012/07/12 08:45

Dim acApp As Object

をグローバル変数にすればどうでしょう。

ちなみに

"C:\test2.accdb"

まえダブルクォーテーションがありません。

この回答へのお礼

Public acApp As Object
にしたら、できました！

ダブルクォーテーションつけわすれてました。
ありがとうございました。大変参考になりました。

お礼日時：2012/07/19 20:45

No.1 回答者： bin-chan 回答日時： 2012/07/11 21:21

ご質問への回答とは離れますが「２つ立ち上げて何をなさりたいのか」を教えていただけますか？

この回答へのお礼

本来は二つのファイルを立ち上げたいのならば、
C:\にはいっている
test1.accdb
test2.accdb
をクリックして開くか、
スタートアップに入れて起動時に開けばいいのですが
test1.accdbのフォームのコマンドボタンを押してあるプロシージャーを実行するタイミングでtest2.accdbを開きたいのです。

説明不足で申し訳ございません。
再度ご回答宜しくお願いいたします。

お礼日時：2012/07/12 19:35