Find Access.exe fra VB

Du kan også bruge følgende API-kald:

Declare Function FindExecutable Lib \"shell32.dll\" Alias \"FindExecutableA\" (ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Long

lpFile skal være navnet på en eksisterende db (uden sti), lpDirectory er stien til førnævnte db, og efter kald indeholder result stien til MSACCESS.EXE

Fx:
  Dim Result As String
  Result = Space(128)
  If FindExecutable(\"AutoAccess.mdb\", App.Path & \"\\\", Result) < 32 Then
    MsgBox \"Du skal have Microsoft Access installéret for at kunne benytte dette program...\", vbCritical, App.Title
    End
  Else
    Dim i As Integer
    For i = 1 To Len(Result)
      If Mid(Result, i, 1) = Chr$(0) Then Result = Left(Result, i - 1) & \" \" & Mid(Result, i + 1)
    Next
    MsgBox Result
  End If

Hvis formålet bare er at åbne et database, så kan du jo bare lave en ShellExecute på .mdb filen da Windows jo allerede ved hvilket program den skal åbne .mdb filer med !

Læs mere om Shellexecute her:

http://www.vbapi.com/ref/s/shellexecute.html

Snowball

Kommentar til snowball...

Åbenbart ikke, men det er også en runtime-version af Access

Jakob