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]Excluir ou Mover arquivo externo pelo nome e data

    avatar
    Coisa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 31/07/2013

    [Resolvido]Excluir ou Mover arquivo externo pelo nome e data Empty [Resolvido]Excluir ou Mover arquivo externo pelo nome e data

    Mensagem  Coisa em 2/10/2015, 13:12

    Pessoal no meu sistema quando o usuário termina um pedido é gerado um relatório e esse fica salvo em PDF em uma pasta específica, caso o usuário precise dele no futuro.

    Ele salva o arquivo com os primeiros 20 caracteres do nome do cliente e a data do pedido, pra facilitar a identificação.

    Até aqui tudo bem.

    A questão é:

    No sistema eu tenho um form de exclusão de pedidos. Nesse form existe um botão que exclui o pedido que o usuário quiser.

    O que eu quero é que ao clicar em Excluir no form o sistema também exclua o arquivo PDF do pedido selecionado que está salvo na pasta.

    É possível fazer isso?


    Última edição por Coisa em 3/10/2015, 11:33, editado 1 vez(es)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Excluir ou Mover arquivo externo pelo nome e data Empty Re: [Resolvido]Excluir ou Mover arquivo externo pelo nome e data

    Mensagem  ahteixeira em 2/10/2015, 14:15

    Olá Ciro,

    Sim, pode fazer e para isso use o "Kill" no botão excluir

    Exemplo:
    Código:
    Kill "C:\PastaTeste\ArquivoTeste.pdf"

    Abraço
    avatar
    Coisa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 31/07/2013

    [Resolvido]Excluir ou Mover arquivo externo pelo nome e data Empty Re: [Resolvido]Excluir ou Mover arquivo externo pelo nome e data

    Mensagem  Coisa em 2/10/2015, 14:38

    ahteixeira o Kill faz isso mas tem um problema:

    Como fazer o Kill apagar o arquivo que o usuário escolher?

    No exemplo que você deu eu tenho que dizer ao Kill o nome do arquivo.

    Eu preciso que o próprio Kill pegue o nome do arquivo no Form (usando os dados de Nome do Cliente e data de pedido, que estão no form) para excluir o mesmo na pasta.

    Exemplo:
    Tenho um pedido com o pdf salvo com o nome:

    Coisa 02/11/2015.pdf

    Eu preciso que ao clicar no botão Excluir no form o Kill pegue o nome e data do pedido (Coisa 02/11/2015) no form para excluir somente o arquivo Coisa 02/11/2015.pdf que está na pasta.

    Isso é possível com o Kill ou algum outro método que eu desconheço?
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Excluir ou Mover arquivo externo pelo nome e data Empty Re: [Resolvido]Excluir ou Mover arquivo externo pelo nome e data

    Mensagem  ahteixeira em 2/10/2015, 15:00

    Olá, antes de eliminar o registo você tem a informação, ou seja:
    -nome do cliente (COISA)
    -data do registo (02/11/2015)
    -Também deve saber qual a pasta em que está o arquivo (C:\Teste)

    Então, antes de eliminar será qualquer coisa assim:

    Código:

    kill "C:\Teste\" & Left(CampoComNomeCliente,20) &" " & CampoDataRegisto &".pdf
    O "left" é para ir buscar apenas os primeiros 20 caractres.
    Se tiver dificuldade, poste base de dados com o form em questão.
    Abraço
    avatar
    Coisa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 31/07/2013

    [Resolvido]Excluir ou Mover arquivo externo pelo nome e data Empty Re: [Resolvido]Excluir ou Mover arquivo externo pelo nome e data

    Mensagem  Coisa em 3/10/2015, 10:44

    ahteixeira deu certo. Tive que mudar levemente o código por causa da formatação do campo Data:

    Kill "C:\BD\Faturas\" & Left(CodigoPedido, 6) & " " & Left(Me!NomeCliente, 20) & " " & Format(Me.DataPedido, "dd-mm-yyyy") & ".pdf"

    Muito obrigado.

    Eu não quero abrir outro tópico pra isso então vou perguntar por aqui mesmo (depois eu edito o titulo do tópico com essa dúvida adicional, se alguém tiver a mesma dúvida vai encontrar o tópico):

    Como seria o código se eu quisesse mover ou copiar um arquivo de uma pasta para outra ao clicar num botão do form usando os dados do form para mover ou copiar o arquivo (da mesma forma como foi feito com o Kill)?

    Por exemplo:
    Na pasta Faturas eu tenho faturas salvas. No form eu tenho uma lista dessas faturas salvas em PDF NomedaFatura.pdf e quero mover (ou copiar) uma fatura específica da pasta Faturas para a pasta Arquivados ao clicar no botão.

    Como fazer isso?
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Excluir ou Mover arquivo externo pelo nome e data Empty Re: [Resolvido]Excluir ou Mover arquivo externo pelo nome e data

    Mensagem  ahteixeira em 3/10/2015, 11:16

    Olá Ciro, obrigado pelo retorno.
    Relativamente à questão, acho que pode ficar neste tópico, pois copiar ou mover está relacionado.

    Exemplo:
    Código:
    'ahteixeira 2015 - maximoaccess
    'mover ficheiro - MOVE
    'se caminho é o mesmo também renomeia - RENAME
    Dim strOrigem, strDestino As String

    strOrigem = "C:\PastaTeste\Faturas\NomedaFatura.pdf"
    strDestino = "C:\PastaTeste\Arquivados\NomedaFatura.pdf"

    Name strOrigem As strDestino

    Teste colocando o código num botão e ajustando o caminho e nome dos ficheiros com a extensão.

    Abraço
    avatar
    Coisa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 31/07/2013

    [Resolvido]Excluir ou Mover arquivo externo pelo nome e data Empty Re: [Resolvido]Excluir ou Mover arquivo externo pelo nome e data

    Mensagem  Coisa em 3/10/2015, 11:31

    ahteixeira os arquivos são movidos perfeitamente. Ao clicar no botão do form ele move a fatura para a pasta Arquivados:

    Dim strOrigem, strDestino As String

    strOrigem = "C:\BD\Faturas\" & Left(Me!NomeCliente, 20) & ".pdf"
    strDestino = "C:\BD\Faturas\Arquivados\" & Left(Me!NomeCliente, 20) & ".pdf"

    Name strOrigem As strDestino

    Valeu mesmo. Tópico Resolvido!
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Excluir ou Mover arquivo externo pelo nome e data Empty Re: [Resolvido]Excluir ou Mover arquivo externo pelo nome e data

    Mensagem  ahteixeira em 3/10/2015, 11:58

    Olá, obrigado pelo retorno.
    Os utilizadores do fórum agradecem.

    Nota, para dar o tópico como resolvido, veja como fazer:
    https://www.maximoaccess.com/t860-resolucao-de-topicos
    Desta vez eu coloco.
    Abraço

      Data/hora atual: 5/7/2020, 15:29