MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    Notificação ao abrir arquivo

    avatar
    clrafael
    Novato
    Novato

    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 em 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
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em 2/7/2019, 10:38

    Olá Cleber Rafael

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

    Abraço
    avatar
    clrafael
    Novato
    Novato

    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 em 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.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em 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 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 em 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
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em 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 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 em 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
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  IvanJr. em 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"


    .................................................................................
    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.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em 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:
    http://www.maximoaccess.com/t860-resolucao-de-topicos

    Abraçoa todos

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em 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 ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em 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 100%

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

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

    Mensagem  Assis em 5/7/2019, 23:51

    Boa noite Teixeira

    Resultado:

    Notificação ao abrir arquivo Sem_t105


    .................................................................................
    *** Só sei que nada sei ***
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  IvanJr. em 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


    .................................................................................
    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 100%

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

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

    Mensagem  Assis em 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 ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em 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 100%

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

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

    Mensagem  Assis em 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 ***
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  IvanJr. em 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.


    .................................................................................
    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 100%

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

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

    Mensagem  Assis em 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 ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em 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:
    http://www.maximoaccess.com/t31594-mensagem-de-alerta-hyperlink

    Abraço a todos

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 16/9/2019, 01:52