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

    [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...
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12229
    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
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12229
    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
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12229
    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
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12229
    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: Sex 28 Jul 2017, 11:48