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]Criar pasta e exportar anexos

    avatar
    JOSEMORAES
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 176
    Registrado : 23/02/2011

    [Resolvido]Criar pasta e exportar anexos Empty [Resolvido]Criar pasta e exportar anexos

    Mensagem  JOSEMORAES em 17/4/2019, 23:46

    Olá senhor.

    Estou atras de uma função que seria o seguinte:

    Tenho uma tabela com o nome de alguns funcionários e uma segunda tabela onde tenho documentos anexos (apenas o link de onde estão esses documentos ) atrelados a esses funcionários.

    O que tenho em mente e direcionar uma determinada pasta na rede, e através de um código criar pastas com os nomes desses funcionário e na sequencia exportar esses mesmos anexos para cada pasta de cada um.

    Será que fui claro ?

    Desde já agradeço e toda ajudar será bem vinda

    Obrigado


    .................................................................................
    [Resolvido]Criar pasta e exportar anexos 10715412
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2824
    Registrado : 21/04/2011

    [Resolvido]Criar pasta e exportar anexos Empty Re: [Resolvido]Criar pasta e exportar anexos

    Mensagem  Marcelo David em 18/4/2019, 04:52

    Boa noite José!

    Imagino que seja possível sim...

    Vamos a ideia:

    Poderá fazer um loop (por recordset) numa query que retorne o nome e os links dos documentos e esses você manipule como quiser, veja no exemplo:
    Considere uma query que retorne dois campos: NomeFuncionario, que armazena obviamente o nome do funcionário) e Documento, que armazena o link (caminho do documento):
    Código:
       
        Dim fso As Object
        Dim rst As Recordset
        
        Set fso = CreateObject("Scripting.FileSystemObject")
        Set rst = CurrentDb.OpenRecordset("SuaQuery") 'Abro o recordset
        
        'Percorro todas as linhas do recordser
        Do Until rst.EOF
                
                'Verifico se não existe uma pasta com o nome do funcionário dentro da pasta da rede e caso não exista, crio.
                If Not fso.FolderExists("PastaDaRede\" & rst!NomeFuncionario) Then fso.CreateFolder "PastaDaRede\" & rst!NomeFuncionario
                
                'Copio o arquivo do caminho gravado na tabela para a pasta recém criada na rede
                fso.copyfile rst!Documento, "PastaDaRede\" & rst!NomeFuncionario & "\" & fso.GetFileName(rst!Documento)
                
                rst.MoveNext
        Loop
        
        rst.Close 'Fecho o recordset
        Set rst = Nothing 'Apago o objeto recordset da memória (desassocio)
        Set fs = Nothing 'Apago (desassocio)  o objeto Scripting


    Última edição por Marcelo David em 18/4/2019, 05:00, editado 1 vez(es) (Razão : Correção da tabulação do código)


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    avatar
    JOSEMORAES
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 176
    Registrado : 23/02/2011

    [Resolvido]Criar pasta e exportar anexos Empty Re: [Resolvido]Criar pasta e exportar anexos

    Mensagem  JOSEMORAES em 18/4/2019, 11:18

    Bom dia.

    Perfeito Davi, muito obrigado pela sua atenção


    .................................................................................
    [Resolvido]Criar pasta e exportar anexos 10715412
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2824
    Registrado : 21/04/2011

    [Resolvido]Criar pasta e exportar anexos Empty Re: [Resolvido]Criar pasta e exportar anexos

    Mensagem  Marcelo David em 18/4/2019, 21:28

    Obrigado pelo retorno!  
    Aprecio muito seu designer!

    Sucesso.


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    avatar
    JOSEMORAES
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 176
    Registrado : 23/02/2011

    [Resolvido]Criar pasta e exportar anexos Empty Re: [Resolvido]Criar pasta e exportar anexos

    Mensagem  JOSEMORAES em 19/4/2019, 15:09

    Obrigado, levei algum tempo para achar um padrão para meus trabalhos.



    Apenas um fundo branco com algumas imagens gif.


    .................................................................................
    [Resolvido]Criar pasta e exportar anexos 10715412

    Conteúdo patrocinado

    [Resolvido]Criar pasta e exportar anexos Empty Re: [Resolvido]Criar pasta e exportar anexos

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 20/9/2019, 17:56