MaximoAccess

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

Obrigado

Administração do MaximoAccess


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.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Campo Hiperlink

    freisiwal
    freisiwal
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 24/11/2011

    [Resolvido]Campo Hiperlink Empty [Resolvido]Campo Hiperlink

    Mensagem  freisiwal 20/7/2014, 12:03

    Estou recebendo a seguinte mensagem com relação a hiperlink:

    "Identificado um possível problema de segurança"
    "Este local pode não ser seguro"

    Existe alguma maneira de não receber esta mensagem?
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Campo Hiperlink Empty Re: [Resolvido]Campo Hiperlink

    Mensagem  ahteixeira 20/7/2014, 12:30

    Olá, veja se o artigo seguinte ajuda

    http://www.usandoaccess.com.br/tutoriais/tuto5.asp?id=1#inicio
    freisiwal
    freisiwal
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 24/11/2011

    [Resolvido]Campo Hiperlink Empty Re: [Resolvido]Campo Hiperlink

    Mensagem  freisiwal 20/7/2014, 17:49

    Habilitei as macros. Coloquei o sistema em uma pasta confiável.
    E mesmo assim, não deu certo.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Campo Hiperlink Empty Re: [Resolvido]Campo Hiperlink

    Mensagem  ahteixeira 21/7/2014, 06:52

    Olá,

    Veja a dica 28 e 29 do nosso grande Mestre Avelino

    http://www.usandoaccess.com.br/dicas/dica45.asp?id=1&idlista=173#inicio

    Abraço
    freisiwal
    freisiwal
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 24/11/2011

    [Resolvido]Campo Hiperlink Empty Re: [Resolvido]Campo Hiperlink

    Mensagem  freisiwal 21/7/2014, 10:36

    A dica do Avelino explica como abrir uma pasta através de código.
    O que eu quero é abrir um documento PDF diretamente através de hiperlink.

    Obs: No Excel, eu consigo fazer sem receber mensagens de segurança.
    Porque no Access eu recebo essa mensagem?
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Campo Hiperlink Empty Re: [Resolvido]Campo Hiperlink

    Mensagem  Marcelo David 21/7/2014, 10:47

    Ainda não encontrei uma maneira de fazer o Access não exibir a mensagem de segurança do ao usar o
    método do vba de abrir links... NO entanto, uso uma api para isso. Veja o código:

    Declaração da API em um módulo:
    Código:
    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
    Para abrir o arquivo:
    Código:
    Call ShellExecute(0, vbNullString, CaminhoEnomeArquivoComExtenção, vbNullString, vbNullString, 1)


    Última edição por Marcelo David em 21/7/2014, 20:06, editado 1 vez(es)


    .................................................................................
    Marcelo David | [Resolvido]Campo Hiperlink LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Campo Hiperlink Empty Re: [Resolvido]Campo Hiperlink

    Mensagem  ahteixeira 21/7/2014, 11:03

    Olá,

    Efetuei um teste e no meu exemplo abre sem mostrar nada.
    Anexos
    [Resolvido]Campo Hiperlink Attachmentfreisiwal_Hiperlink.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (54 Kb) Baixado 24 vez(es)
    freisiwal
    freisiwal
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 24/11/2011

    [Resolvido]Campo Hiperlink Empty Re: [Resolvido]Campo Hiperlink

    Mensagem  freisiwal 21/7/2014, 16:00

    Eu testei e não abriu o documento PDF.
    Também testei, excluindo o nome do documento e deixando somente o nome da pasta. Aí, o botão abre a pasta. (perfeito para abrir pasta).
    Porém, eu quero criar um campo Hiperlink e que este campo abra o documento PDF.
    Isso eu não consigo sem que apareça um aviso de segurança.
    Deve haver algum modo.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Campo Hiperlink Empty Re: [Resolvido]Campo Hiperlink

    Mensagem  ahteixeira 21/7/2014, 16:14

    Olá de novo

    Estranho, testei no PC da firma e deu, vou estar agora neste PC tam Access 2013.

    Acabei de testar e aqui deu.

    Descompacta os ficheiros do meu exemplo da mensagem nº 7  de forma que fique numa pasta c:\Temp e exprimenta.

    Se não der exprimenta colocar a pasta confiavel, (só se fôr isso)

    Neste pc tenho assim:

    [Resolvido]Campo Hiperlink 21cfl92
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Campo Hiperlink Empty Re: [Resolvido]Campo Hiperlink

    Mensagem  Marcelo David 21/7/2014, 16:26

    Na mensagem 6 eu postei uma maneira, você testou?


    .................................................................................
    Marcelo David | [Resolvido]Campo Hiperlink LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev
    freisiwal
    freisiwal
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 24/11/2011

    [Resolvido]Campo Hiperlink Empty Re: [Resolvido]Campo Hiperlink

    Mensagem  freisiwal 21/7/2014, 16:44

    Eu coloque seu arquivo em uma pasta confiável (configurada no Access).
    Coloquei o arquivo PDF, também nessa pasta.
    Configurei os documentos para não mostrarem as extensões.
    No VB (seu código), digitei o caminho completo do arquivo.
    Cliquei no botão e apareceu a fatídica mensagem.
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Campo Hiperlink Empty Re: [Resolvido]Campo Hiperlink

    Mensagem  Marcelo David 21/7/2014, 17:00

    Da maneira que postei, nem precisa configurar local confiável, pois a api abre como o Windows naturalmente...
    Se usou o meu código não há como a mensagem do Access surgir, pois não uso o recurso nativo do VBA...


    .................................................................................
    Marcelo David | [Resolvido]Campo Hiperlink LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev
    freisiwal
    freisiwal
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 24/11/2011

    [Resolvido]Campo Hiperlink Empty Re: [Resolvido]Campo Hiperlink

    Mensagem  freisiwal 21/7/2014, 17:03

    A mensagem apareceu!
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Campo Hiperlink Empty Re: [Resolvido]Campo Hiperlink

    Mensagem  Marcelo David 21/7/2014, 17:07

    Pois poste aqui a parte do aplicativo que abre o arquivo com o código que forneci na mensagem 6 para nossa analise.


    .................................................................................
    Marcelo David | [Resolvido]Campo Hiperlink LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev
    freisiwal
    freisiwal
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 24/11/2011

    [Resolvido]Campo Hiperlink Empty Re: [Resolvido]Campo Hiperlink

    Mensagem  freisiwal 21/7/2014, 17:26

    Me informe seu email, para que eu possa enviar a pasta com o sistema e o arquivo.
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Campo Hiperlink Empty Re: [Resolvido]Campo Hiperlink

    Mensagem  Marcelo David 21/7/2014, 17:28

    marcelordavid@Hotmail.com

    Vou sair agora e pouco depois das 19 horas volto e vejo o e-mail.

    No aguardo.


    .................................................................................
    Marcelo David | [Resolvido]Campo Hiperlink LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Campo Hiperlink Empty Re: [Resolvido]Campo Hiperlink

    Mensagem  ahteixeira 21/7/2014, 18:29

    Olá a todos,

    Marcelo, por curiosidade, pode testar o meu exemplo para ver se também acontece o mesmo.

    Acho que o problema do freisiwal deve estar em alguma configuração, só mesmo com a base de exemplo poderemos testar.
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Campo Hiperlink Empty Re: [Resolvido]Campo Hiperlink

    Mensagem  Marcelo David 21/7/2014, 21:01

    ahteixeira escreveu:Marcelo, por curiosidade, pode testar o meu exemplo para ver se também acontece o mesmo.

    Sim, a mensagem de aparece, pois abrindo arquivo pelo FallowHiperlink do vba é padrão exibir  a mensagem de segurança
    ao abrir arquivos e realmente desconheço a alguma forma de inibi-la...


    freisiwal, você não definiu o código que eu postei.

    Teste o arquivo anexo e veja o resultado. (Altere o caminho para onde está o arquivo que deseja abrir no seu pc)
    Anexos
    [Resolvido]Campo Hiperlink AttachmentArquivo Partiuras_New1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (178 Kb) Baixado 23 vez(es)


    .................................................................................
    Marcelo David | [Resolvido]Campo Hiperlink LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev
    freisiwal
    freisiwal
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 24/11/2011

    [Resolvido]Campo Hiperlink Empty Re: [Resolvido]Campo Hiperlink

    Mensagem  freisiwal 21/7/2014, 22:35

    Continua exibindo a mensagem.
    Vou tentar no meu Notebook. Se continuar, vou reinstalar o Access.
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Campo Hiperlink Empty Re: [Resolvido]Campo Hiperlink

    Mensagem  Marcelo David 21/7/2014, 23:02

    Vamos fazer o seguinte:

    Posso fazer um acesso remoto no seu pc e testar. Pode ser?
    Qual ferramenta de acesso remoto gostaria de usar?

    Uma observação: O campo na tabela não deve estar como hiperlink
    e nem o campo na Caixa de Texto do formulário e nem tão pouco no botão.


    .................................................................................
    Marcelo David | [Resolvido]Campo Hiperlink LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev
    freisiwal
    freisiwal
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 24/11/2011

    [Resolvido]Campo Hiperlink Empty Re: [Resolvido]Campo Hiperlink

    Mensagem  freisiwal 22/7/2014, 00:20

    Deu certo!
    Muito obrigado.
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Campo Hiperlink Empty Re: [Resolvido]Campo Hiperlink

    Mensagem  Marcelo David 22/7/2014, 00:28

    Excelente, não esqueça de marcar como resolvido!
    Dessa vez eu marco.


    .................................................................................
    Marcelo David | [Resolvido]Campo Hiperlink LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Campo Hiperlink Empty Re: [Resolvido]Campo Hiperlink

    Mensagem  ahteixeira 22/7/2014, 05:43

    Olá,

    Marcelo, obrigado pela informação, depois irei tentar saber porque é que no meu dá direto.

    Freisiwal, como ficou resolvido, ondes estava o problema e solução adotada.

    Os utilizadores do forum agradecem.
    freisiwal
    freisiwal
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 24/11/2011

    [Resolvido]Campo Hiperlink Empty Re: [Resolvido]Campo Hiperlink

    Mensagem  freisiwal 22/7/2014, 20:40

    Meu problema, é que eu estava configurando o campo como hiperlink, além do caminho estar errado.
    Agora vou fazer alguns ajustes. Depois vou postar o sistema para vocês analisarem e usarem, caso queiram.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Campo Hiperlink Empty Re: [Resolvido]Campo Hiperlink

    Mensagem  ahteixeira 23/7/2014, 05:13

    Obrigado pelo retorno.
     cheers 
    freisiwal
    freisiwal
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 24/11/2011

    [Resolvido]Campo Hiperlink Empty Re: [Resolvido]Campo Hiperlink

    Mensagem  freisiwal 23/7/2014, 07:28

    Segue o pequeno sistema para catalogar partituras. Pode servir para catalogar outros arquivos (é só fazer os ajustes).
    Para que dê certo, tem que digitar o nome do arquivo e sua extensão.

    Arquivo de Partituras

      Data/hora atual: 5/3/2021, 18:53