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]Importar um ficheiro PDF para um campo tipo "Anexo" de uma tabela

    Compartilhe

    Luis F
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 13
    Registrado : 18/10/2013

    Importar um ficheiro PDF para um campo tipo "Anexo" de uma tabela

    Mensagem  Luis F em Ter 29 Out 2013, 23:19

    Boa noite a todos...

    Gostaria saber se é possível criar em VBA ou através de uma macro o seguinte:

    ao clicar num botão:

    Importar da raiz do disco C (C:\TESTE\) vários ficheiros do tipo pdf para uma tabela com um campo do tipo "Anexo".


    Exemplo:

    Tenho uma tabela para clientes e nela tenho criado um campo do tipo Anexo onde insiro nesse campo todos os documentos desse cliente (Fotocopias e documentos digitalizados em formato pdf).
    Como são muitos documentos para muitos clientes eu queria saber se existe alguma forma de eu ir buscar ao C:\TESTE\ e importar para a tabela T_CLIENTES cada ficheiro relacionado?

    Tabela Clientes: (T_CLIENTES)

    Campos:
    ID_CLIENTE (Numero) ; NOME (Texto) ; MORADA (Texto); DOCUMENTOS (Anexo)

    Tenho no C:\TESTE\ vários ficheiros pdf em que o nome do ficheiro está relacionado com o ID_CLIENTE (C:\TESTE\123456.PDF pertence ao cliente 123456 e assim sucessivamente)


    Será que me fiz entender??????

    Agradeço a quem me conseguir ajudar...

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido]Importar um ficheiro PDF para um campo tipo "Anexo" de uma tabela

    Mensagem  HARYSOHN em Qua 30 Out 2013, 12:47

    Boas Luis.. Campos anexos irá deixar seu banco lento e sobrecarregado.

    Lembre-se, o Access apenas permite 2gb de dados em seus bancos..E isto que está pretendendo fazer é desaconselhável.

    O correto seria colocar apenas o caminho destes PDF's em um campo na tabela e um formulário para ler este pdf ao selecionar de uma lista.

    No Fórum temos exemplos de leitura de PDF no Access..

    Cumprimentos.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    Luis F
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 13
    Registrado : 18/10/2013

    Re: [Resolvido]Importar um ficheiro PDF para um campo tipo "Anexo" de uma tabela

    Mensagem  Luis F em Qua 30 Out 2013, 15:19

    PILOTO, agradeço a informação.

    E faz todo o sentido no que me informas.

    Mais uma vez obrigado pela ajuda preciosa, por isso existe este fórum para nos ajudarem ....


    Vou procurar no fórum e adaptar ao meu programa.

    Cumprimentos,
    LF

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido]Importar um ficheiro PDF para um campo tipo "Anexo" de uma tabela

    Mensagem  HARYSOHN em Qua 30 Out 2013, 19:29

    Assim que tiver sucesso favor retornar neste mesmo tópico.

    Aguardamos.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    Luis F
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 13
    Registrado : 18/10/2013

    Re: [Resolvido]Importar um ficheiro PDF para um campo tipo "Anexo" de uma tabela

    Mensagem  Luis F em Sex 01 Nov 2013, 19:16

    Resolvido meu Problema.


    Por JPaulo aqui no fórum:


    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 & ".pdf"
    Application.FollowHyperlink CaminhoDaImagem
    End Sub

    Mais uma vez obrigado ao JPaulo e ao PILOTO.

    Luis F
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 13
    Registrado : 18/10/2013

    Re: [Resolvido]Importar um ficheiro PDF para um campo tipo "Anexo" de uma tabela

    Mensagem  Luis F em Sex 01 Nov 2013, 19:35

    Uma Pergunta:


    É possível caso o ficheiro não exista dar uma mensagem de erro a informar que para este cliente não existe nenhum documento relacionado?????

    Obrigado LuisF

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido]Importar um ficheiro PDF para um campo tipo "Anexo" de uma tabela

    Mensagem  HARYSOHN em Seg 04 Nov 2013, 15:47

    Caso não encontre o arquivo no caminho especificado gerará o erro 490.

    Basta tratar o Erro:


    On Error Goto TrataErro

    Códigos

    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    'Tratamento de Erros
    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    Exit_TrataErro:
        DoCmd.Hourglass False
        DoCmd.Echo True
    Exit Sub
    TrataErro:
        Select Case err.Number
            Case 490
                MsgBox "Arquivo não encontrado", vbCritical, "ERRO"
                Exit Sub
            Case Else
                DoCmd.Hourglass False
                DoCmd.Echo True
                    MsgBox "Erro Gerado no: " & Me.Name & "" _
                    & vbNewLine & "No Procedimento: " & Screen.ActiveControl.Name & "" _
                    & vbNewLine & "Erro Número: " & err.Number _
                    & vbNewLine & "linha: " & Erl _
                    & vbNewLine & "Descrição: " & err.Description _
                    & vbNewLine & "Por favor contate o Administrador de Sistema.", vbCritical, err.Number & ", linha:" & Erl
        End Select

    Cumprimentos.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    Luis F
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 13
    Registrado : 18/10/2013

    Re: [Resolvido]Importar um ficheiro PDF para um campo tipo "Anexo" de uma tabela

    Mensagem  Luis F em Seg 04 Nov 2013, 22:07

    Mais uma vez obrigado PILOTO.

    Perfeição... Very Happy

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido]Importar um ficheiro PDF para um campo tipo "Anexo" de uma tabela

    Mensagem  HARYSOHN em Seg 04 Nov 2013, 23:57

    Só faltou o resolvido no tópico, desta vez eu o coloco.

    Cumprimentos.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Ter 06 Dez 2016, 05:45