アクセスの連続実行のやり方

質問

アクセスで作ったプログラムのいくつかを連続実行するマクロ、又はｖｂａを
教えてください。

プログラムはオートエグゼで立ち上げ後、自動終了します。
これらを（1）を立ち上げ、終了後
　　　　（2）を立ち上げ、終了
　　　　（3）を立ち上げ、終了

というように順次実行する
という内容です。

回答No.2

ruru0707 · ベストアンサー

No1.mdbのMDBの処理はマクロと言う事ですね？
では、No1.mdbにNo2.mdbを開く為のモジュールを作成します。
これは必ずファンクションにして下さい。
------------------------------------------------------------
Public Function pFunオープン()
Dim 実行 As Variant

実行 = Shell("C:\Program Files\Microsoft Office\Office\msaccess.exe " & _
"G:\Access\No2.mdb /x AutoExec", 3)
Exit Function

End Function
-------------------------------------------------------
これでNo2.mdbのマクロのAutoExecを実行させる処理ができます。
No1.mdbのマクロの処理の最後に『プロシージャーの実行』を追加し、
プロシージャー名に『pFunオープン()』を記入して、上記のファンクションの実行をさせればOKです。
No3.mdbについても同様にすればOKです。

マクロ名をAutoExecにされているそうですが、
自動で実行させるのであればわかりやすいようにそれぞれの処理の名称にしてみるのもよいでしょうね。
もちろんAutoExecのままでも実行は可能です。

補足

デスクトップにNo1.mdb 　No2.mdb　 No3.mdbをつくりNo1.mdb
のモジュールに以下を書きました。
Public Function pFunオープン()
Dim 実行 As Variant
実行 = Shell("C:\Program Files\Microsoft Office\Office\MSACCESS.exe " & _
"C:\Documents and Settings\e_take\デスクトップ\No2.mdb /x AutoExec", 3)
Exit Function
End Function

そしてNo1.mdbのマクロに『プロシージャーの実行』を追加し、
プロシージャー名に『pFunオープン()』を記入して、上記のファンクションの実行をさせましたがコマンドライン引数が不正となります。
解決策を教えてください