MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Msg de erro na listbox

    Compartilhe

    ldcomune
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 22/11/2013

    [Resolvido]Msg de erro na listbox

    Mensagem  ldcomune em Seg 03 Fev 2014, 18:58

    Boa Tarde a todos...

    Estou tentando abrir um arquivo .tif através de uma list box e um botão, e utilizando um exemplo enviado pelo JPaulo num outro post, consegui fazer, porém aparece um erro, e não estou conseguindo resolve-lo.

    (Exemplo JPaulo)  

    Private Sub SeuBotão_Click()
    Dim CaminhoDaImagem As String
    'Drive e Pasta por defeito + o item da lista se estiver no 1º campo da lista que é o ItemData(0)
    CaminhoDaImagem = "C:\" & Me.SuaLista.ItemData(0)
    Application.FollowHyperlink CaminhoDaImagem
    End Sub


    fiz as alterações para meu projeto, quando seleciono o nome da imagem na listbox e clico no botão, aparece a seguinte msg:

    "O arquivo pode conter vírus, tenha certeza que esteja acessando um arquivo confiável... blá blá blá ... Deseja Abrir esse
    arquivo?  "Sim"  ou "Cancelar"

    Quando clico em "Sim", funciona perfeitamente, mas quando escolho "Cancelar" apare um erro:

    "Erro em tempo de execução '16388'
    O hiperlink não pode ser vinculado ao destino.
       "Fim"  ou  "Depurar"


    a única maneira que encontrei de não aparecer nem a primeira msg, e abrir a imagem direto, foi através desse outro exemplo do JPaulo, porém utilizando apenas um Botão


    Private Sub SeuBotão_Click()
    Dim CaminhoDaImagem As String
    CaminhoDaImagem = "C:\SuaImagem.tif"
    Dim S As Object
    Set S = CreateObject("WScript.Shell")
    S.Run "rundll32.exe C:\WINDOWS\System32\shimgvw.dll,ImageView_Fullscreen " & CaminhoDaImagem
    End Sub
     

    Porém não gostaria de fazer um botão pra cada imagem, uma vez que serão umas 20 ^^

    Estou meio Noob em VBA, e estou tentado fazer isso para um projeto futuro, se alguem puder dar uma luz, agradeço


    Obs: A linha que da erro é :  Application.FollowHyperlink CaminhoDaImagem

    Grato

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Msg de erro na listbox

    Mensagem  JPaulo em Ter 04 Fev 2014, 09:21

    Uma maneira prática de solucionar o problema é criando um txt com o seguinte conteúdo:

    Altere de 11.0 para 12.0 se o seu Access for o 2007.

    Depois de salvar o arquivo com qualquer nome, altere a extensão de .txt para .reg e execute.
    Será exibida a mensagem para confirmar a edição do registro do windows, confirme e pode utilizar seus links sem maiores chateações.

    Colar no txt estas duas linhas:

    Windows Registry Editor Version 5.00
    [HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Common\Security]"DisableHyperlinkWarning"=dword:00000001


    Altere o seu código para esta forma que não necessita de invocar o caminho, apenas o nome do ficheiro, exemplo "teste.tif":

    Private Sub SeuBotão_Click()
    Dim CaminhoDaImagem As String
    CaminhoDaImagem = "file:///" & Me.SuaLista.ItemData(0)
    FollowHyperlink CaminhoDaImagem
    End Sub






    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    ldcomune
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 22/11/2013

    Re: [Resolvido]Msg de erro na listbox

    Mensagem  ldcomune em Qua 05 Fev 2014, 12:53

    Vlw JPaulo, agradeço a atenção e ajuda

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Msg de erro na listbox

    Mensagem  JPaulo em Qua 05 Fev 2014, 14:02

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Sab 10 Dez 2016, 06:50