OFFXPDEV: Custom Help File Is Displayed in Access Help Window (275117)

RESOLUTION

1. See the following article in the Microsoft Knowledge Base

   296231 OFFXPDEV: How to Create Context Sensitive HTML Help Files

   and then follow the instructions in the article to create the sample Help file and database.
2. In the same database in which you created the form, click Modules in the Database window, and then click New.
3. Type or paste the following code in the new module:

   Option Compare Database
   Option Explicit
   
   Declare Function HtmlHelp Lib "hhctrl.ocx" Alias "HtmlHelpA" _
           (ByVal hwndCaller As Long, ByVal pszFile As String, _
            ByVal uCommand As Long, ByVal dwData As Long) As Long
   
   Const HH_DISPLAY_TOPIC = &H0
   Const HH_SET_WIN_TYPE = &H4
   Const HH_GET_WIN_TYPE = &H5
   Const HH_GET_WIN_HANDLE = &H6
   Const HH_DISPLAY_TEXT_POPUP = &HE
   Const HH_HELP_CONTEXT = &HF
   Const HH_TP_HELP_CONTEXTMENU = &H10
   Const HH_TP_HELP_WM_HELP = &H11
   
   Public Sub Show_Help(HelpFileName As String, MycontextID As Long)
       'A specific topic identified by the variable context-ID is started in
       'response to this button click.
       Dim hwndHelp As Long
   
       'The return value is the window handle of the created Help window.
       Select Case MycontextID
           Case Is = 0
               hwndHelp = HtmlHelp(Application.hWndAccessApp, HelpFileName, _
                          HH_DISPLAY_TOPIC, MycontextID)
           Case Else
               hwndHelp = HtmlHelp(Application.hWndAccessApp, HelpFileName, _
                          HH_HELP_CONTEXT, MycontextID)
       End Select
   End Sub
   
   Public Function HelpEntry()
       'Identify the name of the Help file and a possible context-id.
       Dim FormHelpId As Long
       Dim FormHelpFile As String
       Dim curForm As Form
   
       'Set the curForm variable to the currently active form.
       Set curForm = Screen.ActiveForm
   
       'As a default, specify a generic Help file and context-id. Note that
       'the location of your file may be different.
       FormHelpFile = "C:\MyProject.chm"
       FormHelpId = 1001
   
       'Check the Help file property of the form. If a Help file exists,
       'assign the name and context-id to the respective variables.
       If curForm.HelpFile <> "" Then
           FormHelpFile = curForm.HelpFile
       End If
   
       'If the Help context-id of the control is not null and greater than
       'zero, assign the value to the variable.
       If Not IsNull(curForm.ActiveControl.Properties("HelpcontextId")) Then
           If curForm.ActiveControl.Properties("HelpcontextId") > 0 Then
               FormHelpId = curForm.ActiveControl.Properties("HelpcontextId")
           End If
       End If
   
       'Call the function to start the Help file, passing it the name of the
       'Help file and context-id.
       Show_Help FormHelpFile, FormHelpId
   End Function
   					

4. Save the module as Module1, and then quit the Visual Basic Editor.
5. In the Database window, click Macros, and then click New.
6. On the View menu, click Macro Names.
7. Type the following in the first line in the Macro Name column:

   {F1}

8. Set the Action field for {F1} to RunCode.
9. For the Function Name argument, type the following:

   =HelpEntry()

10. Save your new macro as AutoKeys and close it.
11. In the Database window, click Forms, and then open Form1 in Form view.
12. Click the second field, and then press F1. Note that the custom Help file is displayed in its own window.