test1からの実行かどうかを取得する方法は

質問

test1のモジュールには、
-------------------------
Set acApp = New Access.Application

With acApp
.OpenCurrentDatabase "C:\test2.accdb"
.Visible = True

.Application.Run "プロシージャ名"

-------------------------
のような感じで
test1からtest2の"プロシージャ名"を実行するＶＢＡコードを書いたのですが
この時に、
test2のファイルからは、test1からの実行かどうかを取得する方法はありますか？

Debug.Print Application.UserControl
で自分で起動したか、
オートメーションを使って他のアプリケーションによって起動されたかを取得できるとの事ですが
「オートメーションを使って他のアプリケーションによって起動された」時に
どのファイルから起動されたかを取得したいです。

回答No.1

NotFound404 · ベストアンサー

べたな方法しかないと思います。
Test2で
Sub プロシージャ名(optional opt as string)
if opt <> "" then
msgbox opt
end if
・・・
としておいて

Sub Test1
・・・
Set acApp = New Access.Application

With acApp
.OpenCurrentDatabase "C:\test2.accdb"
.Visible = True

.Application.Run "プロシージャ名",currentproject.fullname
・・・
のように必要に応じて引数に渡してあげるとか・・・
プロシージャ名を Optional 付にしていますので不要であれば
.Application.Run "プロシージャ名"
のように引数なしで呼び出します。

お礼

ありがとうございました。