Carregar (exibir) arquivo de help chm

Prezados,

Obtive aqui mesmo no forum função (que adaptei) para carregar/exibir um arquivo de ajuda extensão chm.Funciona no Access instalado normalmente.Quando executado sob o runtime 2013 simplesmente não funciona e nem apresenta erro. Se alguém puder ajudar já agradeço antecipadamente.

Função
=====
Public Sub Show_Help(HelpFileName As String, MycontextID As Long)

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
....................................................................................................
Execução do arquivo
==============
Public Function HelpExec()

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

Na tabela configurações tenho o campo ArqHelp com o nome do arquivo "Apphelp.chm"
....................................................................................................

No escopo desse módulo não possui nenhum On Error Resume Next?
Porque o que pode acontecer as vezes é justamente isso.

Outra coisa, esse caminho que ele busca da tabela de configurações está correto? Porque vi que ele busca Diretorio de instalação, que creio eu ser diferente do runtime para o instalado (não lembro exatamente).

Prezado Marco, obrigado pela resposta.

O caminho na tabela configurações está correto. Tentei acrescentar o "On Error Resume Nex" porém no runtime simplesmente nada acontece. Aliás tenho outros problemas ao executar o runtime como a criação de 'CreateObject' que devo estar postando aqui no forum.

É bastante decepcionante, depois de fechar um aplicativo 100%  rodando no access full 2010 , ao rodá-lo no runtime vários erros aparecendo.

Existe esse problema mesmo de depuração no Access Runtime.
Quando eu falei sobre o On Error Resume Next, não era pra colocar no código, pois eu quis dizer que ele poderia ser o causador do problema de não aparecerem erros, pois como o comando mesmo sugere, ele deve prosseguir mesmo que ocorram erros, fazendo assim com que você não saiba o que aconteceu. É uma péssima prática diga-se de passagem.

Como você não consegue depurar da maneira mais comum no runtime do Access, tente usar uma messagebox para mostrar o caminho que está tentando carregar o help, assim:

Código:


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

msgbox caminho
msgbox arqhelp