PRA: Help Context ID Property Does Not Work in Subform

The information in this article applies to:

• Microsoft Access version 1.0

1. Create the following macro and save it as AutoKeys:

         MacroName     Action
         ---------------------
         {F1}          RunCode
   

         AutoKeys Actions
         --------------------------------------------------
         RunCode
            Function Name: =Help("<c:\access\yourhlp.hlp>")
   

         NOTE: Substitute the correct drive, path, and filename for the
         Help file you want to use in the example above.
   

2. Create a module with the following sample code:

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

   'Declarations section of the module

   Option Explicit

   Declare Function WinHelp% Lib "User" (ByVal hwnd%, ByVal lpHelpFile$,_
                                         ByVal wCmd%, ByVal dwData As
   Any)

   Global Const HELP_CONTEXT = &H1
   Global Const HELP_CONTENTS = &H3

   ' FUNCTION NAME: Help()
   '
   ' PURPOSE:
   '   Based on the currently active control, the Windows Help() API
   '   function is called to invoke Help on a predefined ContextID for
   '   the control. If the ControlName is not represented, a
   '   message appears, indicating no Help topic is available.
   '   If there is no active form available, the contents of the
   '   Help file are invoked.
   '
   ' INPUT PARAMETERS:
   '   HelpFile: Path and filename of Help file to use
   '
   ' RETURN
   '   None

   Function Help (HelpFile As String)
      Dim ContextID As Long
      Dim Ret As Integer

      On Error GoTo HelpError

      ' Determine which control needs Help and set the
      ' .. appropriate ContextID for the control.
      Select Case Screen.ActiveControl.ControlName

   'NOTE: You must customize the Case statements that follow
   '      for your specific control names and the ContextID to call
   '      for the control name.

         Case "Category ID"
           ContextID = 1
         Case "Category Name"
           ContextID = 1
         Case "Description"
           ContextID = 1
         Case "Product ID"
           ContextID = 2
         Case "Product Name"
           ContextID = 2
         Case "Unit Price"
           ContextID = 2
         Case "Picture"
           ContextID = 2
         Case Else
            MsgBox "No help for " & Screen.ActiveControl.ControlName
            ContextID = -1
      End Select

      ' Call the Help file with the appropriate ContextID.
      If ContextID > -1 Then
         Ret = WinHelp(Screen.ActiveForm.hwnd, HelpFile, _
                       HELP_CONTEXT, ContextID)
      End If

      GoTo ByeHelp

   HelpError:
      ' Display the Contents window of the Help file.
      Ret = WinHelp(0, HelpFile, HELP_CONTENTS, 0&)
      Resume ByeHelp

   ByeHelp:
   End Function