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