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]Botão - Abrir Docx. em Anexo

    avatar
    alansvm
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 17/05/2013

    [Resolvido]Botão - Abrir Docx. em Anexo Empty Botão - Abrir Docx. em Anexo

    Mensagem  alansvm 25/5/2013, 14:14

    Boa tarde caros amigos do fórum.

    Estou utilizando o access 2010.

    Busquei em vários tópicos instruções a respeito, mas a maioria das informações se dá na realização de mala direta ou por hiperlink, sendo estes a abrirem um arquivo fora do access.
    Muitos argumentam que anexos pesam o banco de dados, porém no meu caso são apenas cinco modelos em docx, que preciso manter e que na verdade servem como matriz, em que irei usar o recurso F12 "Salvar Como" para cada edição.

    Não quero deixar fora do access mas dentro dele, por segurança, por isso o anexo.

    Vamos a minha dúvida:

    Gostaria de criar um botão, cujo comando "ao clicar" leve-me direto a um determinado arquivo docx. que esta anexo a um tabela qualquer. De preferência como se fosse um hiperlink do botão para o arquivo propriamente dito, sem a necessidade de uma caixa de diálogo como a que aparece em formulário quando se clica no anexo. "Quero abrir direto no word"

    Nobres colegas, como fazer isso ???
    Haveria um código sub ou function para tal ???
    Seria usando macro?

    Realmente não sei o que fazer.
    Ainda sou leigo em BD mas tenho aprendido bastante com vocês, peço desculpa se não fui
    claro em minha dúvida.

    Atenciosamente
    Alan Sena Valle Martins
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3883
    Registrado : 04/04/2010

    [Resolvido]Botão - Abrir Docx. em Anexo Empty Re: [Resolvido]Botão - Abrir Docx. em Anexo

    Mensagem  Avelino Sampaio 25/5/2013, 14:43

    Bom, se vc deseja manter esses cinco doc's como modelos, vc pode realizar uma cópia do arquivo anexo para uma pasta temporária e então usar o FollowHiperlink para abrir no Word

    Veja neste meu artigo como copiar um arquivo de um anexo com o SaveToFile.

    http://www.usandoaccess.com.br/tutoriais/tuto23.asp?id=1#inicio

    Bom estudo!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    alansvm
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 17/05/2013

    [Resolvido]Botão - Abrir Docx. em Anexo Empty Resposta I

    Mensagem  alansvm 25/5/2013, 16:32

    Prezado Avelino.

    Dei uma lida no tutorial, parece uma possível solução.
    Porém meu conhecimento limitado me impede de dar uso dos códigos.
    Não sei em qual evento aplicar, e também tenho dúvidas sobre quais textos
    do código do exemplo SaveToFile devo substituir.

    Para tanto farei como das últimas vezes, postarei o BD.
    Nele perceberá que fiz um botão simples que por hiperlink abre o documento
    do word que deve estar no desktop.
    O problema é que estando no desktop ou noutra pasta, torna-se
    facilmente corrompível. Alguém pode mexer ou mesmo eu posso esquecer de carrega-lo
    junto com BD se desejar instalar noutro PC.

    POrtanto a ideia principal era abrir o mesmo arquivo que pus em anexo na 'tabela1"
    apartir do botão que eu criei. Evitando a caixa de diálogo que gera opções
    "abir, editar adicionar", queria apenas um modo de abrir um modelo do word pré editado, dentro do BD, de maneira direta, por isso a ideia de mante-lo dentro do access.

    Na hora de salvar, salvaria usando F12 noutra pasta, o modelo se preservaria.

    Acho que a partir do BD terá melhor entendimento

    Agradeço a atenção dispensada, não tem preço a mesma.

    Atenciosamente
    Alan Sena Valle Martins
    Anexos
    [Resolvido]Botão - Abrir Docx. em Anexo AttachmentBD Teste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (151 Kb) Baixado 49 vez(es)
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3883
    Registrado : 04/04/2010

    [Resolvido]Botão - Abrir Docx. em Anexo Empty Re: [Resolvido]Botão - Abrir Docx. em Anexo

    Mensagem  Avelino Sampaio 25/5/2013, 19:18

    Alan,

    O problema é que os arquivos anexados sofrem compactação. Por isso a necessidade de salvar uma cópia em uma pasta local. E observe que é usado o comando KILL para limpar a pasta TEMP, ao fechar o formulário. Então não vejo grandes riscos

    Bom estudo!
    Anexos
    [Resolvido]Botão - Abrir Docx. em Anexo AttachmentAbrirAnexo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (110 Kb) Baixado 198 vez(es)


    Última edição por Avelino Sampaio em 27/5/2013, 12:29, editado 2 vez(es)


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.

    adm.nneto gosta desta mensagem

    avatar
    alansvm
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 17/05/2013

    [Resolvido]Botão - Abrir Docx. em Anexo Empty + Uma Coisa

    Mensagem  alansvm 25/5/2013, 19:39

    Prezado Avelino.

    Você montou algo espetacular, não tenho nem como agradecer.
    Mas queria ti perguntar uma coisa, neste banco que você preparou, caso
    eu queira em vez de uma caixa de combinação que puxa da pesquisa eu criasse
    um "botão" que abriria individualmente o anexo, isso seria possível ???

    Caso sim como fazer? talvez com um exemplo de dois botões um para abrir o
    arquivo que enviei e outro pra abrir o que vc elaborou "alanteste", talvez
    poderia compilar e independentemente criar outros por conta própria.

    Bom esta é minha última solicitação, não tenho o que reclamar de nada.
    Caso seja possível preferia criar botões individuais em form
    para abrir ao clicar o anexo específico, preservando a lógica das pastas
    e arquivos temporários.

    Agora se apenas der por caixa de combinação, sem problema algum.

    Atenciosamente
    Alan Sena Valle Martins
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3883
    Registrado : 04/04/2010

    [Resolvido]Botão - Abrir Docx. em Anexo Empty Re: [Resolvido]Botão - Abrir Docx. em Anexo

    Mensagem  Avelino Sampaio 25/5/2013, 20:07

    No evento "Ao clicar" de cada botão basta utilizar a seguinte linha:

    Application.FollowHyperlink fncExtrairArquivo("NomeDoArquvo.docx")

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    alansvm
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 17/05/2013

    [Resolvido]Botão - Abrir Docx. em Anexo Empty Mato a Pau

    Mensagem  alansvm 25/5/2013, 20:39

    Prezado Amigo.

    Assunto encerrado.
    Deu certinho


    Muito Obrigado

    Atenciosamente
    Alan Sena Valle Martins

    Conteúdo patrocinado


    [Resolvido]Botão - Abrir Docx. em Anexo Empty Re: [Resolvido]Botão - Abrir Docx. em Anexo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 14/5/2024, 02:27