ACC: Start Files or Hyperlinks with Windows API ShellExecute()

MORE INFORMATION

Declaring the Windows API ShellExecute()

1. Open the sample database Northwind.mdb and create a new module named Module1.
2. Add the following code to the Declarations section:

         Option Explicit
   
         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
   
         Global Const SW_SHOWNORMAL = 1
   						

3. Close and save Module1.

Example 1: How to Connect to the World Wide Web

1. Create a new table with the following structure:

         Table: WebSites
         -------------------------------
         FieldName: SiteID
            DataType : AutoNumber
            Indexed: Yes (No Duplicates)
         FieldName: SiteURL
            DataType : Text

2. Save the table as WebSites and switch the table to Datasheet view. Enter the following three records:

         SiteID   SiteURL
         ----------------------------------------
         1        ftp.microsoft.com
         2        www.microsoft.com/kb.htm
         3        http://www.microsoft.com/devonly

3. Use the AutoForm: Columnar Wizard to create a new form based on the WebSites table.
4. Switch the form to Design view and add the following command button:

   Command button:
   Name: cmdConnect
   Caption: Connect to Web

5. Set the cmdConnect button's OnClick property to the following event procedure:

         Private Sub cmdConnect_Click()
         On Error GoTo cmdConnect_Click_Error
   
            Dim StartDoc As Long
               If Not IsNull(Me!SiteURL) Then
                 StartDoc = ShellExecute(Me.Hwnd, "open", Me!SiteURL, _
                   "", "C:\", SW_SHOWNORMAL)
               End If
   
            Exit Sub
   
         cmdConnect_Click_Error:
            MsgBox "Error: " & Err & " " & Error
            Exit Sub
         End Sub
   						

6. Switch the form to Form view.
7. Click the Connect To Web button. Note that your Web browser is started automatically and displays the Web site for the URL listed in the current record.

Example 2: How to Open a File in Its Associated Application

1. Open Module1 and create the following procedure:

         Function StartDoc (DocName As String)
         On Error GoTo StartDoc_Error
   
           StartDoc = ShellExecute(Application.hWndAccessApp, "Open", DocName,
               _ "", "C:\", SW_SHOWNORMAL)
         Exit Function
   
         StartDoc_Error:
            MsgBox "Error: " & Err & " " & Error
            Exit Function
         End Function
   						

2. On the View menu, click Debug Window.
3. In the Debug window, type the following line, and then press ENTER:

   StartDoc "Bubbles.bmp"

   Note that the function starts Microsoft Paint, which loads the Bubbles.bmp file.

NOTES

• The Windows API ShellExecute() function differs from the Visual Basic Shell() function in that you can pass the ShellExecute() function the name of a document, and it will start the associated application, and then pass the file name to the application. You can also specify the working folder for the application.
• The return value for the StartDoc() function is the same as for the Shell() function. It is the Windows instance value of the application that was started.