1

vb6を使用して特定のAccessフォームを開こうとしていShellますが、多くのドキュメントを読んだ後、Accessがデータベースを見つけられない理由を見つけることができません。

dim ss as string
ss = MSAccFolder & "\MSAccess.exe" & " " & app.path & "\database\db.mdb /cmd " & ""formname""
Shell sss, vbNormalFocus

私があなたに言うべき興味深いことは、しばらくするとAccessが開き、このパスを持つデータベースが見つからないと言っていることです

MYAPPPATH/MYFORMNAME.mdb

どうしたの？

4

2 に答える 2

3

app.pathスペースを含めることができます。app.pathと"\database\db.mdb"を引用符で囲みます。申し訳ありませんが、VB構文を忘れてしまいました。

于 2012-09-04T11:56:07.267 に答える
0

ついに私は解決策を見つけました。

    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

'This will open Access with the specified name

    Dim ss As String
    ss = App.path & "\database\db.mdb"
    ShellExecute Me.hwnd, vbNullString, ss, vbNullString, "C:\", SW_SHOWNORMAL
于 2012-09-05T03:45:57.530 に答える