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


2 participantes

    [Resolvido]Botão para criar tabela cópia

    avatar
    fabioerickson
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 33
    Registrado : 30/12/2013

    [Resolvido]Botão para criar tabela cópia Empty [Resolvido]Botão para criar tabela cópia

    Mensagem  fabioerickson 31/10/2014, 12:14

    Olá pessoal,

    estou com um pequeno probleminha aqui e penso que vocês podem me ajudar.

    Bom, tenho 12 tabelas que ficam armazenadas os recebimentos de boletos dos meses de Janeiro à Dezembro, e um formulário onde controlo essas tabelas por meio de um
    subformulário, o problema é que, ao chegar no fim do ano, estes dados dos recebimentos não podem ser apagados, preciso copiá-los para algum lugar e deixar salvo, e estas
    12 tabelas tenham todos os dados apagados, para recomeçar a inserção de novos dados, do novo ano!

    Bom, estava pensando em criar um botão neste formulário que fizesse esse procedimento, criasse uma cópia de todas as 12 tabelas renomeando-as para "janeiro2014", "fevereiro2014", bom assim respectivamente, conforme o ano, se for 2015, será "janeiro2015", etc..

    acho que ficou muito complexo e não sei se é capaz de ser feito.

    bom, peço a ajuda de vocês, desde já agradeço!

    caso necessite posso citar mais detalhes, obrigado!

    Abraços


    Última edição por fabioerickson em 4/11/2014, 11:07, editado 1 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009

    [Resolvido]Botão para criar tabela cópia Empty Re: [Resolvido]Botão para criar tabela cópia

    Mensagem  Alexandre Neves 31/10/2014, 18:26

    Boa noite,
    Procure no fórum. Provavelmente, existem várias situações semelhantes que dará para adaptar.
    Veja esta


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    fabioerickson
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 33
    Registrado : 30/12/2013

    [Resolvido]Botão para criar tabela cópia Empty Re: [Resolvido]Botão para criar tabela cópia

    Mensagem  fabioerickson 3/11/2014, 10:23

    Obrigado por sua resposta Alexandre,

    Observei a página que me mandou, testei e não funcionou para mim.

    Estava pensando, os dados que eu preciso salvar, podem ser exportados para o excel, cada tabela em uma aba no excel ou até mesmo cada tabela em um arquivo do excel,
    fiz a importação manual e funciona normalmente, porém preciso deste comando em um botão, que também exclua todos estes dados após a exportação.

    Há alguma forma de fazê-lo com VBA ?

    Obrigado pela atenção.

    Abraços
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009

    [Resolvido]Botão para criar tabela cópia Empty Re: [Resolvido]Botão para criar tabela cópia

    Mensagem  Alexandre Neves 3/11/2014, 20:27

    O que fizer manualmente será sempre possível fazer por código, desde que respeite lógica.
    Faça um passo-a-passo e, depois, transforme esses passos em código.


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    fabioerickson
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 33
    Registrado : 30/12/2013

    [Resolvido]Botão para criar tabela cópia Empty Re: [Resolvido]Botão para criar tabela cópia

    Mensagem  fabioerickson 4/11/2014, 11:05

    Bom Alexandre, obrigado pela sua atenção, mas já consegui o que queria.

    criei um código para exportar as 12 tabelas para 12 arquivos excel, em uma determinada pasta do sistema.
    este mesmo código também limpa todos os registros destas 12 tabelas.

    vou deixar aqui o código para nossos amigos do fórum, se alguém tiver precisando, tá ai:

    DoCmd.Close acForm, "recebimento"
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "janeiro", "C:\backup recebimento\Janeiro.xls", False
    CurrentDb.Execute "DELETE * FROM janeiro"
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "fevereiro", "C:\backup recebimento\Fevereiro.xls", False
    CurrentDb.Execute "DELETE * FROM fevereiro"
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "março", "C:\backup recebimento\Março.xls", False
    CurrentDb.Execute "DELETE * FROM março"
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "abril", "C:\backup recebimento\Abril.xls", False
    CurrentDb.Execute "DELETE * FROM abril"
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "maio", "C:\backup recebimento\Maio.xls", False
    CurrentDb.Execute "DELETE * FROM maio"
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "junho", "C:\backup recebimento\Junho.xls", False
    CurrentDb.Execute "DELETE * FROM junho"
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "julho", "C:\backup recebimento\Julho.xls", False
    CurrentDb.Execute "DELETE * FROM julho"
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "agosto", "C:\backup recebimento\Agosto.xls", False
    CurrentDb.Execute "DELETE * FROM agosto"
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "setembro", "C:\backup recebimento\Setembro.xls", False
    CurrentDb.Execute "DELETE * FROM setembro"
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "outubro", "C:\backup recebimento\Outubro.xls", False
    CurrentDb.Execute "DELETE * FROM outubro"
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "novembro", "C:\backup recebimento\Novembro.xls", False
    CurrentDb.Execute "DELETE * FROM novembro"
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "dezembro", "C:\backup recebimento\Dezembro.xls", False
    CurrentDb.Execute "DELETE * FROM dezembro"
    DoCmd.OpenForm "recebimento"

    só altere as informações conforme necessidade.

    Obrigado, abração

    Conteúdo patrocinado


    [Resolvido]Botão para criar tabela cópia Empty Re: [Resolvido]Botão para criar tabela cópia

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 20:53