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

    [Resolvido]Problemas de executar arquivo chm no runtime

    Compartilhe

    M2013
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Problemas de executar arquivo chm no runtime

    Mensagem  M2013 em Ter 11 Nov 2014, 11:23

    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

    >>>>>


    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Re: [Resolvido]Problemas de executar arquivo chm no runtime

    Mensagem  criquio em Qua 19 Nov 2014, 04:08

    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.


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    M2013
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Problemas de executar arquivo chm no runtime

    Mensagem  M2013 em Sex 21 Nov 2014, 10:59

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

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Re: [Resolvido]Problemas de executar arquivo chm no runtime

    Mensagem  criquio em Sex 21 Nov 2014, 12:54

    Grato pelo retorno. O fórum agradece.


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


      Data/hora atual: Sab 03 Dez 2016, 15:36