タイトル : ShellExecute(VB6)からのAccess(mde)起動について 投稿日 : 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)にも同様の質問を投げさせて貰っています。 (マルチポストになってしまうため、それ以外の所には書いてません) よろしくお願いします。 |