| タイトル | ： ShellExecute(VB6)からのAccess（mde）起動について |
| 記事No | ： 12854 |
| 投稿日 | ： 2008/08/03(Sun) 09:49 |
| 投稿者 | ： 安東焼酎 |
OS:WinXP(Pro)
VB Version:6.0
Access Version:Access2000
VB6.0で作成したexeから、Accessのmdb（or mde）を起動させようとしています。
■■■VB6.0■■■
Private Sub Command1_Click()
Call ShellExecute(Screen.ActiveForm.hwnd, "Open", "c:\db1.mdb", "aaa", 0, 1)
End Sub
■■■■■■■■■
■■■Access（Module）■■■
Public Function Main() As Boolean
Dim a As String
a = Command$
MsgBox a
End Function
※このModuleをAutoExecマクロで、アクション→［プロシージャの実行］で呼ぶ形にしています。
■■■■■■■■■■■■■■
これを［ファイル名で指定して実行］にて、
"""C:\Program Files\Microsoft Office\Office\MSACCESS.EXE""" c:\db1.mdb /cmd aaa
と打つと、mdbが起動して、MsgBoxに『aaa』とされるのですが、
VB6.0のコマンドボタンクリックからだと、mdbは起動してMsgBoxは出るけど、
肝心の『aaa』が表示されないのです。
VB6.0の板で聞くべきなのか、それともAccessで伺うべきなのか、
どちらが良いのか判断が出来なかったので、こちらだけでなく、
AccessClubさん（www.accessclub.jp）にも同様の質問を投げさせて貰っています。
（マルチポストになってしまうため、それ以外の所には書いてません）
よろしくお願いします。
|