VB Forum / COM / January 2004

¤ I would like to shell out to acces and open a particular mdb file when
¤ exiting my vb app. How can I do this. here is what I have so far but to not
¤ avail.
¤
¤ Shell ("C:\Program Files\Microsoft Office XP\Office10\MSACCESS.EXE" &
¤ App.Path & "\CheckManagerXP.mdb")
¤
¤

Try using the ShellExecute API function call:

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
                  (ByVal hwnd As Long, ByVal lpszOp As String, _
                   ByVal lpszFile As String, ByVal lpszParams As String, _
                   ByVal LpszDir As String, ByVal FsShowCmd As Long) _
                   As Long

Sub LaunchAccess()

Const SW_SHOWNORMAL = 1
 
ShellExecute 0&, "Open", "e:\My Documents\Accessdb.mdb", "", "e:\My Documents\", SW_SHOWNORMAL

End Sub

Paul ~~~ pclement@ameritech.net
Microsoft MVP (Visual Basic)