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

    Anexar Arquivos

    Compartilhe

    Maurício Bruno
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 25/05/2015

    Anexar Arquivos

    Mensagem  Maurício Bruno em 21/9/2017, 08:29

    Bom Dia!

    Venho novamente recorrer a ajuda de vocês...Rsrs

    Tenho um banco de dados, que segue abaixo e gostaria de trabalhar com anexos nele, porém, quando habilito o campo anexo o meu banco começa a inchar, já procurei em diverso lugar e já estou a dias procurando e lendo tópicos e no google algo que possa me ajudar, mas infelizmente não obtive sucesso.

    Gostaria de uma solução no seguinte critério:
    1º - Clicar num botão "Anexar" (Foto, PDF ou etc) pelo formulário
    2º - Ao anexar o arquivo o BD cria uma pasta num diretório especifico com o ID e Nome do registro.
    3º - Ao gravar o arquivo no diretório.
    4º - Quando gravar, renomeia o arquivo (Data/Hora do Anexo, ID, Documento), por exemplo (21092017-094734_09809809800_ASO)
    5º - Ao anexar, me de uma opção do tipo Documento (ASO, FOTO, EXAME e Etc)

    E complexo, mais se alguém puder me ajudar agradeço.
    Anexos
    Projeto.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (684 Kb) Baixado 10 vez(es)
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3904
    Registrado : 14/08/2013

    Re: Anexar Arquivos

    Mensagem  FabioPaes em 21/9/2017, 09:22

    Meu amigo, o Access nao trabalha bem com campos anexos direto na Tabela! Alem do mais é limitado a 2GB de dados. Sendo assim, ficaria sem espaço logo logo.

    Recomendo sempre que surgir uma duvida, dar uma pesquisada aqui no Forum! Pois temos muitos materiais por aqui.

    A Solução é ao selecionar o arquivo, ele ser Copiado para uma pasta que fica junto do Aplicativo... e guardar apenas o Nome do Arquivo.Extenção na tabela.

    Assim qnd precisar, basta mandar abrir esse arquivo.

    Veja aqui:
    [Você precisa estar registrado e conectado para ver este link.]
    Basta mudar a filtragem, para passar a exibir todos os Arquivos.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Maurício Bruno
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 25/05/2015

    Re: Anexar Arquivos

    Mensagem  Maurício Bruno em 26/9/2017, 07:14

    FabioPaes,

    Foi de grande ajuda, entretanto, só e possível anexar foto.

    Queria algo com a mesma funcionalidade, onde anexasse PDF e mais de uma foto, semelhante ao anexo que mandei anexo no 1º onde eu passo as fotos.

    Grato pela ajuda e atenção.
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3904
    Registrado : 14/08/2013

    Re: Anexar Arquivos

    Mensagem  FabioPaes em 26/9/2017, 08:46

    Amigo, no exemplo em questão é para Fotos... Mas se vc observar o Código verá que ha uma filtragem pela extensão da foto... Comente a linha que se refere a Imagens... Se lê o código, verá que da forma como está já é possível add qualquer arquivo.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Maurício Bruno
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 25/05/2015

    Anexar Arquivos

    Mensagem  Maurício Bruno em 24/4/2018, 09:04

    FabioPaes,

    Primeiramente quero agradecer pela ajuda e atenção prestada.

    Porém ainda, estou com problema no meu código de anexo de arquivo. Este código copie do mestre AVELINO.

    Esta apresentando o Erro em tempo de execução '438': O Objeto não aceita esta propriedade ou método

    Creio que na linha destacada em vermelho, localizada no final do código e que esta apresentando o erro, que não estou conseguindo obter uma solução.
    Me!AcroPDF0.LoadFile CurrentProject.Path & "\Anexo\" & Me.txt_NomePdf
    Me.Repaint


    Código:
    Private Sub txt_ano_AfterUpdate()
    'CONCATENAR
    Me.txt_descricao = Me.txt_tipo_inspecao & " " & Me.txt_empresa & " " & Me.txt_ano

    'ANEXAR PDF
    Dim strLocalPdf$, strNomePdf$, strPastaOrigem$, strPastaDestino$
    If Me.NewRecord Then DoCmd.RunCommand acCmdSaveRecord
    strLocalPdf = fncLocalizarArquivo
    If strLocalPdf = "" Then Exit Sub
    strNomePdf = Mid(strLocalPdf, InStrRev(strLocalPdf, "\") + 1)
    CurrentDb.Execute "UPDATE Tbl_VSI_Cadastro_Relatório_Inspeção SET [Nome do Arquivo]= '" & Me.txt_id & "-" & strNomePdf & "' WHERE ID = " & Me!txt_id & ";"
    strPastaOrigem = Mid(strLocalPdf, 1, InStrRev(strLocalPdf, "\"))
    strPastaDestino = CurrentProject.Path & "\Anexo\"
    If strPastaOrigem <> strPastaDestino Then

        FileSystem.FileCopy strLocalPdf, strPastaDestino & Me.ID & "-" & Me.txt_descricao
    End If
    CurrentDb.Execute "UPDATE Tbl_VSI_Cadastro_Relatório_Inspeção SET [Caminho URL] = '" & strPastaDestino & "' WHERE ID = " & Me!txt_id & ";"

    Me!AcroPDF0.LoadFile CurrentProject.Path & "\Anexo\" & Me.txt_NomePdf
    Me.Repaint

    End Sub

    Aguardo retorno e agradeço a atenção.
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3904
    Registrado : 14/08/2013

    Re: Anexar Arquivos

    Mensagem  FabioPaes em 24/4/2018, 11:16

    Faça um Teste Amigo, LEIA ESSE TÓPICO, Baixe o Exemplo e teste em sua Máquina!
    [Você precisa estar registrado e conectado para ver este link.]
    Veja se Funciona Normalmente! Se atente para a Versão do AdobreAcrobat.

    Se Funcionar, e o seu exemplo continuar com erro, anexe ele aqui pra tentar achar o erro!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

      Data/hora atual: 20/7/2018, 09:48