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

    Anexar Arquivos

    avatar
    Maurício Bruno
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    Anexar Arquivos Empty Anexar Arquivos

    Mensagem  Maurício Bruno 21/9/2017, 14: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
    Anexar Arquivos AttachmentProjeto.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (684 Kb) Baixado 26 vez(es)
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    Anexar Arquivos Empty Re: Anexar Arquivos

    Mensagem  FabioPaes 21/9/2017, 15: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:
    https://www.maximoaccess.com/t26710-resolvidovincular-foto-por-cadastro-da-matricula
    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!
    avatar
    Maurício Bruno
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    Anexar Arquivos Empty Re: Anexar Arquivos

    Mensagem  Maurício Bruno 26/9/2017, 13: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.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    Anexar Arquivos Empty Re: Anexar Arquivos

    Mensagem  FabioPaes 26/9/2017, 14: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!
    avatar
    Maurício Bruno
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    Anexar Arquivos Empty Anexar Arquivos

    Mensagem  Maurício Bruno 24/4/2018, 15: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.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    Anexar Arquivos Empty Re: Anexar Arquivos

    Mensagem  FabioPaes 24/4/2018, 17:16

    Faça um Teste Amigo, LEIA ESSE TÓPICO, Baixe o Exemplo e teste em sua Máquina!
    https://www.maximoaccess.com/t27444-copiar-pdf-salvar-o-caminho-do-arquivo-na-tabela-e-visualizar-os-pdf-s-no-formulario
    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!

    Conteúdo patrocinado


    Anexar Arquivos Empty Re: Anexar Arquivos

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 12:53