Notificação ao abrir arquivo

Olá amigos,

Sempre que tento executar o código abaixo para abrir qualquer arquivo, aparece uma notificação. Como desabilito isso? Já procurei por tudo e não encontrei.


código:

Código:


Application.FollowHyperlink "C:\Users\Rafael\Documents\LANCE FINAL.mcr"


Notificação:



Me ajudem a desabilitar isso, por favor.

Grato,

Cléber Rafael

Olá Cleber Rafael

Verifique se é isto:
https://www.maximoaccess.com/t23424-resolvidoacessar-link-pelo-access

Abraço

Obrigado, mas não resolveu o problema. Basicamente é o mesmo que tenho feito. A mensagem de confirmação ainda continua aparecendo.

Olá Cleber Rafael,

Testou o exemplo da mensagem nº 5?
Seria algo assim:

Código:

   Dim wshShell As Object
    Dim strUrl As String
    
    Set wshShell = CreateObject("WScript.Shell")
    strUrl = "C:\Users\Rafael\Documents\LANCE FINAL.mcr"
    wshShell.Run strUrl
    
    Set wshShell = Nothing


Abraço

O método da mensagem nº 5, dá o seguinte erro:



Sabe como resolver?

Abraço

Olá,

Podemos ver na fotografia que tem o l antes do nome e acaba em 3.
Compile o código e verifique os nomes.

Abraço

Ao invés de chamar o arquivo "LANCE FINAL.mcr", alterei para um arquivo .bat, que por sua vez, chama o "LANCE FINAL.mcr", ficando assim meu código:

Código:

 
    Set wshShell = CreateObject("WScript.Shell")
    strUrl = "C:\Users\Rafael\Documents\AbrirMeuArquivo.bat"
    wshShell.Run strUrl   


Problema resolvido! Muito obrigado mesmo!

Abraços

Creio que o problema aqui tenha sido a existência de espaços no nome/diretório completo do arquivo que seria executado.

Caso volte a ter problemas relacionados a isso, fiquei atento.

strUrl = "C:\Users\Rafael\Documents\LANCE FINAL.mcr"
strUrl = "C:\Users\Rafael\Documents\AbrirMeuArquivo.bat"

Olá a todos,

Cleber Rafael, obrigado pelo re torno e tem mais uyma dica do nosso colega Ivan.
Se ficou esclarecido não se esqueça de dar o tópico como resolvido, veja como fazer:
https://www.maximoaccess.com/t860-resolucao-de-topicos

Abraçoa todos

Boa tarde Amigos

O Código abaixo dá a mesma notificação da Msg. Nº 1.

Como impedir ?

Os PDF a ver estão listados numa caixa de listagem.

Obrigado

Código:

Private Sub Comando9_Click()

Dim varItem As Variant
  If IsNull(Me.Lista0) Then
          MsgBox "Selecione Primeiro o PDF a Abrir !", vbCritical, "Aviso"
     Exit Sub
  End If

For Each varItem In Lista0.ItemsSelected
  If MsgBox("Confirma a " & Chr(13) & "Abertura do PDF ? ", vbYesNo + vbQuestion, "Aviso ") = vbYes Then

       Dim strCaminho$

strCaminho = BackEndPath & "\PDF\"

Application.FollowHyperlink strCaminho & Me.Lista0.Column(0), True

Else
    DoCmd.CancelEvent
 Exit Sub
End If
 Next varItem
     Me.Lista0.Requery

End Sub

Olá a todos,

Assis, tente assim:

Código:

Private Sub Comando9_Click()
    Dim varItem As Variant
   
    If IsNull(Me.Lista0) Then
        MsgBox "Selecione Primeiro o PDF a Abrir !", vbCritical, "Aviso"
        Exit Sub
    End If
   
    For Each varItem In Lista0.ItemsSelected
        If MsgBox("Confirma a " & Chr(13) & "Abertura do PDF ? ", vbYesNo + vbQuestion, "Aviso ") = vbYes Then
            Dim strCaminho$
            'inicio alteracao/inclusao
            strCaminho = BackEndPath & "\PDF\" & Me.Lista0.Column(0)
            Dim wshShell As Object
            Set wshShell = CreateObject("WScript.Shell")
            wshShell.Run strCaminho
            Set wshShell = Nothing
            'fim alteracao/inclusao
        Else
            DoCmd.CancelEvent
            Exit Sub
        End If
    Next varItem
    Me.Lista0.Requery
End Sub

Abraço

Boa noite Teixeira

Resultado:

Código:

Private Sub Comando9_Click()
    Dim varItem As Variant
   
    If IsNull(Me.Lista0) Then
        MsgBox "Selecione Primeiro o PDF a Abrir !", vbCritical, "Aviso"
        Exit Sub
    End If
   
    For Each varItem In Lista0.ItemsSelected
        If MsgBox("Confirma a " & Chr(13) & "Abertura do PDF ? ", vbYesNo + vbQuestion, "Aviso ") = vbYes Then
            Dim strCaminho$
            'inicio alteracao/inclusao
            strCaminho = BackEndPath & "\PDF\" & Me.Lista0.Column(0)
            CreateObject("WScript.Shell").Run strCaminho
            'fim alteracao/inclusao
        Else
            DoCmd.CancelEvent
            Exit Sub
        End If
    Next varItem
    Me.Lista0.Requery
End Sub

Bom dia Ivan

Também não.

Obrigado

Olá a todos,

Assis, compile o projeto e verifique se tem erros.
Verifique tambem referencias.

Também deve verificar o que o caminho está a tentar abrir em:
strCaminho = BackEndPath & "\PDF\" & Me.Lista0.Column(0)

Pode colocar na linha seguinte:

Código:

msgbox strCaminho

Se o problema se mantiver, monte um pequeno exemplo e partilhe a base de dados para se testar.

Abraço a todos

Obrigado Teixeira

O código que postei na Msg Nº 10 funciona direito, tirando a questão da "Notificação".

A Msgbox que pediu: informa direitinho o caminho dos documentos PDF.

Não consigo postar visto ser BD dividida, pois falta sempre qualquer coisa no final.

Obrigado

Assis, crie um pequeno exemplo com apenas um formulário com apenas um botão chamando a abertura de um pdf. Algo bem simples. E veja se a mensagem persiste. Persistindo, anexe o arquivo criado para que os outros usuários possam testar. Diga-nos também como está a configuração de macro do seu access: se você deixa todas as macros habilitadas ou se você habilita macros apenas para arquivos em locais confiáveis.

Bom dia Ivan

As Macros estão: Todas ativados.

Quanto ao exemplo é difícil de desmembrar, como já referi noutra Msg.

Obrigado

Olá a todos,

Assis, se é dificil "desmembrar", crie uma base de dados nova:

1) Crie uma tabela
2) Adicione dois registos
3) Crie o form
4) Crie a listbox, o botão (objetos necessários)
5) Cole o código (ajustado) para recriar o erro.
6) Adicione os ficheiros dependentes para abrir
7) Zip tudo e partilhe

Alternativa para não fazer nada disto, mas vai ter que perceber e esforçar-se, veja este tópico:
https://www.maximoaccess.com/t31594-mensagem-de-alerta-hyperlink

Abraço a todos