[Resolvido]Problemas de executar arquivo chm no runtime

Prezados,

Tenho um arquivo de ajuda compilado chm que eu chamo atraves de ícone em uma ribbon (chamo a função HelpEntry()) . Funciona perfeitamento no access 2010 full porém no runtime ms access 2010 e 2013 não carrega de jeito nenhum. Alguma idéia? Agradeço antecipadamente a atenção.

Módulo>>

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)

On Error Resume Next

Dim hwndHelp As Long

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()
On Error Resume Next

Dim FormHelpId As Long
Dim caminho, arqhelp, FormHelpFile As String
Dim curForm As Form

caminho = DLookup("[Diretorio_instalação]", "tb_Configurações", "[Diretorio_instalação]")
arqhelp = DLookup("[ArqHelp]", "tb_Configurações", "[ArqHelp]")

FormHelpFile = caminho & arqhelp
FormHelpId = 0

Show_Help FormHelpFile, FormHelpId
End Function

>>>>>

Eu uso uma rotina mais simplificada para abrir arquivos. Teste aí:

Primeiro, crie um módulo, dê-lhe o nome de mdlAjuda por exemplo e deixe ele com o código abaixo:

Código:

Option Compare Database

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

No clique do botão que vai abrir a ajuda, coloque:

Código:

Dim strArquivo As String
strArquivo = CurrentProject.Path & "\Ajuda.chm"
Call ShellExecute(0, vbNullString, strArquivo, vbNullString, vbNullString, 1)

Você só precisa mudar o caminho do arquivo em strArquivo = ... para o seu caso.

criquio, obrigado pela resposta. Alterei segundo sua dica e funcionou perfeitamente!!

Grato pelo retorno. O fórum agradece.