一个有意思的问题,请高手解决

binbow_z

在窗体中按按钮帮助后,会出现这样的帮助界面,如何将标题栏中的MICROSOFT ACCESS帮助改为销售管理系统帮助,并将"应答向导"和"索引"两个选项卡去掉
我的罗斯文数据库中没有找到调用罗斯文数据库的帮助的宏,但我找到了ShowHelpAPI函数
Function ShowHelpAPI() As Boolean
   
    ' This procedure is used by the Show Me button on various Developer
    ' Solutions toolbars. It uses the WinHelp API function so that the
    ' Show Me Help button will provide context-sensitive Help regardless
    ' of the current state of the object. Make sure that the Help file is
    ' in the same directory as the Developer Solutions database.
   
    Dim lnghWnd As Long, strHelpFile As String, lngContext As Long
    Dim lngRetVal As Long, obj As Object
   
    On Error Resume Next
    Const conHelpContext = &H1
    Set obj = Screen.ActiveForm
   
    If Err = 2475 Then
        ' Active object is not a form.
        ' Reset Err and test for Report object.
        Err = 0
        Set obj = Screen.ActiveReport
            If Err = 2476 Then
                ' Current object is not a form or a report.
                MsgBox "Select a form or report before you ask for help."
                ShowHelpAPI = False
                Exit Function
            End If
    End If
   
    With obj
        ' Get the current object's hWnd, HelpFile, and HelpContextID properties.
        lnghWnd = .hWnd
        strHelpFile = .HelpFile
        lngContext = .HelpContextId
    End With
   
    lngRetVal = WinHelp(lnghWnd, strHelpFile, conHelpContext, lngContext)
    ShowHelpAPI = True
End Function

但 lngRetVal = WinHelp(lnghWnd, strHelpFile, conHelpContext, lngContext)出现错误不知为什么

binbow_z

不好意思,多上传了一个

binbow_z

我在制作帮助时没有设置索引,而且索引是MICROSOFT ACCESS的!!