引用:
このAccessファイル(test1.accdb)から、test2.accdbを起動します。
test2.accdbにT_ログインをリンクすることはできますが、たくさんログイン者がいる中で
今test2.accdbを起動した人のログインIDを見つける方法が浮かびません。
ログインの為なのですね。すみません、見落としておりました。
Shell 起動 を行っているのであれば、コマンドラインスイッチが使用できますので
cmd スイッチ を使用します。
Dim Acc As Access.Application
Shell PathName:="C:\Program Files (x86)\Microsoft Office\Office14\MSACCESS.EXE _
C:\AccApp\test2.accdb", WindowStyle:=vbMaximizedFocus
Set Acc = GetObject("C:\AccApp\test2.accdb")
Acc.Forms("F_login").Controls("txt_loginid").Value = Forms.f_login.txt_loginid.Value
Set Acc = Nothing
を ↓
Shell PathName:="C:\Program Files (x86)\Microsoft Office\Office14\MSACCESS.EXE _
C:\AccApp\test2.accdb
/cmd " & Forms.f_login.txt_loginid.Value , WindowStyle:=vbMaximizedFocus
の様に コマンドラインスイッチ cmd を使用し、ログインの値 を渡す様にします。
(オートメーション部分は不要です)
test2.accdb 側 の フォーム F_login
Load時に
Private Sub Form_Load()
If Command() <> "" Then Me.txt_loginid = Command()
End Sub
として起動された ファイル側にて、command の有無 を確認し、あればセットするようにします。