Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations wOOdy-Soft on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Create custom help file with navigation pane

Status
Not open for further replies.

PNC

MIS
Jun 7, 2001
87
US
Hi,

I've used HTML Help Workshop to create a help file (*.chm) for an access database, then I specify this file in the form properties and change the help context id to a valid value available in my file.

My problem is, when I press F1, I don't see the navigation pane, however when I execute the file separately it's there.

Any ideas why???

Thanks,
PNC.
 
I have the same problem. Never found a solution.

I found a work around. I created a toolbar with a help button, that opens the help file with the search. I have the toolbar always available.
When someone is using a specific form or feature, the f1 key will direct them to help on that form or feature.

Mark P.
Providing Low Cost Powerful Point of Sale Solutions.
 
Thanks Mark, I will try that.

PNC.
 
PNC

Actually, i was wrong earlier. This is the solution i use, and it covers your problem:

Option Compare Database

Option Explicit

' This API is used for talking to the help file.
' Always be careful when calling APIs directly. Be sure to read
' the online documentation before using any APIs.
Private Declare Function HtmlHelp Lib "HHCtrl.ocx" Alias "HtmlHelpA" _
(ByVal hwndCaller As Long, ByVal pszFile As String, _
ByVal uCommand As Long, dwData As Any) As Long

Private Const HH_INITIALIZE = &H1C
Private Const HH_UNINITIALIZE = &H1D
Private Const HH_DISPLAY_TOPIC = &H0
Private Const HH_HELP_CONTEXT = &HF
Private Const HH_CLOSE_ALL = &H12

Public Function fnHelp(helpID As Long) As Variant
Dim gFSO As Object
Set gFSO = CreateObject("Scripting.FileSystemObject")
Dim strHelpFileName As String


strHelpFileName = CurrentProject.Path & "\CafeCartelHelp.chm"
End If

fnHelp = HtmlHelp(Application.hWndAccessApp, strHelpFileName, _
HH_HELP_CONTEXT, ByVal helpID)

End Function


Mark P.
Providing Low Cost Powerful Point of Sale Solutions.
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top