ACC: How to Call the Windows Help Search Dialog Box

MORE INFORMATION

The following example demonstrates how to activate the Search dialog box with a sample Access Basic function called OpenHelpSearch(). This example uses the Microsoft Access Help file:

NOTE: In the following sample code, an underscore (_) is used as a line- continuation character. Remove the underscore from the end of the line when re-creating this code in Access Basic.

1. Enter the following lines in a new module's Declarations section:
   

         Option Explicit
         Global Const HELP_PARTIALKEY = &H105
         Declare Function WinHelp Lib "User" (ByVal hWnd As _
            Integer, ByVal lpHelpFile As String, ByVal _
            wCommand As Integer, ByVal dwData As Any) As Integer
         Declare Function HC_FindWindow% Lib "user" Alias "FindWindow" _
            (ByVal lpClassName As Any, ByVal lpCaption As Any)
   						

2. Create two procedures by entering the following code in the module:
   

          Function OpenHelpSearch ()
            Dim DummyVal$, Temp%
            DummyVal$ = ""
            Temp% = WinHelp(GetAccessHandle(),_
               "c:\Access\msaccess.hlp", HELP_PARTIALKEY, DummyVal$)
            'For version 2.0, replace Temp% = etc with the following:
            'Temp% = WinHelp(GetAccessHandle(),_
            '   "c:\Acc2\msacc20.hlp", HELP_PARTIALKEY, DummyVal$)
         End Function
   
         Function GetAccessHandle ()
            GetAccessHandle = HC_FindWindow("Omain", 0&)
         End Function
   						

3. Save the module as Search Help.
4. From the Run menu, choose Compile All.
5. Type the following in the module's Immediate window, and then press ENTER:
   
   ? OpenHelpSearch()

When you call the OpenHelpSearch() function, the Windows API WinHelp() function is called. The OpenHelpSearch() function passes the current Microsoft Access handle, the name of the Help file, the command HELP_PARTIALKEY and a null string to the WinHelp() function. You are then prompted for a topic to search for. Note that you can call the OpenHelpSearch() function from any command button.