[AccessD] Help class

Probably not what you are looking for, but on one of my larger
applications, I created a website for help.  I had the following code
(this was a VB 6 project): (forgive the formatting.... had line numbers
in this project....)

Option Explicit
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long,
ByVal nCmdShow As Long) As Long
Function OpenHelpPage(strName As String, Optional strExtraData As String
= "")
10    On Error GoTo ErrorHandler 'Wolfwares Error Handling
20    Dim ie
30    Set ie = CreateObject("InternetExplorer.Application")
40    ie.Navigate isfeCurrentUser.IntranetURL & "\ISFEHelp\" & strName &
".asp?CurrentUser=" & isfeCurrentUser.NTName & "&Extra=" & strExtraData
50    ie.Visible = True
60    ShowWindow ie.hwnd, 3
70    Set ie = Nothing
80    'WolfWares Error Handler
90    Exit Function
100 ErrorHandler:
110
120   Select Case Err.Number
          Case Else
140           GlobalWWErrorHandler.Module = "modOpenHelpPage"
150           GlobalWWErrorHandler.Procedure = "OpenHelpPage"
160           GlobalWWErrorHandler.LineNumber = Erl
170           GlobalWWErrorHandler.ErrorNumber = Err.Number
180           GlobalWWErrorHandler.ErrorDescription = Err.Description
190           GlobalWWErrorHandler.RaiseError
200           Err.Clear
210   End Select
End Function

Then, on each form, I would add the following code behind a Help menu
item. (Again, please forgive the formatting...)

Private Sub mnuHelp_Click()
10    On Error GoTo ErrorHandler 'Wolfwares Error Handling
20    If CurrentUser.Role("IS User") Then
30        OpenHelpPage Me.Name, "ISUser"
40    Else
50        OpenHelpPage Me.Name
60    End If
70    'WolfWares Error Handler
80    Exit Sub
90 ErrorHandler:
100
110   Select Case Err.Number
          Case Else
130           GlobalWWErrorHandler.Module = "frmCreateRequest"
140           GlobalWWErrorHandler.Procedure = "mnuHelp_Click"
150           GlobalWWErrorHandler.LineNumber = Erl
160           GlobalWWErrorHandler.ErrorNumber = Err.Number
170           GlobalWWErrorHandler.ErrorDescription = Err.Description
180           GlobalWWErrorHandler.RaiseError
190           Err.Clear
200   End Select
End Sub


There a tons of tools out there that will let you create a web page
pretty easily, so I was making a web page based on the form name, and it
was asp based, so some different information would display based on the
'extra info' part, like Admin users usually have extra features on each
form, so the help would show information on those options.

Drew





-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of jwcolby
Sent: Friday, June 10, 2011 8:20 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] Help class

Does anyone use a table driven help class for displaying help about your
applications?

I know that Access has built-in help capabilities but I have never found
a help compiler that was 
easy to use, and it just seems like a system where the help is in a
table or tables would be more 
flexible.

Anyone?
-- 
John W. Colby
www.ColbyConsulting.com
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
The information contained in this transmission is intended only for the person or entity 
to which it is addressed and may contain II-VI Proprietary and/or II-VI Business 
Sensitive material. If you are not the intended recipient, please contact the sender 
immediately and destroy the material in its entirety, whether electronic or hard copy. 
You are notified that any review, retransmission, copying, disclosure, dissemination, 
or other use of, or taking of any action in reliance upon this information by persons 
or entities other than the intended recipient is prohibited.