MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Carregar (exibir) arquivo de help chm

    Compartilhe

    M2013
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 56
    Registrado : 07/06/2013

    Carregar (exibir) arquivo de help chm

    Mensagem  M2013 em Seg 20 Out 2014, 11:55

    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"
    ....................................................................................................

    Marco Messa
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 283
    Registrado : 28/06/2010

    Re: Carregar (exibir) arquivo de help chm

    Mensagem  Marco Messa em Ter 21 Out 2014, 14:21

    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).


    .................................................................................
    Tea with me that I book your face [Você precisa estar registrado e conectado para ver esta imagem.]

    M2013
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 56
    Registrado : 07/06/2013

    Carregar (exibir) arquivo de help chm

    Mensagem  M2013 em Qua 22 Out 2014, 12:56

    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.

    Marco Messa
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 283
    Registrado : 28/06/2010

    Re: Carregar (exibir) arquivo de help chm

    Mensagem  Marco Messa em Qua 22 Out 2014, 14:34

    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


    .................................................................................
    Tea with me that I book your face [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Sex 09 Dez 2016, 11:34