[Resolvido]Reiniciar tabelas criando um backup da anterior

Boa tarde
Venho novamente recorrer aos vossos conhecimentos para implementar se possível o seguinte: ao mudar de ano algumas tabelas serem reiniciadas, criando uma backup, ou criando uma nova tabela respeitando as relações existentes, assim como, as consultas e relatórios em si baseados. Será que é possível? Ou existe uma outra forma para concretizar tal procedimento? Agradeço desde já a atenção dispensada,
Abraço,
Rui Maciel

My opinion;

1º Na mudança de ano, fazer um backup de todo o banco, ou seja (cópia mesmo).
2º Deletar todo o conteudo das tabelas.
3º Compactar/Reparar para reiniciar os contadores da autonumeração.

Tudo isto pode ser feito por código, ou manualmente.

Boa tarde João Paulo
Obrigado pela atenção.
No meu aplicativo ao sair já efetua um backup (código por si implementado, grande). Contudo, sempre que saio do aplicativo faz cópia por cima, teria que direcionar o backup para outra pasta, ou fazer uma cópia e guardar noutro local.
Se for por código, de que forma o posso idealizar?
Abraço,
Rui Maciel

Qual código está a utilizar ?

Aqui vai:

Function BackBD()
Dim CopiaSegura As Object
Dim Caminho As String
Caminho = "C:\Users\Rui\Desktop\Paróquia de Nogueira\BackupACCDB\Backup" 'Nome da pasta e nome de inicio para o banco de backup
Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
CopiaSegura.CopyFile CurrentProject.Path & "\Programa Teste.accdb", Caminho & Format(Now, "_mmyyyy") & ".accdb"
End Function


Private Sub Form_Close()
Call BackBD
End Sub

Nesse caso para não substituir, altere o formato de MM-YYYY para hora também;

CopiaSegura.CopyFile CurrentProject.Path & "\Programa Teste.accdb", Caminho & format(Now, "_hhnnss_mmyyyy") & ".accdb"

Ok alterado, obrigado.
Agora se quiser apagar o conteúdo de algumas tabelas por código como faço?

Currentdb.Execute "delete * from sua tabela"

Obrigado João Paulo
Resolvido!
Rui

Obrigado pelo retorno o forum agradece.

Peço desculpa pela reabertura do tópico mestre, mas se quiser apagar somente o conteúdo de determinada coluna, como faço?
Cumprimentos,
Rui Maciel

Assim;

CurrentDb.Execute "UPDATE SuaTabela SET SeuCampo = Null;"

Obrigado
Problema resolvido
Rui Maciel

Obrigado pelo retorno o forum agradece.