MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess


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.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Criar pasta e exportar anexos

    avatar
    JOSEMORAES
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  JOSEMORAES 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 : 3262
    Registrado : 21/04/2011

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

    Mensagem  Marcelo David 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 | [Resolvido]Criar pasta e exportar anexos LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev
    avatar
    JOSEMORAES
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  JOSEMORAES 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 : 3262
    Registrado : 21/04/2011

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

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

    Obrigado pelo retorno!  
    Aprecio muito seu designer!

    Sucesso.


    .................................................................................
    Marcelo David | [Resolvido]Criar pasta e exportar anexos LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev
    avatar
    JOSEMORAES
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  JOSEMORAES 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

      Data/hora atual: 28/2/2021, 07:26