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

質問

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

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 · ベストアンサー

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

acApp.UserControl = True

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

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

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

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

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

お礼

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

回答No.2

o_chi_chi

Dim acApp As Object

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

ちなみに

"C:\test2.accdb"

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

お礼

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

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

回答No.1

bin-chan

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

お礼

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

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