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


4 participantes

    [Resolvido]Copiar vários aquivos de uma pasta para outra usando como referencia os registros de sub_ formulario

    avatar
    elderson
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 10/07/2014

    [Resolvido]Copiar vários aquivos de uma pasta para outra usando como referencia os registros de sub_ formulario Empty [Resolvido]Copiar vários aquivos de uma pasta para outra usando como referencia os registros de sub_ formulario

    Mensagem  elderson 16/9/2015, 20:54

    Boa Tarde Amigos,

    Estou tentando realizar um código VBA que efetue a seguinte a operação de Copiar vários aquivos de uma pasta para outra usando como referencia os registros de um formulario.

    1-Tenho Formulário de pesquisa que me retorna as contas a pagar dentro de um sub-Formulario Chamado F_Sub_pesquisa_Despesa e que contem Txt_Cod_Despesa
    2- Tenho uma Pasta “Despesas”  no PC  que contém os arquivos referentes em  pdf com os mesmos nomes do Txt_Cod_despesa.
    3- Através do evento ao clicar: utilizando o camando Filecopy pegar  todos os arquivos na pastas “Despesas” que está sendo exibido no formulário F_Sub_pesquisa_Despesa através do campo Txt_cod_despesas e Salvar na pasta “c:\copias dos Arquivos”

    Andei tentado utilizar o recordeset mais não consegui, diante desta situação peço ajuda aos amigos conhecedores de VBA access, para me ajudarem com está tarefa.

    Dim ArqOrigem as String
    Dim ArqDestino as String
    ArqOrigem = "c:\Despesas"
    ArqDestino = “c:\copias dos Arquivos”

    Estou perdido no meio no caminho rs  preciso da ajuda para usas o recordeset
    Através do  Sub-Formulario Chamado F_Sub_pesquisa_Despesa campo Txt_Cod_Despesa
    preciso copiar os  todos os aquivos da pasta "c:\Despesas" que contenha os mesmos nomes de Txt_Cod_Despesa
    para a pasta “c:\copias dos Arquivos”


    Filecopy ArqOrigem , ArqDestino
    MsgBox "Arquivos copiados com sucesso"
    End Sub
    roberval
    roberval
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 85
    Registrado : 17/05/2015

    [Resolvido]Copiar vários aquivos de uma pasta para outra usando como referencia os registros de sub_ formulario Empty Re: [Resolvido]Copiar vários aquivos de uma pasta para outra usando como referencia os registros de sub_ formulario

    Mensagem  roberval 21/9/2015, 21:54

    Pelo que eu entendi é isso:

    Código:
    On Error Resume Next
    Dim ArqOrigem, strPasta, strFicheiros
    Dim ArqDestino As String
    ArqDestino = "Destino"
    ArqOrigem = "origem"

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set strPasta = fso.GetFolder(ArqOrigem)
    Set strFicheiros = strPasta.Files
    For Each file In strFicheiros
    Call FileCopy(ArqOrigem & "/" & (file.Name), ArqDestino & "/" & (file.Name))
    Next
    MsgBox "Todos os itens foram copiados com sucesso!,", vbInformation, "Sucesso"


    .................................................................................
    lol!      Juro que eu sou legal     lol!
    avatar
    elderson
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 10/07/2014

    [Resolvido]Copiar vários aquivos de uma pasta para outra usando como referencia os registros de sub_ formulario Empty Re: [Resolvido]Copiar vários aquivos de uma pasta para outra usando como referencia os registros de sub_ formulario

    Mensagem  elderson 21/9/2015, 22:55

    Obrigado Roberval por tentar me ajudar!!!

    Testei o seu código mas ele tá copiado todos os arquivos, preciso que o código pegue somente os registros encontrados em uma consulta.

    Exemplo se na consulta baseado em alguns critérios  ela exibir os registro 1 , 2 e 10,

    o Código precisa pegar na pasta de origem apenas os arquivos 1,2 e 10 e copiar para a para a  Destino com os mesmos nomes.

    Abaixo esta alguma referencias
    1-Tenho Formulário de pesquisa que me retorna as contas a pagar dentro de um sub-Formulario Chamado F_Sub_pesquisa_Despesa e que contem Txt_Cod_Despesa
    2- Tenho uma Pasta “Despesas”  no PC  que contém os arquivos referentes em  pdf com os mesmos nomes do Txt_Cod_despesa.
    3- Através do evento ao clicar: utilizando o camando Filecopy pegar  todos os arquivos na pastas “Despesas” que está sendo exibido no formulário F_Sub_pesquisa_Despesa através do campo Txt_cod_despesas e Salvar na pasta “c:\copias dos Arquivos”

    Desde já agradeço sua atenção e ajuda

    Elderson
    roberval
    roberval
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 85
    Registrado : 17/05/2015

    [Resolvido]Copiar vários aquivos de uma pasta para outra usando como referencia os registros de sub_ formulario Empty Re: [Resolvido]Copiar vários aquivos de uma pasta para outra usando como referencia os registros de sub_ formulario

    Mensagem  roberval 22/9/2015, 13:18

    Bem... Só me explica uma coisa, na Tx_Cod_Despesa, vai ter um só nome, ou todos os nomes dos arquivos que devem ser copiados?

    Se for todos, como você separa? Coloca um em cada linha? Ou separa por virgula/ponto?


    .................................................................................
    lol!      Juro que eu sou legal     lol!
    avatar
    elderson
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 10/07/2014

    [Resolvido]Copiar vários aquivos de uma pasta para outra usando como referencia os registros de sub_ formulario Empty Re: [Resolvido]Copiar vários aquivos de uma pasta para outra usando como referencia os registros de sub_ formulario

    Mensagem  elderson 22/9/2015, 15:53

    São vários arquivos, mais depende da quantidade de registro encontrados na pesquisa.

    Ao clicar no botão copiar arquivos preciso  copiar todos os arquivos que contenha os mesmo nomes no campo "Txt_Cod_Despesa" encontrados na pesquisa.Exemplo quando eu selecionar na Caixa de Listagem o Fornecedor "Madoc" vai aparecer os seguintes registros  1,, 3, 5, e 18 no F_SubDespesas preciso pegar todos os arquivos na pasta "c:\Despesas" com os nomes  1,, 3, 5, 6, e 18 e copiar para a pasta "C:\Arquivos Copiados"

    Tentei enviar o arquivo mais não consegui por aqui, abaixo segue o link

    http://www.mediafire.com/download/jrc6h4hu462aen3/Meu+BD.zip
    roberval
    roberval
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 85
    Registrado : 17/05/2015

    [Resolvido]Copiar vários aquivos de uma pasta para outra usando como referencia os registros de sub_ formulario Empty Re: [Resolvido]Copiar vários aquivos de uma pasta para outra usando como referencia os registros de sub_ formulario

    Mensagem  roberval 22/9/2015, 20:21

    Foi mal a demora...
    Bem, não posso fazer downloads pelo PC da empresa, mas... Bem, como é separado o nome dos arquivos, por virgula?
    Pode ter duas virgulas como nesse exemplo que vc deu: " 1,, 3, 5, 6, e 18", o nome dos arquivos é 1,2,3? ou tem um nome?


    .................................................................................
    lol!      Juro que eu sou legal     lol!
    avatar
    elderson
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 10/07/2014

    [Resolvido]Copiar vários aquivos de uma pasta para outra usando como referencia os registros de sub_ formulario Empty Re: [Resolvido]Copiar vários aquivos de uma pasta para outra usando como referencia os registros de sub_ formulario

    Mensagem  elderson 22/9/2015, 20:45

    Não vai virgula ou ponto e virgula, acho que você tá entendendo outra coisa e não tô conseguindo te explicar.

    Quero copiar os arquivos que tem os nomes "1"," ," 2", " 3", "5" "6", e "18" a virgula aqui é só pra separara o nome dos arquivos que pretendo copiar estes números são exatamente os nomes dos meus arquivos.
    Na pasta" Despesas pode haver n aquivos como 1, 2, 3, 4, 5, 6, 7, 8...... o nome destes arquivos representam exatamente os números que e apareceram no formulário pesquisa através do campo" Txt_Cod_Despesa" se na pesquisa aparecer o registro 1 e 2 e vou copiar somente os arquivo 1 e 2 da pasta " Despesas" para a pasta "Arquivo Copiados" se na pesquisa aparecer os registro 1, 3, 5, e 18 e vou copiar somente os 1,3, 5, e 18 da pasta "Despesas" para a pasta "Arquivo Copiados".

    andei pesquisando e não obtive sucesso, mais me parece que pra isto funcionar tem que usar o recordset

    Agradeço seu esforço
    avatar
    elderson
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 10/07/2014

    [Resolvido]Copiar vários aquivos de uma pasta para outra usando como referencia os registros de sub_ formulario Empty Re: [Resolvido]Copiar vários aquivos de uma pasta para outra usando como referencia os registros de sub_ formulario

    Mensagem  elderson 24/9/2015, 15:55

    Bom dia Roberval,

    Será que você vai conseguir me ajudar? espero que eu tenha conseguido te explicar minha necessidade.

    Abraço

    roberval
    roberval
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 85
    Registrado : 17/05/2015

    [Resolvido]Copiar vários aquivos de uma pasta para outra usando como referencia os registros de sub_ formulario Empty Re: [Resolvido]Copiar vários aquivos de uma pasta para outra usando como referencia os registros de sub_ formulario

    Mensagem  roberval 24/9/2015, 18:13

    Perdoe minha ausência, estou aguardando surgir uma oportunidade para eu avaliar o banco de dados que você disponibilizou, pq no PC aqui da empresa eu não consigo baixar arquivos... :/


    .................................................................................
    lol!      Juro que eu sou legal     lol!
    avatar
    elderson
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 10/07/2014

    [Resolvido]Copiar vários aquivos de uma pasta para outra usando como referencia os registros de sub_ formulario Empty Re: [Resolvido]Copiar vários aquivos de uma pasta para outra usando como referencia os registros de sub_ formulario

    Mensagem  elderson 24/9/2015, 18:42

    Muito Obrigado!!!!!!

    Se preferir posso enviar pelo email: elderson@sobramec.com.br e só falar.

    roberval
    roberval
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 85
    Registrado : 17/05/2015

    [Resolvido]Copiar vários aquivos de uma pasta para outra usando como referencia os registros de sub_ formulario Empty Re: [Resolvido]Copiar vários aquivos de uma pasta para outra usando como referencia os registros de sub_ formulario

    Mensagem  roberval 25/9/2015, 13:06

    Elderson, eu enviei um e-mail para você, quando puder, me responda lá Wink


    .................................................................................
    lol!      Juro que eu sou legal     lol!
    roberval
    roberval
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 85
    Registrado : 17/05/2015

    [Resolvido]Copiar vários aquivos de uma pasta para outra usando como referencia os registros de sub_ formulario Empty Re: [Resolvido]Copiar vários aquivos de uma pasta para outra usando como referencia os registros de sub_ formulario

    Mensagem  roberval 25/9/2015, 18:10

    Mandei um exemplo para o seu e-mail Smile


    .................................................................................
    lol!      Juro que eu sou legal     lol!
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Copiar vários aquivos de uma pasta para outra usando como referencia os registros de sub_ formulario Empty Re: [Resolvido]Copiar vários aquivos de uma pasta para outra usando como referencia os registros de sub_ formulario

    Mensagem  Dilson 25/9/2015, 18:46

    Recomendo postar a solução do caso em um link que todos possam ter acesso, evitem o uso do email para esse fim. Podem usar dropbox.com, mega.nz, mediafire ou compartilhem no onedrive ou googledrive e disponibilizem o link público. Vamos manter o fórum com acervo resolutivo. É o princípio.

    Ressalvo que se houver dificuldades ou impedimentos para acessar esses sites, por favor o meu email está a disposição para receber o exemplo que em seguida disponibilizarei o link público no tópico.

    dilsongti arroba gmail ponto com

    roberval
    roberval
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 85
    Registrado : 17/05/2015

    [Resolvido]Copiar vários aquivos de uma pasta para outra usando como referencia os registros de sub_ formulario Empty Re: [Resolvido]Copiar vários aquivos de uma pasta para outra usando como referencia os registros de sub_ formulario

    Mensagem  roberval 25/9/2015, 19:22

    Me perdoe Dilson, mas minha empresa não permite que eu entre em sites de download, então enviar por email foi a unica solução... Neutral


    .................................................................................
    lol!      Juro que eu sou legal     lol!
    avatar
    elderson
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 10/07/2014

    [Resolvido]Copiar vários aquivos de uma pasta para outra usando como referencia os registros de sub_ formulario Empty Re: [Resolvido]Copiar vários aquivos de uma pasta para outra usando como referencia os registros de sub_ formulario

    Mensagem  elderson 2/10/2015, 20:35

    Boa tarde,

    Segue o link com o BD no formato access 2007

    http://www.mediafire.com/download/22duzwsa394cy38/MeuBD_Access_2007.zip

    Fico no aguardo,

    Obrigado
    roberval
    roberval
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 85
    Registrado : 17/05/2015

    [Resolvido]Copiar vários aquivos de uma pasta para outra usando como referencia os registros de sub_ formulario Empty Re: [Resolvido]Copiar vários aquivos de uma pasta para outra usando como referencia os registros de sub_ formulario

    Mensagem  roberval 2/10/2015, 22:49

    Mandei anexo no e-mail, caso de certo, não esqueça de marcar como resolvido Wink


    .................................................................................
    lol!      Juro que eu sou legal     lol!
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Copiar vários aquivos de uma pasta para outra usando como referencia os registros de sub_ formulario Empty Re: [Resolvido]Copiar vários aquivos de uma pasta para outra usando como referencia os registros de sub_ formulario

    Mensagem  Alvaro Teixeira 3/10/2015, 10:28

    Olá a todos,

    Mário, será possível postar o código que colocou no exemplo que enviou por email[/u]?

    Elderson Carlos, será possível postar o exemplo que o colega Mário enviou?

    Eu pessoalmente e certamente os restantes membros agradecem.
    Abraço.
    avatar
    elderson
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 10/07/2014

    [Resolvido]Copiar vários aquivos de uma pasta para outra usando como referencia os registros de sub_ formulario Empty Re: [Resolvido]Copiar vários aquivos de uma pasta para outra usando como referencia os registros de sub_ formulario

    Mensagem  elderson 5/10/2015, 11:54

    Bom dia,

    Segue abaixo a resolução, realizada pelo Roberval

    Private Sub Comando77_Click()
    On Error GoTo Trat
    Dim rs As DAO.Recordset, Separa, ArqOrigem, ArqDestino
    Set rs = CurrentDb.OpenRecordset("T_Despesa")
    Me.F_Sub_Consulta_ContasPagar.Form.Recordset.MoveFirst
    For X = 0 To 10000 'valor aleatório
    ArqOrigem = "C:\Despesas"
    ArqDestino = "C:\Exemplo"
    Separa = Forms!F_depesas!F_Sub_Consulta_ContasPagar!Txt_Cod_Despesa
    Call FileCopy(ArqOrigem & "\" & Separa & ".pdf", ArqDestino & "\" & Separa & ".pdf")
    Me.F_Sub_Consulta_ContasPagar.Form.Recordset.MoveNext
    DoEvents
    Next
    Trat:
    If Err.Number = 3021 Then Exit Sub
    If Err.Number <> 0 Then MsgBox Err.Number & " - " & Err.Description

    End Sub

    http://www.mediafire.com/download/rydcj0h889eq8qy/MeuBD_Access_2007-Resolvido.zip

    Muito obrigado Roberval pela sua ajuda, paciência e dedicação!!!!

    A cada dia estou conseguindo alcançar meu objetivo com a ajuda de pessoas como você que ajudam o fórum, desde julho de 2014 quando procurei um banco de dados para atender as necessidades na empresa em que trabalho e não consegui, resolvi arregaçar as mangas e fazer eu mesmo, e só estou conseguindo com a ajuda do fórum.

    Muito obrigado a todos!!!!
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Copiar vários aquivos de uma pasta para outra usando como referencia os registros de sub_ formulario Empty Re: [Resolvido]Copiar vários aquivos de uma pasta para outra usando como referencia os registros de sub_ formulario

    Mensagem  Alvaro Teixeira 5/10/2015, 14:07

    Olá a todos, obrigado pelo retorno e partilha.

    Sabemos que o fórum está com problemas em anexar ficheiros, no entanto não pode ser motivo para que continuemos a partilhar a informação.

    Para isso recomendo aos colegas a utilização de uma conta na cloud (dropbox, mega, copy, meocloud, ondedrive, googledrive)
    Depois será efectuar:
      1º o upload;
      2º partilhar (para obter link);
      3º responder aqui no fórum e colocar o link de partilha para download.

    Outra alternativa será o GE.TT, não é obrigatório abertura de conta, apenas tem de arrastar o ficheiro e postar o link, bastante simples e rápido para partilha simples.

    Por último, sou da opinião de evitar a colocação de ficheiros, onde para fazer o download é obrigatório o registo.

    Fica esta dica, de forma a mantermos a conduta de ser MaximoAccess   Wink

    Abraço e bons estudos

    Conteúdo patrocinado


    [Resolvido]Copiar vários aquivos de uma pasta para outra usando como referencia os registros de sub_ formulario Empty Re: [Resolvido]Copiar vários aquivos de uma pasta para outra usando como referencia os registros de sub_ formulario

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 08:27