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


2 participantes

    [Resolvido]Abrir arquivo externo ao sistema com extensão .tif

    avatar
    Edson1974
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 163
    Registrado : 10/05/2011

    [Resolvido]Abrir arquivo externo ao sistema com extensão .tif Empty Abrir arquivo externo ao sistema com extensão .tif

    Mensagem  Edson1974 4/6/2012, 18:49

    Boa tarde.

    Alguém tem algum exemplo ou código de como abrir um arquivo com extensão .tif?

    Obrigado.
    avatar
    Convidad
    Convidado


    [Resolvido]Abrir arquivo externo ao sistema com extensão .tif Empty Re: [Resolvido]Abrir arquivo externo ao sistema com extensão .tif

    Mensagem  Convidad 4/6/2012, 19:02


    Arquivos .tif são imagens de bitmap que podem ser abertos com o Microsft Office Document Imaging (Iniciar > Executar > mspview) ou com a maioria dos editores de imagens.

    Você quer exibir o arquivo em um form ou algo assim?

    avatar
    Edson1974
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 163
    Registrado : 10/05/2011

    [Resolvido]Abrir arquivo externo ao sistema com extensão .tif Empty Re: [Resolvido]Abrir arquivo externo ao sistema com extensão .tif

    Mensagem  Edson1974 4/6/2012, 19:06

    Norberto, gostaria de abrir utilizando um programa externo como por exemplo o que vc sugeriu.
    avatar
    Convidad
    Convidado


    [Resolvido]Abrir arquivo externo ao sistema com extensão .tif Empty Re: [Resolvido]Abrir arquivo externo ao sistema com extensão .tif

    Mensagem  Convidad 4/6/2012, 19:13


    Então é simples.
    Use um editor de imagens. A maioria abre esta extensão.
    O Imaging, que citei, creio que só acompanha o Office 2003.

    Obs:
    Depois vou mover este tópico para a sala Off Topics, pois me parece mais adequado.

    avatar
    Edson1974
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 163
    Registrado : 10/05/2011

    [Resolvido]Abrir arquivo externo ao sistema com extensão .tif Empty Re: [Resolvido]Abrir arquivo externo ao sistema com extensão .tif

    Mensagem  Edson1974 4/6/2012, 19:19

    Pois é Norberto, o meu problema está sendo exatamente este, ou seja, abrir com qualquer outro editor de imagens, talvez não tenha sido claro, gostaria de abrir este tipo de aquivo através do access (VBA).
    avatar
    Convidad
    Convidado


    [Resolvido]Abrir arquivo externo ao sistema com extensão .tif Empty Re: [Resolvido]Abrir arquivo externo ao sistema com extensão .tif

    Mensagem  Convidad 4/6/2012, 19:27


    Bem, você disse que queria usar um programa externo...

    Não sei se é possível exibir esta extensão no Access. Não tenho nenhum arquivo desse tipo aqui pra testar.
    Não seria possível converter o formato ?

    Explique melhor as circunstâncias e sua necessidade.

    avatar
    Edson1974
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 163
    Registrado : 10/05/2011

    [Resolvido]Abrir arquivo externo ao sistema com extensão .tif Empty Re: [Resolvido]Abrir arquivo externo ao sistema com extensão .tif

    Mensagem  Edson1974 4/6/2012, 20:47

    No sistema que desenvolvi os usuários tem a possibilidade de lincar vários arquivos externos a um determinado registro, por exemplo, tem um form onde o usuário trabalha informações referente a um determinado projeto onde neste mesmo form existe uma listbox em que o usuário tem a possibilidade de abrir o explorer do Windows e armazenar o caminho de alguns tipos de arquivos, porém são os básicos dos office + pdf. Outro detalhe, após o usuário ter lincado os arquivos de sua escolha a um determinado projeto ele consegue abrir os mesmos clicando 2 vezes em cima do nome do arquivo mostrado na listbox.

    Aí surgiu a pergunta se isto não daria para ser feito também com os arquivos .tif, pois são arquivos bastantes usados na empresa.

    Espero ter sido mais claro.
    avatar
    Convidad
    Convidado


    [Resolvido]Abrir arquivo externo ao sistema com extensão .tif Empty Re: [Resolvido]Abrir arquivo externo ao sistema com extensão .tif

    Mensagem  Convidad 4/6/2012, 21:01


    Penso que possa resolver associando a extensão tif a algum programa de imagem que esteja instalado na máquina.
    Então, dentro do seu procedimento, o arquivo será aberto por este programa.

    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Abrir arquivo externo ao sistema com extensão .tif Empty Re: [Resolvido]Abrir arquivo externo ao sistema com extensão .tif

    Mensagem  JPaulo 5/6/2012, 09:32

    Existem varias maneiras;


    No evento VBA ao pressionar de 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 FollowHyperlink também no botão:



    Private Sub SeuBotão_Click()
    Dim CaminhoDaImagem As String
    CaminhoDaImagem = "C:\SuaImagem.tif"
    Application.FollowHyperlink CaminhoDaImagem
    End Sub




    Pelo item selecionado da listbox:


    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



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Abrir arquivo externo ao sistema com extensão .tif Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Abrir arquivo externo ao sistema com extensão .tif Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Abrir arquivo externo ao sistema com extensão .tif Folder_announce_new Instruções SQL como utilizar...
    avatar
    Edson1974
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 163
    Registrado : 10/05/2011

    [Resolvido]Abrir arquivo externo ao sistema com extensão .tif Empty Re: [Resolvido]Abrir arquivo externo ao sistema com extensão .tif

    Mensagem  Edson1974 5/6/2012, 13:01

    Maravilhoso!!!!!

    Funcionou perfeitamente!!!

    Obrigado Norberto e JPaulo.

    Abraço.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Abrir arquivo externo ao sistema com extensão .tif Empty Re: [Resolvido]Abrir arquivo externo ao sistema com extensão .tif

    Mensagem  JPaulo 5/6/2012, 13:04

    Obrigado pelo retorno, o fórum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Abrir arquivo externo ao sistema com extensão .tif Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Abrir arquivo externo ao sistema com extensão .tif Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Abrir arquivo externo ao sistema com extensão .tif Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


    [Resolvido]Abrir arquivo externo ao sistema com extensão .tif Empty Re: [Resolvido]Abrir arquivo externo ao sistema com extensão .tif

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 11:33