MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

2 participantes

    [Resolvido] Erro ao tentar executar arquivo

    avatar
    mcsanches
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 149
    Registrado : 10/06/2012

    [Resolvido] Erro ao tentar executar arquivo Empty [Resolvido] Erro ao tentar executar arquivo

    Mensagem  mcsanches 1/9/2021, 10:07

    Caros amigos, peço ajuda com o erro a tentar executar um arquivo :

    impossivel localizar o ponto de entrada shellexecuteA de dll em shell32.dll


    Com o seguinte código:


    Option Compare Database

    #If VBA7 Then
    '64 bits
    Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As LongPtr, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, _
    ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr
    #Else
    '32 bits
    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
    #End If




    Private Sub Comando26_Click()

    Dim ArqPath As String
    Dim nomepasta As String

    nomepasta = Me.cx_codinformacao & "\"

    If Me.anexo <> "" Then
    ArqPath = CurrentDbDir & "\Inform\" & nomepasta & Me.anexo
    Call ShellExecute(0, vbNullString, ArqPath, vbNullString, vbNullString, 1)

    End If

    Desde já agradeço
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3599
    Registrado : 21/04/2011

    [Resolvido] Erro ao tentar executar arquivo Empty Re: [Resolvido] Erro ao tentar executar arquivo

    Mensagem  Marcelo David 1/9/2021, 13:50

    Boa tarde,
    Alguma objeção de usar o Application.FollowHyperlink ArqPath, já é nativo do Access e não requer APIs.
    A única inconveniência é uma confirmação que ele exibe antes de abrir o arquivo.


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    [Resolvido] Erro ao tentar executar arquivo Marcel11
    avatar
    mcsanches
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 149
    Registrado : 10/06/2012

    [Resolvido] Erro ao tentar executar arquivo Empty Re: [Resolvido] Erro ao tentar executar arquivo

    Mensagem  mcsanches 1/9/2021, 14:03

    Vou testar

    Application.FollowHyperlink

    o melhor dos mundos seria não pedir o ok.
    avatar
    mcsanches
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 149
    Registrado : 10/06/2012

    [Resolvido] Erro ao tentar executar arquivo Empty Re: [Resolvido] Erro ao tentar executar arquivo

    Mensagem  mcsanches 1/9/2021, 14:23

    Top

    testado e funcionando

    Marcelo David

    Muito Obrigado

    Marcelo David gosta desta mensagem

    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3599
    Registrado : 21/04/2011

    [Resolvido] Erro ao tentar executar arquivo Empty Re: [Resolvido] Erro ao tentar executar arquivo

    Mensagem  Marcelo David 1/9/2021, 14:31

    Grato pelo retorno meu caro. O Fórum agradece.


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    [Resolvido] Erro ao tentar executar arquivo Marcel11

      Data/hora atual: 27/9/2022, 14:43