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

4 participantes

    Notificação ao abrir arquivo

    avatar
    clrafael
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 05/12/2010

    Notificação ao abrir arquivo Empty Notificação ao abrir arquivo

    Mensagem  clrafael 2/7/2019, 03:48

    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:
    Notificação ao abrir arquivo Notifi10


    Me ajudem a desabilitar isso, por favor.

    Grato,

    Cléber Rafael
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7701
    Registrado : 15/03/2013

    Notificação ao abrir arquivo Empty Re: Notificação ao abrir arquivo

    Mensagem  Alvaro Teixeira 2/7/2019, 10:38

    Olá Cleber Rafael

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

    Abraço
    avatar
    clrafael
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 05/12/2010

    Notificação ao abrir arquivo Empty Re: Notificação ao abrir arquivo

    Mensagem  clrafael 2/7/2019, 14:58

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7701
    Registrado : 15/03/2013

    Notificação ao abrir arquivo Empty Re: Notificação ao abrir arquivo

    Mensagem  Alvaro Teixeira 2/7/2019, 15:31

    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
    avatar
    clrafael
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 05/12/2010

    Notificação ao abrir arquivo Empty Re: Notificação ao abrir arquivo

    Mensagem  clrafael 2/7/2019, 21:40

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

    Notificação ao abrir arquivo Erro10

    Sabe como resolver?

    Abraço
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7701
    Registrado : 15/03/2013

    Notificação ao abrir arquivo Empty Re: Notificação ao abrir arquivo

    Mensagem  Alvaro Teixeira 2/7/2019, 22:03

    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
    avatar
    clrafael
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 05/12/2010

    Notificação ao abrir arquivo Empty Re: Notificação ao abrir arquivo

    Mensagem  clrafael 3/7/2019, 03:56

    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
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3715
    Registrado : 22/11/2016

    Notificação ao abrir arquivo Empty Re: Notificação ao abrir arquivo

    Mensagem  DamascenoJr. 3/7/2019, 04:35

    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"


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7701
    Registrado : 15/03/2013

    Notificação ao abrir arquivo Empty Re: Notificação ao abrir arquivo

    Mensagem  Alvaro Teixeira 5/7/2019, 12:09

    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

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4730
    Registrado : 06/11/2009

    Notificação ao abrir arquivo Empty Re: Notificação ao abrir arquivo

    Mensagem  Assis 5/7/2019, 13:35

    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


    .................................................................................
    *** Só sei que nada sei ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7701
    Registrado : 15/03/2013

    Notificação ao abrir arquivo Empty Re: Notificação ao abrir arquivo

    Mensagem  Alvaro Teixeira 5/7/2019, 22:20

    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
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4730
    Registrado : 06/11/2009

    Notificação ao abrir arquivo Empty Re: Notificação ao abrir arquivo

    Mensagem  Assis 5/7/2019, 23:51

    Boa noite Teixeira

    Resultado:

    Notificação ao abrir arquivo Sem_t105


    .................................................................................
    *** Só sei que nada sei ***
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3715
    Registrado : 22/11/2016

    Notificação ao abrir arquivo Empty Re: Notificação ao abrir arquivo

    Mensagem  DamascenoJr. 6/7/2019, 01:33

    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


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4730
    Registrado : 06/11/2009

    Notificação ao abrir arquivo Empty Re: Notificação ao abrir arquivo

    Mensagem  Assis 6/7/2019, 10:42

    Bom dia Ivan

    Também não.

    Obrigado

    Notificação ao abrir arquivo Sem_t106


    .................................................................................
    *** Só sei que nada sei ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7701
    Registrado : 15/03/2013

    Notificação ao abrir arquivo Empty Re: Notificação ao abrir arquivo

    Mensagem  Alvaro Teixeira 6/7/2019, 15:31

    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


    Última edição por ahteixeira em 6/7/2019, 18:54, editado 1 vez(es)
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4730
    Registrado : 06/11/2009

    Notificação ao abrir arquivo Empty Re: Notificação ao abrir arquivo

    Mensagem  Assis 6/7/2019, 16:14

    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



    .................................................................................
    *** Só sei que nada sei ***
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3715
    Registrado : 22/11/2016

    Notificação ao abrir arquivo Empty Re: Notificação ao abrir arquivo

    Mensagem  DamascenoJr. 6/7/2019, 21:25

    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.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4730
    Registrado : 06/11/2009

    Notificação ao abrir arquivo Empty Re: Notificação ao abrir arquivo

    Mensagem  Assis 7/7/2019, 10:58

    Bom dia Ivan

    As Macros estão: Todas ativados.

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

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7701
    Registrado : 15/03/2013

    Notificação ao abrir arquivo Empty Re: Notificação ao abrir arquivo

    Mensagem  Alvaro Teixeira 7/7/2019, 11:24

    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

      Data/hora atual: 5/12/2022, 18:44